In die Negotiation hab ich mich eben mal eingeklinkt. Der springt da nur einmal durch, obwohl der client mehr als eine sache schickt. Der schickt folgendes:
SENT WILL NAWS
SENT WILL TERMTYPE
SENT WILL XDISPLOC
SENT DO SGA
SENT DO ECHO
Aber ich werde mich gleich mal damit bissl mehr beschäftigen. Ich wollte das nun erst "zu fuss" über einen normalen TCPServer machen. Aber das ist mehr arbeit als ich dachte
NACHTRAG:
Es klappt. Ich kann endlich dem Client sagen das er kein lokales echo macht. Nun muss ich ihm noch "sagen" das er Active ist. Sollte aber auch kein prob sein.
Danke an alle
Delphi-Quellcode:
procedure TForm1.IdTelnetServer1Negotiate(AContext: TIdContext);
begin
AContext.Connection.IOHandler.Write(255);
AContext.Connection.IOHandler.Write(254);
AContext.Connection.IOHandler.Write(1);
end;