Zugriff auf Knoten aus unterschiedlichem Namensraum

[incognito]

Hallo,

ich habe ein XML-Dokument mit mehreren Namensräumen:

<n1:n1 xmlns="urn:n1/a/001" xmlns:n1="urn:n1/001" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" n1_version="1.40"> Aufbau der XML beispielhaft:

Delphi-Quellcode:

<n1:header>
   <n1:provider>
   </n1:provider>
</n1:header>
<n1:body>
   <Knoten_A>
      <Knoten_AB>
      </Knoten_AB>
   </Knoten_A>
</n1:body>

Knoten_A und Knoten_AB gehören also zum Standardnamensraum ohne Prefix. Bei diesen habe ich nun Probleme sie über deren Namen anzusprechen.

In Delphi kann ich auf diese Knoten nun nicht zugreifen:

Delphi-Quellcode:

procedure TForm.Knoten();
var
  t             : string;
  root          : IXMLNode;
  i             : integer;

begin

 root       := XMLDocument.DocumentElement;

  i := root.ChildNodes['body'].ChildNodes.Count; // <-- gibt noch '1' zurück, hier wird noch ein Unterknoten --> Knoten_A gefunden
  i := root.ChildNodes['body'].ChildNodes['Knoten_A'].ChildNodes.Count; // gibt '0' zurück. Keine weiteren Unterknoten. In der XML sind dort zahlreiche zu finden
  t := root.ChildNodes['body'].ChildNodes['Knoten_A'].ChildNodes['Knoten_AB'].ChildNodes[0].NodeName; <-- wirft eine Zugriffsverletzung da t ja nil (?!)
// showMessage(IntToStr(i) + ' ' + t); 
 showMessage(IntToStr(i));

end;

Wenn ich z.B. auf die Eigenschaft "NodeName" zugreife, wird mir einfach ein neuer Knoten im Namensraum des übergeordneten angelegt:

 ShowMessage(root.ChildNodes['body'].ChildNodes['Knoten_A'].ChildNodes['Knoten_AB'].NodeName); gibt Message zurück: n1:Knoten_AB was im Grunde ja richtig ist aber natürlich nicht das ist was ich will.

Ich nutze Delphi 7 Enterprise, TXMLDocument Komponente, Eigenschaft DOMVendor MSXML

Mit DOM bin ich überhaupt nicht vertraut.

Kann mir jemand helfen, wie ich nun diese Knoten ansprechen kann?

Ach wenn ich übrigens nicht über den Namen des Knoten gehe, sondern über Angabe eines Index, dann werden auch weitere Unterknoten gefunden:

Delphi-Quellcode:

i := root.ChildNodes['body'].ChildNodes[0].ChildNodes[0].ChildNodes.Count; // <-- liefert '12'
i := root.ChildNodes['body'].ChildNodes['Knoten_A'].ChildNodes['Knoten_AB'].ChildNodes.Count; // <-- liefert '0'

Aber über den Index kann ich nicht gehen, da die Knoten nicht immer in der Reihenfolgen auftreten.

Danke schonmal für eure Hilfe!

Gruß, Jana