Ams Ile Rss Okuyucu

[deutch]

..........

Edited July 23, 2011 by deutch

[KintaRo]

tam adresi verin

[deutch]

..........

Edited July 23, 2011 by deutch

[KintaRo]

o sitedeki xml sistemi submit get/post ile çalıştığından http.download() fonksiyonu xml sayfasi yerine index.php sayfasını indirmekte ve o yuzden hata oluşmakta. bunun yerine gerekli parametreleri http.submit() ile post ederek sonuca ulaştım.

Global Functions kodlarını aşağıdaki kodlarla değiştirin:

[codebox]function rss()

-- rss sayfasini indir
StatusDlg.Show(MB_ICONNONE);
--HTTP.Download("http://depodepo.eu/forum/index.php?type=rss;action=.xml", _TempFolder .. "\\feed.xml", MODE_TEXT, 20, 80);
tPost = {type="rss", action=".xml"}
sSubmit = HTTP.Submit("http://depodepo.eu/forum/index.php", tPost, SUBMITWEB_GET, 20, 80, nil, nil)
TextFile.WriteFromString(_TempFolder .. "\\feed.xml", sSubmit, false)
Dialog.Message("", sSubmit)
StatusDlg.Hide();

-- hata varmı kontrol et, varsa hatayı görüntüle
error = Application.GetLastError();
if (error ~= 0) then
Dialog.Message("Error", _tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION);
else

-- inen dosyayı hafızaya al
XML.Load(_TempFolder .. "\\feed.xml");

-- hata kontolü
error = Application.GetLastError();
if (error ~= 0) then
Dialog.Message("XML","Load of " .. _TempFolder .. "\\feed.xml okunamadı (" .. _tblErrorMessages[error] ..")");
else

-- başlıkları al
XML.Delimiter = "|";
feed = XML.GetXML();
topics = XML.Count("rss/channel", "item");

-- hata kontolü
error = Application.GetLastError();
if (error ~= 0) then
Dialog.Message("XML","Count of " .. _TempFolder .. "\\feed.xml okunamadı (" .. _tblErrorMessages[error] ..")");
else
-- listbox2 nin içeriğini boşalt ve
ListBox.DeleteItem("ListBox2", -1);
-- eğer başlık sayısı 0 dan büyükse
if (topics > 0) then
-- başlıklları listboxa yazdır
for i = 1, topics do
title = XML.GetValue("rss/channel/item|"..i.."/title");
error = Application.GetLastError();
ListBox.AddItem("ListBox2", title, i);
end
else
Dialog.Message("Hata", "başlıklar alınamadı!", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1)
end
end
end
end
end[/codebox]

[deutch]

....

Edited July 23, 2011 by deutch

[KintaRo]

1. hatayı gidermek için şu satırı silin:

[code]Dialog.Message("", sSubmit)[/code]

aslında bu hata değil, doğru verinin gelip gelmediğini denemek için koymuştum

2. hata için cevabımsa: "daha fazla çalışmak+aarştırma"

[MertCanDinler]

www.xstreet.org/rss.xml şuan denedm çalşyr

[KintaRo]

MertCanDinler;

Global Functions'da 5. satırı yani şunu:

[code]HTTP.Download("http://www.tnctr.com/rss/forums/1-tnc-team-rss-yayyny/", _TempFolder .. "\\feed.xml", MODE_TEXT, 20, 80);[/code]

aşağıdaki, satirla değiştirmen yeterli:

[code]HTTP.Download("www.xstreet.org/rss.xml", _TempFolder .. "\\feed.xml", MODE_TEXT, 20, 80);[/code]

[MertCanDinler]

Arkadaşlar Şmdi Türkçe Karakterler Sorun Çıkarıyor İndirdiği Feed.Xml de utf-8 bom'suz olarak kodlanmış ne yapmalıyım ?

[KintaRo]

indirdiğin xml dosyasını ver convert etmeye çalışalım

[GüN_DoGaN]

Ams 8 İ İngilizce Yapmak İçin Dil dosyasınıda Paylaşırmısınız Ben Türkçe Olarak Kurmuştum

[failed]

wordpress alt yapısını kullanan sitelerde Türkçe karakter hataları veriyor vBulletin ve DLE sistemlerinde bu hatalar olmuyor nedenini ve çözümünü bilen arkadaşlar varmı acaba

[hayal_tr]

kintaro ben tnctr yerine başka siteninkini yapmak istiyom nasıl olacak