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;

[WizoHulk]

wo hast du diese Funktion her Self.HandleComServerOnLastRelease; muss mann da jetzt noch eine Unit einbinden?

[DeddyH]

Die steht doch direkt unten drunter.

[WizoHulk]

ja ich über geber der Procedure ein Parameter der nie benutzt wird?
und das versteh ich grad nicht so ganz.

[DeddyH]

Das ist ein Var-Parameter, mit dem Du steuern kannst, wie sich das Objekt verhalten soll.

[WizoHulk]

Die Funktion habe ich hin bekommen.

Aber wenn ich meine Application schließe dann wird mein COM server auch mit beendet.
Ich denke ich habe hier noch irgendwas vergessen.


falls es hilft hier mal mein Quellcode

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 try
   test := CreateOleObject('Application.Updater');
 except
   test := GetActiveOleObject('Application.Updater');
 end;

  test.FTP_Host      := FTPHost.Text;
  test.FTP_User      := FTPUser.Text;
  test.FTP_Passwort  := FTPPasswort.Text;
  test.ClientName    := ClientName.Text;
  test.ClientVersion := ClientVersion.Text;

  test.ClientHandle  := ClientHandle.Text;
  Test.StartServer;
  ComServer.OnLastRelease := self.HandleComServerOnLastRelease;


end;

[DeddyH]

Was ist denn ComServer und was ist test?