TIdTCPServer: OnExecute-Schleife trotz Disconnect

[chaosben]

Also meine Excutes sehen sinngemäß meist so aus:

Delphi-Quellcode:

repeat
  If AThread.Connection.InputBuffer.Size > 0 then
  begin
    //...
  end;

  AThread.Connection.CheckForDisconnect(False);
  AThread.Connection.CheckForGracefulDisconnect(False);

  SleepEx(1, true);
until (not AThread.Connection.Connected);

Ich denke mal du hast die beiden Checks vergessen.