Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.31;
Скачать: CL | DM;

Вниз

Трабл с 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); - эта строчка выполняется успешно ? Если - нет, то сообщение о каком исключении получает клиент ?



Страницы: 1 вся ветка

Текущий архив: 2002.01.31;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
6-100035
митя
2001-11-08 18:08
2002.01.31
Импорт данных из Excel-я в Delphi


1-99953
Raven
2002-01-14 10:12
2002.01.31
Update для Delphi6


1-100008
Gilbert
2002-01-14 08:44
2002.01.31
Компонент Label который показывает системное время


1-99964
shelest
2002-01-14 11:34
2002.01.31
Grid и его разновидность.


4-100112
Tippy
2001-11-29 20:44
2002.01.31
Как в Трей добавить текст?