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
delphi rss ile haber alarmı
Re: delphi rss ile haber alarmı
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;
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;