TIdTCPServer beenden und alle Clientverbindungen schließen?

[Whookie]

Zitat von Klaus01:

Hallo,

hat der Indy TCPServer nicht einen Exception Handler (onException) mit denen
du die Exceptions abfangen/loggen kannst?

Ah Danke! Das ist schon mal sehr gut so kann man auch Exceptions loggen mit denen man nicht gerechnet hat.

Wenn ich das richtig verstehe "ignorierst" du die Exceptions die beim Active=FALSE setzen auftreten einfach? Das heißt aber, das:

Delphi-Quellcode:

procedure TsimpleL3DC.ServiceDestroy(Sender: TObject);
begin
  if assigned(fTcpListener) then
    begin
      fTcpListener.Active := false;

//--- ab hier wird nicht mehr ausgeführt, wenn oben eine Exception auftritt ---

      freeAndNil(fTcpListener);  
    end;
  fLogger.Free; 
  fFileManager.Free;
end;

unterhalb meines Kommentars nichts mehr ausgeführt wird, sobald ein Client verbunden war (was eigentlich ein Memoryleak prodziert)?!