Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Döngün sürekli aynı geliyor
#1
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;
Cevapla
#2
(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?
Cevapla
#3
(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.

GZJ2ar.png




<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>
Cevapla
#4
İ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.
Cevapla
#5
(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;
Cevapla
#6
(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.


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

.zip   Project1.exe.zip (Dosya Boyutu: 951,44 KB / İndirme Sayısı: 12)
Amaç, bilginin de/aklın da zekat'ını vermek.
Cevapla
#7
(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
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Delphi güncellemesi ve JVMemoryData bileşeninde aynı anda birden çok kayıt boreas 0 191 10-03-2020, Saat: 18:03
Son Yorum: boreas
Photo cxDBGridTable da Listenen Aynı Satırları Tek Satırda Gösterme Selen 3 470 13-02-2020, Saat: 11:36
Son Yorum: Selen
  değişkene atadağımzı deger prg içnde sürekli kalması hk. sadikacar60 10 1.368 17-01-2020, Saat: 17:24
Son Yorum: sadikacar60
  Aynı kelime Kerembacioglu 2 500 14-12-2019, Saat: 05:39
Son Yorum: Kerembacioglu
  Veri tabanına aynı değeri tekrarlama arsl01 21 3.377 03-05-2019, Saat: 11:34
Son Yorum: edo



Konuyu Okuyanlar: 1 Ziyaretçi