TXMLDocument를 이용한 XML로딩방법

TXMLDocument를 이용한 XML로딩방법

 

 

procedure TForm1.Button1Click(Sender: TObject);

Var

XMLDoc : TXMLDocument;

ChildNode : IXMLNode;

I, J , N : Integer;

begin

XMLDoc := TXMLDocument.Create(Application);

XMLDoc.LoadFromFile('C:\Test.Xml');

XMLDoc.Active := True;

 

if XMLDoc.ChildNodes.First = nil then Begin

Exit;

End;

 

For I := 0 To XMLDoc.DocumentElement.ChildNodes.count - 1 Do Begin

ChildNode := XMLDoc.DocumentElement.ChildNodes[i].ChildNodes[0];

 

For J := 0 To ChildNode.AttributeNodes.Count - 1 Do Begin

if ChildNode.AttributeNodes.Get(J).NodeValue<>Null then begin

ShowMessage(

ChildNode.AttributeNodes.Get(J).NodeName + #13 +

ChildNode.AttributeNodes.Get(J).NodeValue );

end

else

ShowMessage(

ChildNode.AttributeNodes.Get(J).NodeName + #13 +'');

End;

 

ChildNode := XMLDoc.DocumentElement.ChildNodes[i].ChildNodes[1];

For J := 0 To ChildNode.AttributeNodes.Count - 1 Do Begin

if ChildNode.AttributeNodes.Get(J).NodeValue<>Null then begin

ShowMessage(

ChildNode.AttributeNodes.Get(J).NodeName + #13 +

ChildNode.AttributeNodes.Get(J).NodeValue );

end

else

ShowMessage(

ChildNode.AttributeNodes.Get(J).NodeName + #13 +

'');

End;

End;

XMLDoc.Free;

end;