Ich habe eine Möglichkeit gefunden den Fehler zu umgehen.
Wenn ich vorab die Befehlskette
#255#253#1
sende, habe ich kein lokales Echo mehr.
Die Antwort von Telnet muss ich dann natürlich abfangen.
Code:
procedure TForm3.IdTCPServer1Connect(AContext: TIdContext);
var
Response:String;
begin
Response:='';
AContext.Connection.IOHandler.Write(#255#251#1); // (IAC WILL ECHO)
while length(Response)<3 do
Response:=Response+AContext.Connection.IOHandler.ReadChar; // Antwort muss ausgelesen werden!!!!!!
// Hier kann jetzt noch die Antwort von Telnet weiter ausgewertet werden.
// Response sollte den Wert #255#253#1 haben. (IAC DO ECHO)
:
:
end;
Falls jemand eine bessere Lösung hat nur her damit
Gruß Jürgen