Форум: "Сети";
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];
ВнизИнтересно, хоть кто-нибудь смог бы написать РАБОЧИЙ Telnet? Под сервер UNIX никак не пашет! Найти похожие ветки
← →
Realizator (2002-02-13 09:49) [0]Пожалуйста, помогите! Не понимаю, ну неужели никто и никогда не писал самую обыкновенную Telnet программу, такую же как стандартный Windows Telnet ??? Ведь вроде Интернет вещь повседневная, ну неужели никому не надо было? Не могу НИГДЕ найти как написать нак, что б работал без глюков...
Ситуация такова: Есть сервер под UNIX и, скажем, мой комп под Виндами. И вот не работает мой написанный Телнет ну ни как. Сервер всякую белибирду выдаёт в начале, наподобие вот этого
яэяэ яэ#яэ"яэ$, вместо приветствия. И мой Телнет не корректно передаёт видно символы, так как сервер не понимает логин и пароль, хотя они верные...
Вот мой код, пожалуйста поправьте, если что не так, кто разбирается. Заранее очень благодарен.
procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Address:="xxx.xx.xx.xxx";
ClientSocket1.Port:=23;
ClientSocket1.Active:=true;
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;
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo1.Lines.Add(ClientSocket1.Socket.ReceiveText);
end;
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.049 c