delphi xml kullanım örneği

XML kullanabilmemiz için XMLDocument nesnesi ile işlem yapmamız gerekiyor.Elimizdeki xml örneği aşağıdaki gibi olsun:

<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<channels>
  <channel>
    <item>
      <title>Title1</title>
      <description>desc1</description>
      <link>link1</link>
    </item>
    <item>
      <title>Title2</title>
      <description>desc2</description>
      <link>link2</link>
    </item>
    <item>
      <title>Title3</title>
      <description>desc3</description>
      <link>link3</link>
    </item>
  </channel>
</channels>

Aşağıdaki program da başlık.link ve açıklama alanını listbox’a atan basit bir örnektir.

procedure XMLOku;
var
   StartItemNode, ANode : IXMLNode;
   sTitle, sDesc, sLink : widestring;
begin
   XMLDocument1.Active:=False;
   XMLDocument1.FileName := 'c:\read.xml';
   XMLDocument1.Active:=True;
   StartItemNode := XMLDocument1.DocumentElement.ChildNodes.First.ChildNodes.FindNode('item');
   ANode := StartItemNode;
   repeat
     sTitle := UTF8Decode(ANode.ChildNodes['title'].Text);
     sLink  := UTF8Decode(ANode.ChildNodes['link'].Text);
     sDesc  := UTF8Decode(ANode.ChildNodes['description'].Text);
     ListBox1.Items.Add(sTitle+' - '+sLink +' - '+sDesc);
     ANode  := ANode.NextSibling;
   until ANode = nil;
end;