Работа С Telnet.

[Zerone]

Здравствуйте!
Не могли бы вы скинуть сорец по работе с телнетом в дельфи?

Буду очень благодарен

[Zerone]

НЕТ, keit задам вопрос конкретнее.
Есть отладчик на хосте. Цепляюсь к нему виндовым телнетом как обычно - telnet host 1234.
Хочу накатать GUI для этого отладчика и использую idTelnet. Но при попытке выполнить Connect срабатывает исключение OnDataAvailible event is nil. Имя хоста прописал ,порт тоже.
При этом я пробовал подцепиться на другой хост, например- host2 и на порт 80, се цеплялось..

Что может быть?

[*PB*]

Была тема про телнет и компонент idTelnet http://programmersforum.ru/showthread.php?t=73588

[Zerone]

я не нашел там нужной мне инфы, почему срабатывает исключение?

[Zerone]

Разобрался. Сервер отладки при подключении шлет данные клиенту. поэтому он и ругался. можно сделать буфер ,как заглушку.

procedure TMyThread.Connected(Sender: TObject; Error: Word);
var data: pstring;
begin
new(data);
data^:='Connection established';
// if length(data^)>0 then
postmessage(Fformhandle,WM_USER,0,integer(data));
end;

[Zerone]

Разобрался. Сервер отладки при подключении шлет данные клиенту. поэтому он и ругался. можно сделать буфер ,как заглушку.

procedure TMyThread.Connected(Sender: TObject; Error: Word);
var data: pstring;
begin
new(data);
data^:='Connection established';
// if length(data^)>0 then
postmessage(Fformhandle,WM_USER,0,integer(data));
end;

[Zerone]

вернее

procedure TMyThread.threaddata(Sender: TIdTelnet; const Buffer: String);
var fdata : pstring;
x : string;
begin
if length(buffer)>0 then
begin
x := buffer;
new(fdata);
fdata^:=x;
postmessage(Fformhandle,WM_USER,0,integer(fdata));
end;

[Zerone]

вернее

procedure TMyThread.threaddata(Sender: TIdTelnet; const Buffer: String);
var fdata : pstring;
x : string;
begin
if length(buffer)>0 then
begin
x := buffer;
new(fdata);
fdata^:=x;
postmessage(Fformhandle,WM_USER,0,integer(fdata));
end;