Telnet Server

[Andre.R]

Hi,

in Indy 9 geht das Beispiel so :

Delphi-Quellcode:

procedure TMainForm.IdTelnetServer1Execute(AThread: TIdPeerThread);
var
  str : string;
begin
 with AThread.Connection do
  begin
   Write('shell>');
   str:=InputLn('');
   if (str='exit') or (str='logout') then
      Disconnect;
   WriteLn(str);
  end;
end;

Das geht leider nicht im Indy 10 !
Jemand ne Idee ?

cu