Bei verwenden von Komponente für WMI Fehler

[JasonDX]

Alter Mann hat mir diese (also seine ;) ) Komponenten empfohlen, um WMI-Klassen auszulesen
Sie funktioieren auch ziemlich gut, zumindest in einer normalen Applikation.

Will ich jedoch das Forumlar mit den Komponenten nicht mehr in einer normalen App erstellen, sondern in eine dll packen, bekomme ich bei dieser zeile

Delphi-Quellcode:

WMIDataset1.Execute;

folgende Fehlermeldung:

Zitat...

---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EOleSysError with message 'CoInitialize wurde nicht aufgerufen'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

Zumindest krieg ich die Fehlermeldung nicht, wenn ich diese Zeile ausklammere ;)

Liegt der Fehler irgendwo bei mir, bei den Komponenten oder woanders?


Im Anhang die DLL, wie das ganze gelöst wird.

Der Aufruf erfolgt so:

Delphi-Quellcode:

//...
procedure GetClassProperties(ClassName: PChar; PropertyCount: PInteger;
    DeviceCount: PInteger; aProperties: Pointer); stdcall;
external 'F:\Chimaira\My Documents\Active Projects\NAMP\TVInterface\WMIDLL\WMIClass.dll';
//...
GetClassProperties('Win32_Processor', @PropCount, @DevCount, Result);
//...

[ReDoX]

hi,
das Problem hatte ich auch schon mal zwar nicht mit der Komponente aber auch mit CoInitialize.
Du musst

Delphi-Quellcode:

 CoInitialize(nil);

und

Delphi-Quellcode:

 CoUninitialize;

aufrufen.
Mfg ReDoX

[Alter Mann]

Hallo

Kleine Frage an Chimaira:

Welchen Namenspace nutzt Du denn? Im OI ist bei WMIConnect nichts eingetragen und im Source wird
auch kein Namespace zugewiesen.

Gruß.

PS Wenn Möglich schicke mal ein App die die Function der DLL nutzt. (PN)

[JasonDX]

@ReDoX: Klappt
Wenn man sich jetzt die Lösung anschaut und sich die Fehlermeldung durchliest, hätt man eigentlich selber draufkommen müssen :wall:
THX!!

@Alter Mann: NameSpace is root\CIMV2, bei WMIConnect is die andere Kompo eingetragen