COM Object freigeben

[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?

[WizoHulk]

ohh sorry...
Hab vergessen mit rein zulegen...

  test : OLEVariant; ComServer ist aus der Uses ComServ
da ist die Funktion OnLastRelease deklariert.

[DeddyH]

Was ich meinte: Du startest doch Test (das ist der COM-Server, der Dich interessiert). Wieso weist Du dann nicht auch Test den Eventhandler zu? Oder habe ich Dich falsch verstanden?

[WizoHulk]

ich kann das Event nicht dem test zuweisen, bekomme dann eine Fehlermeldung, das dies vom Objekt nicht unterstützt wird.

Delphi-Quellcode:

b:= false;
test.OnLastRelease := self.HandleComServerOnLastRelease(b);

[DeddyH]

Und so?
test.OnLastRelease := self.HandleComServerOnLastRelease;

[WizoHulk]

ne.
Fehlermeldung : Parameter erwartet.

[shmia]

ComServer ist ein globales Objekt der VCL, genauso wie z.B. Application und Screen.
Und natürlich muss mein vorgeschlagener Code im Server und nicht im Client platziert werden!

[WizoHulk]

ja das habe ich grad gemerkt, danke für eure Hilfe