Hallo,
ich verwende folgenden Source, um NodeValues auszulesen:
Delphi-Quellcode:
uses XDom_4_1;
.......
DomImplementation1:=TDomImplementation.create(self);
XmlToDomParser1:=TXmlToDomParser.create(self);
XmlToDomParser1.DOMImpl:=DomImplementation1;
Doc := XmlToDomParser1.ParseFile(AppDataDir + '\Devices.xml', false);
List:=Doc.getElementsByTagName('Device');
if Assigned(List) and (List.length>0) then
for i := 0 To List.length -1 do begin
SubList:=List.item(i).childNodes;
for j:=0 to SubList.length-1 do begin
ShowMessage(Sublist.Item(j).NodeName+': '+SubList.Item(j).NodeValue);
end;
end;
XmlToDomParser1.Free;
DomImplementation1.Free;
In der Anzeige erscheint zwar der korrekte NodeName (z.B. "Address"), aber die NodeValue ist leer ?
Was mache ich falsch ?
Anbei noch das
XML:
XML-Code:
<?
xml version="1.0" encoding="UTF-8"?>
<XI>
<Devices>
<Device serial="339362">
<Address>1</Address>
<Name>Gesamt</Name>
<Berechnet>0</Berechnet>
</Device>
</Devices>
</XI>
Danke,
Sebastian