[Renorquortek]

Доброго времени суток.
Ситуация следующая нужен простой телнет клиент в задачи которого входит залогониться на устройство, выполнить там набор команд и отключиться от него при этом происходящее надо выводить на экран.

Код:

1 2 3

Telnet: TIdTelnet; Data: TMemo; SndTxt: TEdit;

Обработка OnDataAvailable выглядит так:

Код:

1 2 3 4 5

procedure TForm1.TelnetDataAvailable(Sender: TIdTelnet;   const Buffer: String); begin Data.Lines.Add(Buffer); end;

Проблема такая если символы на устройство отправлять так:

Код:

1 2 3 4 5

Procedure TForm1.SndTxtKeyPress(Sender: TObject; var Key: Char); var i: integer; Begin Telnet.SendCh(key); End;

То все хорошо в Мемо появляются вводимые символы и ответ от устройства

А если так:

Код:

1 2 3 4 5 6 7 8 9 10 11

if key=#13 then  Begin   s:=SndTxt.Text;   for i :=1 to length(SndTxt.Text) do    begin     Telnet.SendCh(s[i]);    end;   Telnet.SendCh(#13);   sndtxt.Clear;  end;  End;

то в Мемо я не вижу ни вводимых символов ни ответов и судя по логам устройства команды он не получает.
Кто-нибудь может мне сказать что я делаю не так? И как нужно?

[Aristarh Dark]

Добавть в тело цикла Application.ProcessMessages, мыслится что не обрабатывается ответ.

[Страдалецъ]

А у вас случаем не D2009 стоит?
Вы проверяли, что лежит в s[i] перед отправкой?

[Страдалецъ]

Сообщение от Aristarh Dark

Добавть в тело цикла Application.ProcessMessages, мыслится что не обрабатывается ответ.

Но в финале-то он должен все равно мемо заполненым иметь, а тут что-то другое.

[Renorquortek]

Добавть в тело цикла Application.ProcessMessages, мыслится что не обрабатывается ответ.

Попробую это сделать завтра, т.к. исходники на работе. А в какое место цикла это надо добавить?
И почему тогда первый вариант работает нормально?

А у вас случаем не D2009 стоит?
Вы проверяли, что лежит в s[i] перед отправкой?

Использую Delphi 7. Добавлял в цикл перед отправкой showmessage(s[i]), честно посимвольно выводится строка введенная в SndTxt.

[Страдалецъ]

А в какое место цикла это надо добавить?

Добавить надо так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12

if key=#13 then    Begin     s:=SndTxt.Text;     for i :=1 to length(SndTxt.Text) do      begin       Telnet.SendCh(s[i]);       Application.ProcessMessages;      end;     Telnet.SendCh(#13);     sndtxt.Clear;    end;    End;

Но я недумаю, что это поможет, т.к. суть этой комманды заставить принудительно обновить на экране все что изменилось.

[Renorquortek]

Помотрел снифером что происходит при работе программы. С виду все ОК, вижу данные которые уходят на устройство и приходят с него, все команды работают нормально. Складывается ощущение что OnDataAvailable срабатывает только один раз... может его надо как-то вызывать после отправления данных на устройство?

[Страдалецъ]

Возникла такая мысль, а что если неработает потому-что вы не переменную типа char туда посылаете, а ссылку на элемент массива типа char. Что если сделать локальную переменную и ее пытаться заслать:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Var Ch: char; ... if key=#13 then    Begin     s:=SndTxt.Text;     for i :=1 to length(SndTxt.Text) do      begin       Ch := s[i];       Telnet.SendCh(Ch);       Application.ProcessMessages;      end;     Telnet.SendCh(#13);     sndtxt.Clear;    end;    End;

[Renorquortek]

Пробовал... то же самое...

[Страдалецъ]

Еще такой вариант, может слишком быстро идет запись в Telnet?
Попробуйте после каждого посланого символа делать паузу:

Код:

1 2 3 4 5 6 7 8 9 10 11 12

if key=#13 then    Begin     s:=SndTxt.Text;     for i :=1 to length(SndTxt.Text) do      begin       Telnet.SendCh(s[i]);        Sleep(100);      end;     Telnet.SendCh(#13);     sndtxt.Clear;    end;    End;

[Renorquortek]

Еще такой вариант, может слишком быстро идет запись в Telnet?

Да, была такая мысль... Но не помогает. И снифир показывает что данные от устройства идут, они просто не отображаются...