Hallo zusammen,
folgendes:
ich habe eine
XML-Datei nach folgendem Schema:
XML-Code:
<?
xml version="1.0" encoding="UTF-8"?>
<inputx xmlns="http://einszweidrei.de">
<document>
<ordner>
<name>Ordner1</name>
<datei>
<name>Datei1</name>
<groesse>Groesse1</groesse>
<attribut>Attribut1</attribut>
</datei>
<ordner>
<name>Ordner2</name>
<datei>
<name>Datei2</name>
<groesse>Groesse2</groesse>
<attribut>Attribut2</attribut>
</datei>
<datei>
<name>Datei3</name>
<groesse>Groesse3</groesse>
<attribut>Attribut3</attribut>
</datei>
<datei>
<name>Datei4</name>
<groesse>Groesse4</groesse>
<attribut>Attribut4</attribut>
</datei>
<ordner>
<name>Ordner3</name>
<datei>
<name>Datei2</name>
<groesse>Groesse2</groesse>
<attribut>Attribut2</attribut>
</datei>
<datei>
<name>Datei3</name>
<groesse>Groesse3</groesse>
<attribut>Attribut3</attribut>
</datei>
<datei>
<name>Datei4</name>
<groesse>Groesse4</groesse>
<attribut>Attribut4</attribut>
</datei>
</ordner>
</ordner>
</ordner>
</document>
</inputx>
Ich möchte nun die einzelnen Ordner in eine TreeView-Komponente einlesen.
Das funktioniert auch super, wenn ich den Namespace vorher aus der Datei entferne.
Lasse ich den Namespace in der Datei, und weise ihn folgendermaßen zu, funktioniert das auslesen nicht mehr:
Delphi-Quellcode:
xmlDoc.Load(sXMLFileName);
xmlDoc.SetProperty('SelectionNamespaces','xmlns:na="http://einszweidrei.de"');
Die Ordner versuche ich nun, so einzulesen und in den TreeView zu schreiben, da ich das mit dem voranstellen von 'na:' hier im Forum gefunden habe:
Delphi-Quellcode:
procedure TfrmMain.ShowFolders(Node: IXMLDOMElement; nParent: PVirtualNode);
var
i: Integer;
nlFolders: IXMLDOMNodeList;
nName, nChild: IXMLDOMElement;
TreeData: TTreeData;
begin
ChangeCursor;
tvTree.BeginUpdate;
try
tvTree.NodeDataSize := SizeOf(TTreeData);
nlFolders := Node.selectNodes('na:Folder');
for i := 0 to Pred(nlFolders.length) do
begin
nChild := nlFolders.item[i] as IXMLDomElement;
nName := nChild.selectSingleNode('na:name') as IXMLDOMElement;
TreeData.Caption := nName.text;
TreeData.Node := nChild;
ShowFolders(nChild, AddVSTStructure(nParent, TreeData, nChild));
end;
finally
tvTree.EndUpdate;
ChangeCursor;
end;
end;
Tja, nur leider funktioniert das so nicht - nl.Folders.length bleibt 0 und der TreeView leer
(