merhaba arkadaşlar bir sorum olacak bir site XML verisini çektiğimde nodeleri okurken hata alıyorum
kod aşağıda.
Hata:
Kod:
Kod: Tümünü seç
procedure TFrmNamazVakitleri.XMLCek(AIl:string='Adana');
var
StartItemNode, ANode : IXMLNode;
imsak, gunes, ogle, ikindi, aksam,yatsi,tarih : widestring;
Veri:string;
begin
XMLDocument1.Active:=False;
XMLDocument1.FileName:='http://www.imsakiyesi.com/xml/gunluk/adana.xml';
XMLDocument1.Active:=True;
StartItemNode := XMLDocument1.DocumentElement.ChildNodes.First.ChildNodes.FindNode('vakitler');
ANode := StartItemNode;
repeat
TmsLblSehir.Caption.Text:=AIl;
TmsLblUlke.Caption.Text:='Türkiye';
LblImsakSaat.Caption := UTF8Decode(StartItemNode.ChildNodes['imsak'].Text);
LblGunesSaat.Caption := UTF8Decode(StartItemNode.ChildNodes['gunes'].Text);
LblOgleSaat.Caption := UTF8Decode(ANode.ChildNodes['ogle'].Text);
LblIkindiSaat.Caption:= UTF8Decode(ANode.ChildNodes['ikindi'].Text);
LblAksamSaat.Caption := UTF8Decode(ANode.ChildNodes['aksam'].Text);
LblYatsiSaat.Caption := UTF8Decode(ANode.ChildNodes['yatsi'].Text);
ANode := ANode.NextSibling;
until ANode = nil;
end;