Форум: "Сети";
Поиск по всему сайту: 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.025 c
4-100111          alex16                2001-12-04 07:35  2002.01.31  
exe file


3-99907           TonnyS                2001-12-29 13:31  2002.01.31  
Как с помощью SQL-запроса добавить/изменить MEMO или BLOB поле?


3-99898           Nemesis               2001-12-28 11:43  2002.01.31  
Поднимая вопрос об отчетах ...


1-99932           Света Н.              2002-01-12 13:10  2002.01.31  
Помогите правильно сделать отчет!!!!!


3-99889           KMZ                   2001-12-27 13:06  2002.01.31  
Как можно конвертировать таблицы с данными в Interbase