Döngün sürekli aynı geliyor

[Kerembacioglu]

Merhaba,

Döngü ile haber ajansından veri alıyorum. Fakat sürekli aynı veri geliyor. Nerede hata yapıyorum?

Var
  XMLNode: IXMLNode;
begin
  try
    if IdIPWatch1.ForceCheck = True then
    begin
      with XMLDocument do
      begin
        ListView1.Items.Clear;
        LoadFromFile('https://www.aa.com.tr/tr/rss/default?cat=guncel');
        Active := True;
        XMLNode := XMLDocument.DocumentElement.ChildNodes.FindNode('channel');
        while XMLNode <> Nil do
        begin
          showmessage(XMLNode.ChildNodes['title'].Text);
        end;
        XMLNode := XMLNode.NextSibling;
      end;
    end;
  except
  end;
  XMLDocument.Active := False;
end;

[shooterman]

(28-10-2019, Saat: 10:40)Kerembacioglu Adlı Kullanıcıdan Alıntı: Merhaba,

Döngü ile haber ajansından veri alıyorum. Fakat sürekli aynı veri geliyor. Nerede hata yapıyorum?

Var
  XMLNode: IXMLNode;
begin
  try
    if IdIPWatch1.ForceCheck = True then
    begin
      with XMLDocument do
      begin
        ListView1.Items.Clear;
        LoadFromFile('https://www.aa.com.tr/tr/rss/default?cat=guncel');
        Active := True;
        XMLNode := XMLDocument.DocumentElement.ChildNodes.FindNode('channel');
        while XMLNode <> Nil do
        begin
          showmessage(XMLNode.ChildNodes['title'].Text);
        end;
        XMLNode := XMLNode.NextSibling;
      end;
    end;
  except
  end;
  XMLDocument.Active := False;
end;

ekran görüntüsünü ekleyebilir misin mesaja?

[Kerembacioglu]

(28-10-2019, Saat: 12:03)wiseman Adlı Kullanıcıdan Alıntı:

(28-10-2019, Saat: 10:40)Kerembacioglu Adlı Kullanıcıdan Alıntı: Merhaba,

Döngü ile haber ajansından veri alıyorum. Fakat sürekli aynı veri geliyor. Nerede hata yapıyorum?

Var
  XMLNode: IXMLNode;
begin
  try
    if IdIPWatch1.ForceCheck = True then
    begin
      with XMLDocument do
      begin
        ListView1.Items.Clear;
        LoadFromFile('https://www.aa.com.tr/tr/rss/default?cat=guncel');
        Active := True;
        XMLNode := XMLDocument.DocumentElement.ChildNodes.FindNode('channel');
        while XMLNode <> Nil do
        begin
          showmessage(XMLNode.ChildNodes['title'].Text);
        end;
        XMLNode := XMLNode.NextSibling;
      end;
    end;
  except
  end;
  XMLDocument.Active := False;
end;

ekran görüntüsünü ekleyebilir misin mesaja?

Sürekli showmessageye resimdeki veri geliyor.






<rss xmlns:atom="http://www.w3.org/2005/Atom" version="2.0">
<channel>
<title>Anadolu Ajansı Güncel Haberler</title>
<link>https://www.aa.com.tr/</link>
<description>Türkiye'den ve Dünya'dan Güncel Haberler</description>
<language>tr</language>
<image>
<url>
https://cdnassets.aa.com.tr/assets/images/aalogomin.png
</url>
<title>Anadolu Ajansı Güncel Haberler</title>
<link>https://www.aa.com.tr/</link>

</image>
<item>
<guid isPermaLink="false">1628239</guid>
<link>
https://www.aa.com.tr/tr/guncel/borsa-ha...i-/1628239
</link>
<title>Borsa haftaya yükselişle başladı </title>
<description>
Borsa İstanbul'da BIST 100 endeksi, açılışta yüzde 0,17 artışla 100.385,44 seviyesine yükseldi.
</description>
<pubDate>Mon, 28 Oct 2019 10:06:25 +0300</pubDate>
<image>
https://cdnuploads.aa.com.tr/uploads/Con...a26224.jpg
</image>

</item>
<item>
<guid isPermaLink="false">1628235</guid>
<link>
https://www.aa.com.tr/tr/guncel/tuncelid...di/1628235
</link>
<title>Tunceli'de bir terörist etkisiz hale getirildi</title>
<description>
İç güvenlik operasyonları kapsamında Tunceli kırsalında bir terörist silahlarıyla etkisiz hale getirildi.
</description>
<pubDate>Mon, 28 Oct 2019 09:58:28 +0300</pubDate>
<image>
https://cdnuploads.aa.com.tr/uploads/Con...988015.jpg
</image>
</item>

</channel>

</rss>

[shooterman]

İlk bakışta childnode sadece 1 tane görünüyor. İç içe bir başka yapı gerekebilir. Programı hangi delphi versiyonunda yazıyorsun. sorgulama butonunun tam kodunu yapıştırabilir misin buraya. Kendimde bir denemek istiyorum. Eğer sıkıntı yoksa, mail adresime programı gönderebilirsin. Kullandığın bileşenleri göreyim.

[Kerembacioglu]

(28-10-2019, Saat: 13:07)wiseman Adlı Kullanıcıdan Alıntı: İlk bakışta childnode sadece 1 tane görünüyor. İç içe bir başka yapı gerekebilir. Programı hangi delphi versiyonunda yazıyorsun. sorgulama butonunun tam kodunu yapıştırabilir misin buraya. Kendimde bir denemek istiyorum. Eğer sıkıntı yoksa, mail adresime programı gönderebilirsin. Kullandığın bileşenleri göreyim.

Delphi 10.2 kullanıyorum fremonkey ile masa üstü için uygulamayı yapıyorum

procedure TForm1.BtnAktarClick(Sender: TObject);
 Var
  XMLNode: IXMLNode;
begin
  try
    if IdIPWatch1.ForceCheck = True then
    begin
      with XMLDocument do
      begin
        ListView1.Items.Clear;
        LoadFromFile('https://www.aa.com.tr/tr/rss/default?cat=guncel');
        Active := True;
        XMLNode := XMLDocument.DocumentElement.ChildNodes.FindNode('channel');
        while XMLNode <> Nil do
        begin
          showmessage(XMLNode.ChildNodes['title'].Text);
        end;
        XMLNode := XMLNode.NextSibling;
      end;
    end;
  except
  end;
  XMLDocument.Active := False;
end;

[hi_selamlar]

(28-10-2019, Saat: 13:36)Kerembacioglu Adlı Kullanıcıdan Alıntı:

(28-10-2019, Saat: 13:07)wiseman Adlı Kullanıcıdan Alıntı: İlk bakışta childnode sadece 1 tane görünüyor. İç içe bir başka yapı gerekebilir. Programı hangi delphi versiyonunda yazıyorsun. sorgulama butonunun tam kodunu yapıştırabilir misin buraya. Kendimde bir denemek istiyorum. Eğer sıkıntı yoksa, mail adresime programı gönderebilirsin. Kullandığın bileşenleri göreyim.

Delphi 10.2 kullanıyorum fremonkey ile masa üstü için uygulamayı yapıyorum

procedure TForm1.BtnAktarClick(Sender: TObject);
 Var
  XMLNode: IXMLNode;
begin
  try
    if IdIPWatch1.ForceCheck = True then
    begin
      with XMLDocument do
      begin
        ListView1.Items.Clear;
        LoadFromFile('https://www.aa.com.tr/tr/rss/default?cat=guncel');
        Active := True;
        XMLNode := XMLDocument.DocumentElement.ChildNodes.FindNode('channel');
        while XMLNode <> Nil do
        begin
          showmessage(XMLNode.ChildNodes['title'].Text);
        end;
        XMLNode := XMLNode.NextSibling;
      end;
    end;
  except
  end;
  XMLDocument.Active := False;
end;

Merhabalar,

var
       StartItemNode, ANode: IXMLNode;
       sTitle, sDescription: WideString;
begin
       try
               XMLDocument1.Active:=False;
               XMLDocument1.LoadFromFile('https://www.aa.com.tr/tr/rss/default?cat=guncel');
               XMLDocument1.Active := True;
               StartItemNode := XMLDocument1.DocumentElement.ChildNodes.First.ChildNodes.FindNode('item');
               ANode := StartItemNode;

               repeat

                       sTitle := ANode.ChildNodes['title'].Text;
                       sDescription := ANode.ChildNodes['description'].Text;

                       ShowMessage(Format('Başlık : %s --- İçerik : %s',[sTitle,sDescription]));
                       ANode := ANode.NextSibling;
               until ANode = Nil;

       finally
               XMLDocument1.Active:=False;
               Showmessage('Başarı ile tamamlandı.');
       end;

Kolay gelsin.


  AA_XML_Oku.zip (Dosya Boyutu: 54,62 KB / İndirme Sayısı: 13)

  Project1.exe.zip (Dosya Boyutu: 951,44 KB / İndirme Sayısı: 13)

[Kerembacioglu]

(28-10-2019, Saat: 14:21)hi_selamlar Adlı Kullanıcıdan Alıntı:

(28-10-2019, Saat: 13:36)Kerembacioglu Adlı Kullanıcıdan Alıntı: Delphi 10.2 kullanıyorum fremonkey ile masa üstü için uygulamayı yapıyorum

procedure TForm1.BtnAktarClick(Sender: TObject);
 Var
  XMLNode: IXMLNode;
begin
  try
    if IdIPWatch1.ForceCheck = True then
    begin
      with XMLDocument do
      begin
        ListView1.Items.Clear;
        LoadFromFile('https://www.aa.com.tr/tr/rss/default?cat=guncel');
        Active := True;
        XMLNode := XMLDocument.DocumentElement.ChildNodes.FindNode('channel');
        while XMLNode <> Nil do
        begin
          showmessage(XMLNode.ChildNodes['title'].Text);
        end;
        XMLNode := XMLNode.NextSibling;
      end;
    end;
  except
  end;
  XMLDocument.Active := False;
end;

Merhabalar,

var
       StartItemNode, ANode: IXMLNode;
       sTitle, sDescription: WideString;
begin
       try
               XMLDocument1.Active:=False;
               XMLDocument1.LoadFromFile('https://www.aa.com.tr/tr/rss/default?cat=guncel');
               XMLDocument1.Active := True;
               StartItemNode := XMLDocument1.DocumentElement.ChildNodes.First.ChildNodes.FindNode('item');
               ANode := StartItemNode;

               repeat

                       sTitle := ANode.ChildNodes['title'].Text;
                       sDescription := ANode.ChildNodes['description'].Text;

                       ShowMessage(Format('Başlık : %s --- İçerik : %s',[sTitle,sDescription]));
                       ANode := ANode.NextSibling;
               until ANode = Nil;

       finally
               XMLDocument1.Active:=False;
               Showmessage('Başarı ile tamamlandı.');
       end;

Kolay gelsin.

Eline sağlık