Delphi XML Parse Sorunsalı ( Çözüldü )

Tahribat.com Forumları
line

Delphi - Pascal
line

Delphi XML Parse Sorunsalı ( Çözüldü )

17/Şub/14 12:15

Kısayol

Şikayet

Özel Mesaj

karakutu

Kayıt Tarihi: 30/Ağustos/2005

Bir önceki konumda yani http://www.tahribat.com/Forum-Delphi-Xml-Parse-Sorunsali-Yardim-190578/ burada bu problem için çözüm aramıştım delphide amatör olduğum için internette fazlaca döküman olmasına rağmen çoğu ingilizce fazla anlayamadım Holy reyisin verdiği örnekten yola çıkarak kısmen problemi çözdüm ama başka bir sorun çıkmıştı bu sefer

mesela :

	<entry>
		<id>tag:twitter.com,2014-02-17:/onur_goksen/statuses/435350125826039808</id>
		<link href="https://twitter.com/onur_goksen/statuses/435350125826039808" rel="alternate" type="text/html"/>
		<title>onur_goksen: Şiddetle tavsiye ediyorum :) http://t.co/jsH9ueJROg</title>
		<summary type="html"><![CDATA[onur_goksen: Şiddetle tavsiye ediyorum :) http://t.co/jsH9ueJROg]]></summary>
		<content type="html"><![CDATA[<p>Şiddetle tavsiye ediyorum :) <a href="http://t.co/jsH9ueJROg">http://t.co/jsH9ueJROg</a></p>]]></content>
		<updated>2014-02-17T10:48:53+01:00</updated>
		<author><name>onur_goksen</name></author>
	</entry>

<entry> ...</entry> tagları arasında istediğim bütün verileri çekebiliyordum ancak <entry>....<author><name>xxx</name><author></entry> içinden <name> taglarını alamıyordum azimle sıçarak buldum ( bilenler için küçük benim için büyük bir başarı) örnek kod aşağıda olduğu gibidir

var
  i, kontrol: integer;
  isim, id, guncel, kim, konu: WideString;
  ana, baba: IXMLNode;
  twit, kimki: String;
begin
  kontrol := 0;

  try

    if kontrol = 0 then
    begin
      XMLDocument1.Active := false;
      XMLDocument1.FileName := 'http://localhost/rss/ZamanTuneli/';
      XMLDocument1.Active := true;
    end;
    i := 1;
    ana := XMLDocument1.DocumentElement.ChildNodes.FindNode('entry');
    baba := ana.ChildNodes.FindNode('author');

    repeat
    guncel := ana.ChildNodes.Nodes['updated'].Text;
    konu := ana.ChildNodes.Nodes['content'].Text;
    kim:=baba.ChildNodes.Nodes['name'].Text;

    i := i + 1;
    ana := ana.NextSibling;
    baba:=baba.NextSibling;



      begin

        twit := konu;
        kimki:=kim;
        break;
 break;
      end;

    Until baba = nil;
    if (twit+kimki <> '') then
    begin

if(sender<>nil) then    label1.Caption:='Update yapınız...';
       Edit1.Text := (kimki+'   '+twit);
    end;
  except

  end;

Mevzu derin | Papikolas Planet

Alıntı yap

06/May/14 00:26 Kısayol Şikayet Özel Mesaj

DuPi

Kayıt Tarihi: 21/Ağustos/2005

internette bugün gibi bir çözüm daha vardı. seninde çözümün güzel

Ne zaman birşey öğrenmek istesem, Birden Vaktim Kalmıyor ?

Alıntı yap

Toplam Hit: 2350 Toplam Mesaj: 2

Cevapla