Server: Socket-Fehler # 10054

[paritycheck]

Zitat von Master of Phoenix:

Delphi-Quellcode:

procedure TForm1.TCPServerExecute(AThread: TIdPeerThread);
var s:string;
begin
   with AThread.Connection do
   begin
      s:=readln;
      //Der Fehler ist bei diesem s:=readln
      //Hier kommt dann das, was der Server machen soll, wenn s ein Protokollbefehl ist:
      //Also if s='...' then ...
   end;
end;

Versuch mal ob das funktioniert:

Delphi-Quellcode:

procedure TForm1.TCPServerExecute(AThread: TIdPeerThread);
var s:string;
begin
   with AThread.Connection do
   try
      s:=readln;
      //Der Fehler ist bei diesem s:=readln
   except
     on e: exception do
        Showmessage(e.Message);   //Hier den Fehler behandeln also in deinem Fall Socket-Fehler # 10054 
   end;
end;

Gruss