[Renorquortek]

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

Код:

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

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

Код:

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

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

Код:

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

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

А если так:

Код:

  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.

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

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

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

Код:

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. Что если сделать локальную переменную и ее пытаться заслать:

Код:

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?
Попробуйте после каждого посланого символа делать паузу:

Код:

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?

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