delphi rss ile haber alarmı

Delphi .net ve .net ile ilgili konuları buraya yazabilirsiniz.
Cevapla
ibaycik33
Üye
Mesajlar: 5
Kayıt: 25 Nis 2009 07:54

delphi rss ile haber alarmı

Mesaj gönderen ibaycik33 » 21 Ara 2011 08:55

merhaba
delphi 2009 ile haber alarmı yapmak istiyorum nasıl yapabilirim acemiyim. veya elinde örnek olan var mı acaba yardımcı olabilir misiniz rica etsem
teşekkürler şimdiden

muratsoft
Üye
Mesajlar: 5
Kayıt: 30 Nis 2005 09:54

Re: delphi rss ile haber alarmı

Mesaj gönderen muratsoft » 29 Eki 2013 09:39

var
msoft: Tmsoft;
e,a,root,ids,ida: IXMLNode;
link,dizi:array [0..50] of string;
ylink,ydizi:array [0..50] of string;
r,K,L : integer;
eskiid,id,c : integer;


procedure Tmsoft.TabItem2Click(Sender: TObject);
var
j,i :integer;

begin

suiStringGrid1.Cells[0,0]:='Kategori';
suiStringGrid1.Cells[1,0]:='Tarih';
suiStringGrid1.Cells[2,0]:='Haber';




//Haberler alınıyor
XMLDocument1.LoadFromFile('http://www.muratsoft.com/haberler.xml');
a:=XMLDocument1.DocumentElement;
suiStringGrid1.RowCount:= a.childNodes.Count+1;

for i:=0 To a.childNodes.Count-1 Do
begin

suiStringGrid1.Cells[0,i+1]:= XMLDocument1.DocumentElement.ChildNodes.ChildNodes['cat'].Text;
suiStringGrid1.Cells[1,i+1]:=XMLDocument1.DocumentElement.ChildNodes.ChildNodes['tarih'].Text;
suiStringGrid1.Cells[2,i+1]:= XMLDocument1.DocumentElement.ChildNodes.ChildNodes['baslik'].Text;
dizi:=XMLDocument1.DocumentElement.ChildNodes.ChildNodes['baslik'].Text+#13+#13+XMLDocument1.DocumentElement.ChildNodes.ChildNodes['haberkisa'].Text+#13+#13+'Okunma : '+XMLDocument1.DocumentElement.ChildNodes.ChildNodes['okunma'].Text +' - Kategori : '+XMLDocument1.DocumentElement.ChildNodes.ChildNodes['cat'].Text;
link:=XMLDocument1.DocumentElement.ChildNodes.ChildNodes['Link'].Text;

end;
ids:=XMLDocument1.DocumentElement.ChildNodes[0];



// Haberler Tamamlandı

end;

Cevapla