XML-Dateien lesen mit TXMLDocument

[Burgwächter]

Hallo,
nachdem ich schon sehr viele meiner Probleme mit Hilfe des Forums lösen konnte, erst einmal Danke an alle die hier Ihr Wissen teilen.
Heute habe ich jedoch ein Prob, dass ich nicht finden kann.

Ich möchte eine XML-Datei einlesen, mein Code funkt wenn ich Ihn in einem einzelnen Projekt starte.
Wenn Ihn jedoch in einem Thread starte bekomme ich folgende Exception:

...EInvalidPointer mit Meldung 'Ungültige Zeigeroperation'.

Wenn ich die Maus über die beTreffende Zeile im Debugmodus halte bekomme ich :Privilegierte Instruktion bei 0125D204

Delphi-Quellcode:

VAR
  Files         : TStrings;
  aFile         : String;
  XML           : TXMLDocument;
  RootNode      : IXMLNode;
  Node          : IXMLNode;
.....
    if not DoNothing then Begin
      XML := TXMLDocument.Create('c:\xml\out\bb3.xml');
      for i := 0 to Files.Count -1 do begin
        //XML.LoadFromFile(a);
        xml.Active:=True;
        RootNode := xml.DocumentElement;
....

auch mit folgender Version bekomme ich den selben Fehler.

Delphi-Quellcode:

.....
    aFile:='C:\xml\out\bb3.xml';
    if not DoNothing then Begin
      XML := TXMLDocument.Create(nil);
      for i := 0 to Files.Count -1 do begin
        XML.LoadFromFile(aFile);
        xml.Active:=True;
        RootNode := xml.DocumentElement;
....

Statt xml.DocumentElement habe ich auch schon xml.childnodes['Params'] getestet.

--> übrigens das Schreiben eine XML-Datei klappt auch im Thread.

Gruß
Ralf

[himitsu]

Führe vorher mal CoInitialize im entsprechenden Thread aus und initialisiere sozusagen erstmal die COM-Objekte

TXMLDocument CoInitialize

[Burgwächter]

Hi,

ein
CoInitialize(nil);

ist schon in der EXECUTE procedure enthalten, ist es nötig in jeder weiteren procedure ein CoInitialize zu starten?

Leider bekomme ich auch beim Test mit CoInitialize in dieser procedure den selben Fehler wie zuvor.

Gruß
Ralf

[Namenloser]

Ersetze mal alle Klassen durch Interfaces. Alle Probleme mit TXMLDocument rührten bei mir bisher daher, dass ihc Klassen und Interfaces vermischt habe. Warum das nicht funktioniert steht auf einem anderen Blatt...

Edit: Ich sehe gerade es geht um Threads... dann liegt es wahrscheinlich an etwas anderem, wenn es sonst funktioniert, sorry.

[Burgwächter]

Ja, ich denke auch es muss etwas mit Threading zu tun haben, denn wie gesagt, wenn ich die procedure in einem Test in einem eigenen vcl setze klappt es. Was mir zu denken gibt ist : Privilegierte Instruktion bei 0125D204 . Leider bin ich Anfänger (3Monate) und komme einfach nicht weiter. :wall: :wall:
Hat noch jem. eine Idee? oder sollte ich auf eine andere Möglichkeit zum lesen von XML umsteigen?
Ich fand nur TXMLDocument sieht recht einfach aus.
Gruß
Ralf

[mjustin]

Zitat:

Zitat von Burgwächter

Hat noch jem. eine Idee? oder sollte ich auf eine andere Möglichkeit zum lesen von XML umsteigen?

Auf jeden Fall das hier nicht vergessen:

Delphi-Quellcode:

XML           : IXMLDocument;

(statt TXMLDocument), böse Fehler und Abstürze sind sonst möglich.

Und für jeden Thread einen eigene Instanz von IXMLDocument verwenden.

[Burgwächter]

Hallo,

Hm, dass mit IXMLDOKUMENT habe ich versucht, dann bekomme ich eine Zugriffsverletzung, beim laden der XML-Datei. :( :(

Diesmal habe ich das Problem auch wenn ich mir in einer TEST.pas einen Klickbutton mit dem Laden versehe, und nicht nur im Thread. Scheinbar habe ich die Tomaten vom Freitag immer noch auf den Augen. grrr was mache ich jetzt schon wieder falsch...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
VAR
  lXML : iXMLDocument;
  Node : IXMLNode;
  RootNode : IXMLNode;

begin
    lxml.LoadFromFile('c:\XML\out\Test.xml');
    lxml.Active:=true;
//    RootNode:= lXML.DocumentElement;
    RootNode := lXML.ChildNodes['Params'];
    Node:= Rootnode.ChildNodes['UserInfos'];
    showmessage(Node.ChildNodes['Login'].Text);
    lxml:=nil;
end;

Sollte man grundsätzlich auf TXMLDocument verzichten?

Gruß
Ralf

[Burgwächter]

:wall: :wall: :wall:

okok manchmal hilft einfach mal 100 durch 7 teilen.... natürlich von Hand, bis auf mind. 20 Stellen nach dem Komma...
egal wie, Hauptsache man denkt mal an was anderes!

Delphi-Quellcode:

lXML := TXMLDocument.Create(nil) as iXMLDocument;

Danke an ALLE die mir geholfen haben.

--> Aber, ist es erlaubt TXMLDocument mit nil aufzurufen?

Gruß
Ralf

[sirius]

Zitat:

Zitat von Burgwächter

--> Aber, ist es erlaubt TXMLDocument mit nil aufzurufen?

Ja klar. Wenn es keinen Owner gibt. Das ist doch nur Comfort für dich beim Programmieren auf den du hier verzichtest (Den du aber auch nicht verwendest).

[Namenloser]

Zitat:

Zitat von Burgwächter

:wall: :wall: :wall:

okok manchmal hilft einfach mal 100 durch 7 teilen.... natürlich von Hand, bis auf mind. 20 Stellen nach dem Komma...
egal wie, Hauptsache man denkt mal an was anderes!

Delphi-Quellcode:

lXML := TXMLDocument.Create(nil) as iXMLDocument;

Danke an ALLE die mir geholfen haben.

--> Aber, ist es erlaubt TXMLDocument mit nil aufzurufen?

Gruß
Ralf

Delphi-Quellcode:

 as iXMLDocument

kannst du dir imo sparen.