Форум: "Сети";
Поиск по всему сайту: 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.72 MB
Время: 0.016 c
1-99963           DW                    2002-01-14 10:45  2002.01.31  
Как выделить кусок текста другим цветом?


3-99878           victor                2001-12-27 07:43  2002.01.31  
Подключение к Interbase 4 под SCO Open Server


7-100081          Alexei                2001-10-23 12:17  2002.01.31  
Принтер по умолчанию


3-99846           Nimnul                2001-12-24 15:26  2002.01.31  
Снова BDE!


14-100067         Digitman              2001-12-07 17:41  2002.01.31  
Дж.Харриссон - кто он ?