Exception EOleSysError: CoInitialize wurde nicht aufgerufen.

[The-X]

^^ die kommt z.B. wenn ich den Desktop Hintergrund ändern will (incl. Active Desktop)

Delphi-Quellcode:

procedure ChangeWallpaper(aFile: String);
 const CLSID_ActiveDesktop: TGUID = '{75048700-EF1F-11D0-9888-006097DEACF9}';
var
  hObj: IUnknown;
  ADesktop: IActiveDesktop;
  wstr: PWideChar;
begin
  hObj     := CreateComObject(CLSID_ActiveDesktop); // hier gibt's die Exception
  ADesktop := hObj as IActiveDesktop;
  wstr := AllocMem(MAX_PATH);
  try
    StringToWideChar(aFile, wstr, MAX_PATH);
    ADesktop.SetWallpaper(wstr, 0);
    ADesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);
  finally
    FreeMem(wstr);
  end;

  SystemParametersInfo(SPI_SETDESKWALLPAPER,0,pointer(aFile),
    SPIF_SENDWININICHANGE);
end;

Stelle im Source markiert ... // hier

Die erscheint aber nur, weil ich keine Formulare benutze? , da ich das ganze direkt in die dpr packe um das prog klein zu halten (75K).... da gleiche problem hatte ich bei einer eigenen CPL (Systemsteuerung) und da hatte ich Formulare (ohne wäre auch ziemlich sinnlos *gg*)
allerdings bei der TShellLink-Komponente...

Hat zufällig jemand eine Lösung für mich? ich find das ganze nämlich ziemlich "bescheiden"

[Luckie]

Wenn du das liest:

Zitat:

Exception EOleSysError: CoInitialize wurde nicht aufgerufen.

Was würdest du tun, um den Fehler zu beseitigen? Mal was anderes aus dem wirklcihen Leben, soll es ja auch noch geben. Die schaltest eine Lampe ein und eine Stimme sagt: "Kann kein Licht machen, weil keine Birne eingeschraubt ist." Was machst du dann?

[The-X]

Luckie mein Lieber das würde ich ja gerne tun, wenn ich nur wüsste zu welchem Objekt diese funktion gehört ??

denn z.B. in der Standalone-Version von meinem StartUp-Manager taucht das Problem beim Verknüpfung auslesen nicht auf... nur in der Cpl-Version

[edit] btw. ich finde diese funktion bei keinem einzigen Objekt...
lediglich so:

Zitat von Code Hint:

Const ComObj.CoInitializeEx: TCoInitializeExProc - ComObj.Pas (401)

und was ich damit machen soll ? Keine Ahnung ?
[/edit]

[Luckie]

Zitat von The-X:

Luckie mein Lieber das würde ich ja gerne tun, wenn ich nur wüsste zu welchem Objekt diese funktion gehört ??

CreateComObject braucht diesen Aufruf eventuell vorher?

Zitat:

denn z.B. in der Standalone-Version von meinem StartUp-Manager taucht das Problem beim Verknüpfung auslesen nicht auf... nur in der Cpl-Version

Anderer Code?

Zitat:

[edit] btw. ich finde diese funktion bei keinem einzigen Objekt...
lediglich so:

Zitat von Code Hint:

Const ComObj.CoInitializeEx: TCoInitializeExProc - ComObj.Pas (401)

Scheint wohl in der Unit ComObj zu liegen. Und warum suchst du diese Funktion als eine Eigenschaft von irgendwelechen Objekten?

Zitat:

und was ich damit machen soll ? Keine Ahnung ?
[/edit]

Aufrufen eventuell?

[Jens Schumann]

Hallo,
hier ist die CoInitialize Funktion aus dem Windows API gemeint.
CoUnInitialize nicht vergessen !!! und in der Win32-Referenz nachschauen.
Oder dort: CoInitialize

[MathiasSimmack]

Zitat von Luckie:

Mal was anderes aus dem wirklcihen Leben, soll es ja auch noch geben. Die schaltest eine Lampe ein und eine Stimme sagt: "Kann kein Licht machen, weil keine Birne eingeschraubt ist." Was machst du dann?

Ich drehe mich um und suche den Sprecher.


@The-X: Was machst du, wenn der Active Desktop nicht aktiv ist? klick, klick.

[The-X]

matthias? was denkst du denn, woher ich diesen Code (zum teil jedenfalls) her habe ???
desweiteren geht es mir mehr um diese exception als um das ändern des Hintergrundes an sich

ich häng gleich mal das ganze gezippt an... dann könnt ihr ja selber mal guggn, weil ich werd daraus nicht schlau... wenn ich die Procedure über eine Form aufrufe funktioniert's einwandfrei,
aber wenn ich diese Procedure in einem Programm ohne Formulare einfach in eine .dpr kopiere, compiliere und dann aufrufe kommt in der ersten Code-Zeile (wie markiert) diese verdammte Exception

und was den Active-Desktop angeht... ohne ihn funktioniert's ja.
erst nachdem ich den Source zum ändern vom AD mit reingetan hab kam die Exception

[The-X]

Zitat von Jens Schumann:

Hallo,
hier ist die CoInitialize Funktion aus dem Windows API gemeint.
CoUnInitialize nicht vergessen !!! und in der Win32-Referenz nachschauen.
Oder dort: CoInitialize

seit wann ist eine Konstante eine Funktion ?

Zitat von Code Hint:

Const ComObj.CoInitializeEx: TCoInitializeExProc - ComObj.Pas (401)

und dazu

Zitat von Luckie:

Zitat von The-X:

denn z.B. in der Standalone-Version von meinem StartUp-Manager taucht das Problem beim Verknüpfung auslesen nicht auf... nur in der Cpl-Version

Anderer Code?

^^ Ja, aber auch Unit ShlObj bzw. ComObj um Verknüpfungen auszulesen.

[The-X]

Hat sich erledigt

Unit ActiveX eingebunden,
CoInitialize(nil);
am Anfang, und
CoUnInitialize;
am Ende der Procedure aufgerufen

und schwupps war die exception weg

[OT]
k.a. warum aber ich komme zu der Folgerung, das Unit Forms auch Unit ActiveX benutzt?
weil sonst ist kein Unterschied festzustellen ?
[/OT}

[MathiasSimmack]

Nur mal so: Das Problem tritt bspw. auch auf, wenn man den MS-XML-Parser in einer Konsolen- oder nonVCL-Anwendung benutzen will. Bei der VCL gibt es garantiert eine der eingebundenen Units, die ihrerseits "CoInitialize" aufruft. Ansonsten muss man es selbst machen. Ich habe es mir inzwischen angewöhnt, es auch in VCL-Apps grundsätzlich selbst aufzurufen:

Delphi-Quellcode:

unit Form1;

{ ... }

initialization
  CoInitialize(nil);
finalization
  CoUninitialize;
end.

und damit bin ich bisher recht gut gefahren.