[vetal07]

Добрый день, подскажите как передать параметры в поле мемо через idTelnet?

Вот часть кода:

Код:

procedure TForm1.IdTelnet1DataAvailable(Sender: TIdTelnet;
  const Buffer: TArray<System.Byte>);
  const CR=#13; LF=#10;
var
  Start, Stop: integer;
  str:string;
  begin
    str := TEncoding.ANSI.GetString(Buffer);
    memo1.Lines.Add('');
    start:=1;
    stop:=Pos(CR, str);
    if stop = 0 then
      stop:=length(str)+1;
    while start<=length(str) do
      begin
        memo1.Lines.Strings[memo1.Lines.Count - 1]:= memo1.Lines.Strings[memo1.Lines.count - 1] +
        copy(str, start, stop - start);
        if str[stop] = CR then begin
            memo1.Lines.Add('');
        end;
        start:=stop+1;
        if start > length(str) then break;
        if str[start] = LF then start:=start+1;
        stop:=start;
        while (str[stop] <> CR) and (stop <=length(str)) do
        stop:=stop+1;
      end;
  end;

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
var
cmd:string;
begin
 if IdTelnet1.connected then
begin
IdTelnet1.SendCh(Key);
end;

lmikle: пользуемся тегами оформления. первое предупреждение.

В данном случае у меня передаются символы по одному и каждый сновой строки
*** Attention! Please, don't restart this router! ***
*A:router#
s
sh
ho
ow
w

Вопрос. как сделать, что бы передавались корректно символы?
т.е таким образом
*** Attention! Please, don't restart this router! ***
*A:router# show

[Alegun]

Видимо ифа с условием добавления к данной строке не хватает

[vetal07]

Сообщение от Alegun

Видимо ифа с условием добавления к данной строке не хватает

Можешь,пожалуйста, помочь?
Я понимаю, что не хватает условия, но пока что то не могу понять. Я совсем юн в программировании.

[vetal07]

кто нибудь может помочь мне с данным условием?

[Alegun]

Да здесь похоже банально #13#10 пролазят сквозь "бритву Оккама" :-), проверьте на повторы переносов отладчиком в момент добавки к строке

[Bargest]

Может просто использовать Memo1.Text?

[Alegun]

Сообщение от Bargest

Может просто использовать Memo1.Text?

У ТС в мемо и нужные переносы встречаются, хотя такое

Код:

Memo1.Text:=  StringReplace(Memo1.Text, #13#10+#13#10, '', [rfReplaceAll]);

может и поможет

[vetal07]

Сообщение от Alegun

У ТС в мемо и нужные переносы встречаются, хотя такое

Код:

Memo1.Text:=  StringReplace(Memo1.Text, #13#10+#13#10, '', [rfReplaceAll]);

может и поможет

не помогло мне данное решение, проблема в том что при нажатии клавиши сервер сразу же присылает ее в качестве ответа

например, при вводе show у меня выводится
s
sh
ho
ow
w

решил данную проблему костылем

Код:

  if (Length(str) = 1) and (Str = currentKey) then
    begin
      currentKey:= #0;
      exit;
    end;

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

И так, помогите мне с :
1.как мне перехватить в мемо позицию вывода комманды от сервера, чтобы я вводил только в этой строке свои комманды
2.как мне сделать табуляцию комманд в мемо с помощью клавиши таб

[vetal07]

смог я сделать передачу табуляции свойством WordWrap=True в memo.
снова пришлось после чего костыли писать, что бы он более и менее корректно символы выводил

Код:

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
var
cmd:string;
begin
 if IdTelnet1.connected then
begin

currentKey:= Key;
IdTelnet1.SendCh(Key);
end;
if key=#9 then
key:=#0;
end;

правда в мемо порой выводятся не понятные символы, которые в терминал не передаются, пока не знаю как побороть

Код:

 show service id 100   

[Alegun]

Команды лучше набирать в поле ввода (edit), а мемо юзать чисто как монитор

[vetal07]

Сообщение от Alegun

Команды лучше набирать в поле ввода (edit), а мемо юзать чисто как монитор

Я понимаю, но хочется сделать почти полноценный терминал

[vetal07]

подскажите, а как мне осуществить данную возможность:
-при выводе термина ответа на ввод команды
*A:router#
я мог именно вводите из под мемо именно в этой строке? а не во всем мемо как сейчас. Как отловить позицию ?

[vetal07]

удалите этот пост, пжлс

[vetal07]

удалите этот пост, пжлс

[Alegun]

Сообщение от vetal07

...Как отловить позицию ?

Вот пример парсинга