Fehler beim Laden eines XML-Dokuments

[St.Pauli]

Ich habe ein Problem beim Umgang mit IXMLDocument bzw. TXMLDocument. Beim Laden kommt ständig folgende Fehlermeldung: "Im Projekt Test.exe ist eine Exception der Klasse EOleSysError mit der Meldung 'CoInitialize wurde nicht aufgerufen' aufgetreten."

Delphi-Quellcode:

program Test;

{$APPTYPE CONSOLE}

uses
  XMLDoc,
  XMLIntf;

var
  XMLDocument: IXMLDocument;

const
  FileName = 'C:\Test.xml';

begin
  Assert(FileExists(FileName));

  XMLDocument := LoadXMLDocument(FileName);

  // Auch das funktioniert nicht:
  // XMLDocument := TXMLDocument.Create(nil);
  // XMLDocument.LoadFromFile(FileName);

  ReadLn;
end.

[marabu]

Hallo,

mache was der Laufzeitfehler dir nahelegt: Binde die Unit ActiveX ein und rufe CoInitialize(nil) auf, bevor du auf das COM-Subsystem zugreifst.

Grüße vom marabu

[St.Pauli]

Ahhhhh, Danke marabu. Es klappt...