| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Трабл с ClientSocket [D5, Win95/98, NT4]
anonymous © (2001-11-07 11:47:00)Привет всем!
Помогите с проблемой: Я пишу приложение, которое должно войти телнетом на сервер.
Вот код: (брал из статьи Карих Николай, с всшего сайта)
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
Помогите плиз советом, а то я что-то не могу понять ничего.
Digitman (2001-11-08 11:57:00) [1]MySocket.Read(c,1); - эта строчка выполняется успешно ? Если - нет, то сообщение о каком исключении получает клиент ?
anonymous (2001-11-07 18:55:00) [2]И что, никто не поможет?
| |
