Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 6 681

/ вопрос открыт /

Приветствую, уважаемые эксперты!

Пишу простейший telnet клиент. Использую компонент IdTelnet
Проблема в том что при ответе получаю доп символы.
Например захожу на Zyxel роутер.
Login: [K
Hex: 4C 6F 67 69 6E 3A 20 1B 5B 4B
a
Hex: 61

[Kd [Km [Ki [Kn [K
Password: [K
Hex: 1B 5B 4B 64 1B 5B 4B 6D 1B 5B 4B 69 1B 5B 4B 6E 1B 5B 4B 0D 0D 0A 50 61 73 73 77 6F 72 64 3A 20 1B 5B 4B

* [K
Hex: 2A 1B 5B 4B

* [K* [K* [K* [K* [K* [K* [K
Hex: 2A 1B 5B 4B 2A 1B 5B 4B 2A 1B 5B 4B 2A 1B 5B 4B 2A 1B 5B 4B 2A 1B 5B 4B 2A 1B 5B 4B 0D 0D 0A

(config)> [K
Hex: 28 63 6F 6E 66 69 67 29 3E 20 1B 5B 4B

Что это за мусор 1B 5B 4B ?

Проверял telnet (winxp) и PuTTY
Всё четко не какого мусора нет.

Приложение:
  1. procedure TForm4.IdTelnet1DataAvailable(Sender: TIdTelnet;
  2. const Buffer: TIdBytes);
  3.  
  4. var
  5. sVal : AnsiString;
  6. iLoop : integer;
  7. begin
  8. sVal:= '';
  9. // Convert from ASCII to a string
  10. for iLoop := 0 to Length(Buffer) - 1 do sVal := sVal + char(Buffer[iLoop]);
  11. //sVal:= AnsiToUtf8(sVal);
  12. // Process the input (my custom procedure)
  13. Memo1.Lines.add(sVal);
  14. Memo1.Lines.add('Hex: 'ViewBuf(Buffer,Length(Buffer)));
  15.  
  16. end;


Zlodey Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Zlodey (статус: Посетитель)
Вопрос отправлен: 5 февраля 2018, 15:32
Состояние вопроса: открыт, ответов: 0.


Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 20 ноября 2018, 08:26
Выполнено за 0.03 сек.
Рейтинг@Mail.ru