На главную
ПРАВИЛА 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,0778 ]   [ 15 queries used ]   [ Generated: 21.07.18, 19:33 GMT ]