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)?!

[Sir Rufo]

Ob das eine gute Idee ist, das im OnCreate und OnDestroy zu machen?

Eigentlich werden solche Instanzen im OnStart und OnStop erzeugt und freigegeben.

Das aber nur so am Rande

[Klaus01]

Guten Morgen,

@Whookie
Ein Memory-Leak ist mir noch nicht aufgefallen.
[So oft wird der Service auch nicht neu gestartet...]
Wenn Du möchtest kannst Du das ja noch in try-finally einpacken.
Der finally Block sollte auf jeden Fall ausgeführt werden.

@Sir Rufo
Danke für den Hinweis.
Werde ich noch ändern.

Grüße
Klaus