Einladen eines XML-Dokumentes über eine DLL

[chris01]

Hi Leute,

wie der Titel des Themas schon verrät, möchte ich gerne über eine DLL ein XML-Dokument auslesen und ausgeben.

Doch wenn ich das Xml-Dokument erstellen möchte, nach diesem Code hier:

XMLDocument:=TXMLDocument.Create(nil); kommt leider immer eine Fehlermeldung mit:
CoIntialize wurde nicht aufgerufen.

Ich habe auch schon aus probiert, es ohne DLL zu machen, also alles im Hauptcode und es klappt super

Die Units: XMLIntf, XMLDoc.

Gruß
Christopher

[MathiasSimmack]

Ohne dich kritisieren zu wollen, aber die Lösung hast du doch schon selbst genannt:

Zitat von chris01:

kommt leider immer eine Fehlermeldung mit:
CoIntialize wurde nicht aufgerufen.

Soll heißen: Du musst "CoInitialize" und "CoUninitialize" (ActiveX-Unit) aufrufen. Ich habe das vor kurzem auch hier schon mal erklärt.

[chris01]

Danke! Das funktioniert jetzt, doch kommt immer noch ein Fehler, wenn ich die Dll laden möchte. Eine Exception vom Typ EPrivilege.

Hier ist der Quelltext der Funktion:

Delphi-Quellcode:

function ExtractXML : string; export;
var i:integer;
    hilfe:IXMLNodeList;
    hilfen:IXMLNode;

begin
    CoInitialize(nil);

    XMLDocument := TXMLDocument.Create(nil);

    try

    if not FileExists(XMLFileName) then
    begin
      Beep;
      MessageDlg(rsNoXML, mtError, [mbOk], 0);
      Exit;
    end;

    XMLDocument.LoadFromFile(XMLFileName);
    hilfe := XMLDocument.DocumentElement.ChildNodes;

    for i:=0 to Hilfe.Count-1 do
    begin
       Hilfen := Hilfe.Nodes[i];
       ShowMessage(Hilfen.ChildValues['id'] +' | '+Hilfen.ChildValues['func']);
    end; 

  finally
     XMLDocument.Free;
  end;
  CoUninitialize;
end;

Vielleicht kann mir einer Sagen, woran es liegt

Gruß
Christopher

P.S. Wie auch schoon oben gesagt, der Fehler kommt nur, wenn ich die Funktion in eine Dll tue und ausführen möchte.