|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
как передать символы в мемо через idTelnet
Добрый день, подскажите как передать параметры в поле мемо через 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 Последний раз редактировалось lmikle, 18.06.2015 в 21:41. |