Posts Tagged ‘delphi xml okuma’
delphi xml kullanım örneği
Nisan 13, 2010
Yorum bırakın
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;
Kategoriler:Delphi
delphi ChildNodes, delphi de xml kullanma, delphi NextSibling, delphi xml, delphi xml documentelement, delphi xml kaydet, delphi xml okuma, delphi XMLDocument, delphi xmldocument kullanımı, nextsibling delphi, xml and rss convertion txmldocument in delphi, xml delphi, xml kullanımı + delphi