Главная страница
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.01 c
1-100009
IronHawk
2002-01-14 17:06
2002.01.31
QReport...


14-100055
VEG
2001-12-10 22:01
2002.01.31
Нужен компонент типа LABEL, только с большей скоростью перерисовки!!!


6-100036
митя
2001-11-08 18:19
2002.01.31
Импорт данных


4-100100
DenKop
2001-11-30 23:33
2002.01.31
Вывод текста через контекст устройства...


3-99855
victor
2001-12-25 14:15
2002.01.31
переход с Парадокса на Оракле