Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];




Вниз

Трабл с ClientSocket 


anonymous   (2001-11-07 11:47) [0]

Привет всем!
Помогите с проблемой: Я пишу приложение, которое должно войти телнетом на сервер.
Вот код: (брал из статьи Карих Николай, с всшего сайта)

procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
var c: Char;
MySocket: TWinSocketStream;
login,password: string;
begin
MySocket := TWinSocketStream.Create(Socket,60000);
login := Edit1.Text+#10+#13;
password := Edit2.Text+#10+#13;
MySocket.Write(login,Length(Edit1.Text)+1);
MySocket.Write(password,Length(Edit2.Text)+1);
while not MySocket.WaitForData(100) do
Application.ProcessMessages;
MySocket.Read(c,1);
MySocket.Free;
end;

Ситуация значит такая: На модемы, маршрутизаторы программа заходит без проблем, а вот на линукс или другую систему - не хочет.
В логе системы пишет:
Nov 5 11:25:28 lgate telnetd[30965]: ttloop: read: Connection reset by peer
Помогите плиз советом, а то я что-то не могу понять ничего.



anonymous   (2001-11-07 18:55) [1]

И что, никто не поможет?



Digitman   (2001-11-08 11:57) [2]

MySocket.Read(c,1); - эта строчка выполняется успешно ? Если - нет, то сообщение о каком исключении получает клиент ?




Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.019 c
7-100077          RRR                   2001-10-16 14:28  2002.01.31  
Вопрос по WinME


6-100032          krimer                2001-11-07 20:31  2002.01.31  
KAK Делать raw пакеты?


1-100018          eraser                2002-01-15 14:38  2002.01.31  
прерывание цикла


4-100109          swr                   2001-12-03 15:05  2002.01.31  
Как удалить несколько строк в Excel средстами Delphi ?


3-99841           EternalWonderer       2001-12-25 15:47  2002.01.31  
Размер поля NUMBER в ORACLE