TidTCPServer schaltet bei Telnet Localecho ein

[jojoko]

Hallo,

ich habe das Problem, das bei einer Verbindung mit Windows Telnet zu einen Indy TCP Server das locale Echo bei Telnet eingeschaltet wird.
Wenn die Verbindung aufgebaut wird ist noch kein Echo vorhanden. Wird das erste Zeichen vom Server zu Telnet gesendet wird das Echo eingeschaltet.

Wie kann man es das Echo vermeiden oder wieder abschalten ?

Gruß Jürgen

hier ein beispiel:

Delphi-Quellcode:

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdSimpleServer,
  IdCustomTCPServer, IdEchoServer, IdTCPServer, IdContext;

type
  TForm3 = class(TForm)
    IdTCPServer1: TIdTCPServer;
    procedure IdTCPServer1Connect(AContext: TIdContext);
    procedure IdTCPServer1Execute(AContext: TIdContext);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.IdTCPServer1Connect(AContext: TIdContext);
var
  test:String;
begin
  Test:=AContext.Connection.IOHandler.ReadLn;// Eingabe noch Ohne LOCALECHO
  AContext.Connection.IOHandler.Writeln(Test);// Was geschieht hier??
  Test:=AContext.Connection.IOHandler.ReadLn;// Eingabe mit LOCALECHO
end;

procedure TForm3.IdTCPServer1Execute(AContext: TIdContext);
begin
  Sleep(1);
end;

end.