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;