Zugriff auf einen COM-Server aus einem Delphi-Dienst

[Bernhard68]

Es ist zwar nun ein paar Jahre her, aber ich bin auch auf der Suche nach der Lösung dieses Problems.

Architektur:
1. Anwendung A (exe) als COM-Server
2. DLL als COM-Client
3a. Anwendnung B verwendet DLL um mit Anwendung A zu kommunizieren.
3b. Dienst (TService) verwendet DLL um mit Anwendung A zu kommunizieren.

Während die ganze Geschichte unter XP mit BCB5 problemlos lief,
bringe ich es unter Win7 mit ECB2010 nicht mehr ans Laufen.
3.a funktioniert auch unter Win7 tadellos, 3b nicht.

Wenn ich über den Dienst, auch wenn er im Administrator-Benutzerkonto läuft,
in der DLL "CoCreateInstance" aufrufe, bekomme ich den Fehlerwert "-2147221008" zurück.

Hat jemand diese Problem lösen können?

[Bernhard Geyer]

Zitat von Bernhard68:

Während die ganze Geschichte unter XP mit BCB5 problemlos lief,
bringe ich es unter Win7 mit ECB2010 nicht mehr ans Laufen.

Was passsiert bei BCB5 unter Win7 bzw. bei ECB2010 unter XP?
Sinnvoll ist es erstmal raus zu bekommen ob die IDE oder das OS das Problem verursacht.

[Bernhard68]

Unter Win7 (wohl ab Vista) sind keine interaktiven Dienste mehr erlaubt.
Interaktive Dienste lassen sich zwar noch im Objektinspektor zur Klasse TService und in der Service Management Console (Dienste) noch konfigurieren, sind aber wohl nicht mehr erlaubt.
Möglicherweise ist das, das Problem?!

Im Thread Programm von Dienst starten lassen (Jetzt aber wirklich mal) wird das Thema auch diskutiert, hat mir aber noch nicht weitergeholfen.

Ich will ja, das der Dienst über COM (DLL realisiert COM-Client) den COM-Server (die Anwendung) ausführt, damit niemand sich am Rechner anmelden muss, um die Anwendung zu starten.


Noch ein Querverweis zu diesem Problem: Windows-Dienst als COM-Client. Geht das überhaupt???

In der COM-Client-DLL ist der Aufruf wie folgt (ist zwar C++, dürfte aber wohl nichts zur Sache tun, oder?):

...

Delphi-Quellcode:

Mk_tlb::TCOMIMK_Main comobj;
        
HRESULT hr = CoCreateInstance( Mk_tlb::CLSID_MK_Main, // {82031DB1-8955-4731-9AF6-08121F2331AB}
                  NULL,
                  CLSCTX_LOCAL_SERVER, // CLSCTX_ALL geht auch
                  Mk_tlb::IID_IMK_Main, // {D676B71E-0ACF-427A-A40E-23CCDECDFA29}
                  (void**)
                  &comobj );

bool ok = SUCCEEDED( hr ); //  Fehler -2147221008

...

[Assarbad]

Zitat von Bernhard68:

2. DLL als COM-Client

Dies wird üblicherweise in COM als Proxy bezeichnet.

Zitat von Bernhard68:

Wenn ich über den Dienst, auch wenn er im Administrator-Benutzerkonto läuft,
in der DLL "CoCreateInstance" aufrufe, bekomme ich den Fehlerwert "-2147221008" zurück.

Der Hexadezimalwert ist interessanter: 800401F0. 8 am Anfang sagt uns daß es ein Fehler ist (es ist schließlich in COM immer ein HRESULT). Da das obere Word nicht 8007 ist, ist dies auch kein Win32-Fehler. Da hilft nur der Weg über FormatMessage um dem Fehler eine sinnvolle Beschreibung zu entlocken

[Bernhard68]

Danke für die Idee mit FormatMessage, Assarbad. manchmal sieht man den Wald vor lauter Bäumen nicht mehr.

Die Fehlermeldung 800401F0 "CoInitialize wurde nicht aufgerufen.\r\n" ist da leider auch nicht Zielführend. Schade.

Im Thread Windows-Dienst als COM-Client. Geht das überhaupt??? wurde eine evt. fehlende Berechtigung zur Ausführung von COM-Objekten erwähnt. Eine Gruppe zur Berechtigung für DCOM habe ich gefunden, aber das ist nicht was ich suche, oder doch?

[Bernhard Geyer]

Zitat von Bernhard68:

Die Fehlermeldung 800401F0 "CoInitialize wurde nicht aufgerufen.\r\n" ist da leider auch nicht Zielführend. Schade.

Wieso nicht Zielführend? Rufst du für den Thread in der der Com-Server läuft CoInitialize auf?

[Assarbad]

Zitat von Bernhard Geyer:

Zitat von Bernhard68:

Die Fehlermeldung 800401F0 "CoInitialize wurde nicht aufgerufen.\r\n" ist da leider auch nicht Zielführend. Schade.

Wieso nicht Zielführend? Rufst du für den Thread in der der Com-Server läuft CoInitialize auf?

@Bernhard68: Um es nochmal zu betonen, das ist per Thread.

[Bernhard68]

Das wars: CoInitialize wurde nicht aufgerufen!!!

Puh, es läuft.

Der Dienst startet das Programm und die Kommunikation läuft.
Der Dienst ist noch in "Lokales System" angemeldet und man
sieht die gestartete Anwendung nicht, aber das kriege ich bestimmt auch noch hin.

Vielen Dank für die Hilfe!!!

Mit großer Erleichterung

Bernhard

[Bernhard Geyer]

Zitat von Bernhard68:

Das wars: CoInitialize wurde nicht aufgerufen!!!

Zwischen der 5er und 6er Version wurde das Aufrufen von CoInitialize geändert. "Früher" wurde immer irgendwann mal CoInitialize aufgerufen. Ab der 6er Version wurde das z.B. mittels Application.Initialize erledigt.

Zitat von Bernhard68:

Der Dienst startet das Programm und die Kommunikation läuft.
Der Dienst ist noch in "Lokales System" angemeldet und man
sieht die gestartete Anwendung nicht, aber das kriege ich bestimmt auch noch hin.

Eher nicht. Hier hat MS änderungen ab Vista vorgenommen. Hier solltest du eine "Notify" Anwendung vorsehen die unabhängig von der Dienste-Anwendung läuft.