На главную
ПРАВИЛА FAQ Помощь Участники Календарь Избранное DigiMania RSS
msm.ru
! Соблюдайте общие правила форума
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.
Указывайте точные версии Delphi и используемых сетевых библиотек.

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

Внимание:
попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...

Полезные ссылки:
user posted image MSDN Library user posted image FAQ раздела user posted image Поиск по разделу user posted image Как правильно задавать вопросы


Выразить свое отношение к модераторам раздела можно здесь: user posted image Krid, user posted image Rouse_

Модераторы: Krid, Rouse_
  
> Telnet
Здравствуйте.
Пишу простейший 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

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

Проверял telnet (winxp) и PuTTY
Всё четко не какого мусора нет.
Сообщение отредактировано: Zlodeyz -
man rfc 318,435,495,854-861
Zlodeyz не парься с IdTelnet, по твои задачи вполне сойдет компонента Clientsocket
В свое время сам получил здесь такой же совет и не жалею что его послушал

ExpandedWrap disabled
    //начальная настройка и запуск сокета
    Clientsocket1.Port:=23;
    clientsocket1.Host:='192.168.0.1';
    clientsocket1.Active:=true;
     
     
    //отправка данных в сторону telnet сервера по нажатию кнопки.
    procedure TForm1.Button1Click(Sender: TObject);
    begin
        ClientSocket1.Socket.SendText( edit1.text+#13#10);
    end;
     
     
    //вывод ответов на твои запросы в memo1
    procedure TForm1.ClientSocket1Read(Sender: TObject;
      Socket: TCustomWinSocket);
    begin
       memo1.Lines.Add(Socket.ReceiveText);
    end;
     
    //отработка ошибок сокета
    procedure TForm1.ClientSocket1Error(Sender: TObject;
      Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
      var ErrorCode: Integer);
    begin
      memo1.Lines.Add('Socket Error - '+ inttostr(errorCode));
      errorcode:=0;
    end;
"Квантовый ПК – это как философский камень 21 века все знают что он должен делать но никто не знает как его создать"
У меня XE5 нет Clientsocket. Он как то по другому называется ?

Добавлено
Установи пакет (Components => Install Packages... => Add) {Delphi}\Bin\dclsocketsXX.bpl,

Добавлено
Цитата Марсианин @
memo1.Lines.Add('Socket Error - '+ inttostr(errorCode));
  errorcode:=0;

Переделал. Аналогично

яэ яэ яы яы
Login: [K
a
[Kd [Km [Ki [Kn [K

Password: [K
*
[K* [K* [K* [K* [K* [K* [K* [K

(config)> [K
Похоже это ЭХО возвращается.
Как его отключить ?
Zlodeyz, попробуй скомпилировать на Delphi 7
"Квантовый ПК – это как философский камень 21 века все знают что он должен делать но никто не знает как его создать"
1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
0 пользователей:


Рейтинг@Mail.ru
[ Script Execution time: 0,1042 ]   [ 20 queries used ]   [ Generated: 17.02.18, 19:36 GMT ]