Как подавить эхо с помощью TIdTelnet?

Если сервер отправляет вам IAC WILL ECHO, TIdTelnet жестко закодирован для отправки ответа IAC DO ECHO, а затем запускает событие OnTelnetCommand(tncNoLocalEcho), чтобы запретить локальное эхо того, что вы отправляете.

Если сервер отправляет вам IAC WONT ECHO, TIdTelnet жестко запрограммирован на отправку ответа IAC DONT ECHO, а затем запускает событие OnTelnetCommand(tncLocalEcho), сообщая вам о локальном эхо того, что вы отправляете.

Если сервер отправляет вам IAC DO ECHO, TIdTelnet жестко закодирован для отправки ответа IAC WILL ECHO, а затем запускает событие OnTelnetCommand(tncEcho), чтобы сообщить вам, что вы должны повторить все, что вы получаете.

Если сервер отправляет вам IAC DONT ECHO, TIdTelnet жестко закодирован для отправки ответа IAC WONT ECHO, а затем запускает событие OnTelnetCommand(tncLocalEcho), чтобы сообщить вам, что вы должны повторить все, что вы получаете.

Итак, если вы не хотите, чтобы сервер отвечал вам эхом, вы можете отправить серверу команду IAC DONT ECHO, а не команду IAC DO SUPLOCALECHO. Затем сервер ответит либо IAC WONT ECHO, либо IAC WILL ECHO соответственно (на что, по-видимому, затем ответит TIdTelnet, но сервер не ответит снова, поскольку его ECHO текущее состояние не изменится, избегая бесконечного цикла ответов).

@Remy Lebeau: Насколько я понимаю, вы говорите: если сервер отправляет вам IAC DO ECHO, TIdTelnet жестко закодирован для отправки ответа IAC WILL ECHO, а затем запускает OnTelnetCommand( tncEcho ), чтобы сообщить вам, что нужно возвращать все, что вы получаете.

Это имеет смысл и согласуется с целью RFC857...

Однако в коде мы имеем:

procedure TIdTelnet.Negotiate;
...
      TNC_DONT:
        begin
          b := IOHandler.ReadByte;
          case b of
            TNO_ECHO:
              begin
                DoTelnetCommand(tncEcho);
                //DoStatus('ECHO');    {Do not Localize}
                Reply := TNC_WONT;
              end;
            else
              Reply := TNC_WONT;
          end;

а также

  TNC_DO:
    begin
      b := IOHandler.ReadByte;
      case b of
        TNO_ECHO:
          begin
            Reply := TNC_WILL;
            DoTelnetCommand(tncLocalEcho);
          end;

Наверняка этот код неверный? (в версии 10.6.0.497 Indy)

Я считаю, что это будет иметь больше смысла:

 procedure TIdTelnet.Negotiate;
 ...
      TNC_DONT:
         begin
           b := IOHandler.ReadByte;
           case b of
             TNO_ECHO:
               begin
               // Agree not to echo back everything received from server 
               // (This being the default - you shouldn't echo unless asked to)
                  Reply := TNC_WONT;            
               // Therefore only print locally what is sent to server
               // (Again: this is the default behavior without negotiation) 
                  DoTelnetCommand(tncLocalEcho);
               end;
             else
               Reply := TNC_WONT;
           end;

а также

   TNC_DO:
     begin
       b := IOHandler.ReadByte;
       case b of
         TNO_ECHO:
           begin
           // Agree to echo back everything received from server 
              Reply := TNC_WILL;
              DoTelnetCommand(tncEcho); 
           // Therefore you may still have to locally print what you send
           // (i.e. local echo is usually still implicit in this)
           end;   

Другими словами, я считаю, что код в настоящее время изменен с того, каким он должен быть, а именно, что сервер, отправляющий DO ECHO, должен порождать токен tncEcho - это то, что вы сказали в приведенной выше цитате!

Как этот баг продержался так долго? (вероятно, потому что большинство серверов Telnet больше не утруждают себя согласованием эха RFC857)

К сожалению, на данный момент я вижу единственный способ «компенсировать» эту ошибку — создать копию файла IDTelnet.pas; свяжите это с вашим проектом в менеджере проектов; а затем внесите исправления в эту копию, как описано выше.

Чтобы решить исходный вопрос: «Как подавить эхо с помощью TIdTelnet?», я бы предложил следующие шаги:

1. Добавьте TIdConnectionIntercept в свою форму и подключите его к компоненту TIdTelnet через свойство Intercept с помощью инспектора объектов.

2. Создайте обработчик события TIdConnectionIntercept OnSend.

3. Используйте это, чтобы определить, когда его параметр var ABuffer: TIdBytes получает ответ на команду согласования сервера относительно эха. Обратите внимание, что буфер БУДЕТ содержать ТОЛЬКО и ТОЛЬКО все три байта ответа из-за того, как ответ заполняется и отправляется TIdTelnet.Negotiate

4. Измените средний байт по желанию (например, чтобы принудительно изменить WILL на WONT или DO на DONT в соответствии с тем, что вы пытаетесь применить).

Иов "хороший человек"

Помните, конечно, что этот метод вводит изменение ПОСЛЕ вызова TidTelnet OnTelnetCommand, поэтому вам придется изменить все, что вы настроили в этом обработчике, чтобы он соответствовал вашему измененному ответу.