COM Object freigeben

[shmia]

Wenn du verhindern willst, dass deine Serveranwendung beendet wird, dann kannst du das über das Event OnLastRelease verhindern:

Delphi-Quellcode:

procedure TMainForm.FormCreate(Sender: TObject);
begin
   // Wenn die Anwendung über COM hochgezogen wurde und der letzte Client die Verbindung
   // beendet dann Anwendung nicht beenden (wird in dem Event-Handler gesteuert).
   ComServer.OnLastRelease := Self.HandleComServerOnLastRelease;
...

procedure TMainForm.HandleComServerOnLastRelease(var Shutdown: Boolean);
begin
   // Anwendung weiter laufen lassen, wenn der letzte Client die Verbindung abbaut
   ShutDown := False;
end;