Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

telnet

Zerul © (2002-01-08 15:14:00)
может глупо, но где мне можно посмотреть исходники простенького клиента телнета или как его можно написать?

Vitaly (2002-01-09 16:16:00) [1]
http://teor.ysn.ru/CIE/RFC/854/

Zerul (2002-01-09 14:51:00) [2]
2nikkie © (09.01.02 09:41)
где об этом можно почитать7

и всё таки: как можно "научить" мой телнет выдавать то что выдаёт обычный телнет?

nikkie (2002-01-09 09:41:00) [3]
почитать rfc, например. в протоколе телнета есть небольшой набор управляющих комманд - они начинаются с символа IAC (FF), если мне память не изменяет...

Zerul (2002-01-09 02:05:00) [4]
Выше приведёный код отлично работает, НОпочему-то(я не могу объяснить почему) при попытке подсоединиться на 23 порт(т.е. порт телнета) моего прова он выдаёт:

"яэяэ яэ#яэ"

вместо приветствия которое выдаёт обычный(майкрософтский) телнет:

"Red Hat Linux release 7.2 (Enigma) Kernel 2.4.9-13 on an i686 login:"

или

"яэ%яыяэяэяэ"

вместо

"Server allows NTLM authentication only. Server has closed connection"

а вопрос такой: как это можно обьяснить? и как можно "научить" мой телнет выдавать то что выдаёт обычный телнет?

zerul (2002-01-08 17:33:00) [5]
большое "спасибо" вам!!!!!!!!

Polevi (2002-01-08 17:11:00) [6]
procedure TForm1.FormCreate(Sender: TObject);
begin
ClientSocket1.Address:= some IP address..
ClientSocket1.Port:= some Port..
ClientSocket1.Active:=true;
end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo1.Lines.Add(Socket.ReceiveText);
end;

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key=VK_RETURN) then ClientSocket1.Socket.SendText(Memo1.Lines[Memo1.Lines.Count-1]+#13#10);
end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »