XMLDatafile hedef soronu

[baypipox]

merhaba arkadaşlar.
XMLTransformProvider nesnesinin XMLDatafile özelliğine, kendi cihazımdaki xml'i hedef gösterdiğimde verileri grid'e aktarabiliyorum
fakat aşağıda göreceğiniz gibi web adresini yazarsam hiç bişey alamıyorum, sizce nerde hata yapıyorum, sorunu nasıl çözebilirim?

Bu şekilde çalışıyo

Kod: Tümünü seç

XMLTransformProvider1.TransformRead.TransformationFile:='today.xtr';
XMLTransformProvider1.XMLDataFile:='today.xml';
ClientDataSet1.Open;

Böyle malesef çalışmıyo

Kod: Tümünü seç

XMLTransformProvider1.TransformRead.TransformationFile:='today.xtr';
XMLTransformProvider1.XMLDataFile:='http://www.tcmb.gov.tr/kurlar/today.xml';
ClientDataSet1.Open;

[Battosai]

Eğer sadece döviz kurları almak için lazımsa XMLDocument ile istediğinizi yapabilirsiniz...

[baypipox]

Merhaba XMLDucument'i araştıracağım. Fakat yukardaki sorunu nasıl halledebilirim.?
Sonuç olarak clientdataset'e today.xml deki bütün verileri atıyorum, sorunum today.xml dosyasının internetteki hedefini nasıl gösterecem...

[baypipox]

Sorunumu aşağıdaki gibi yaparak hallettim... ama ne kadar doğru bir yol bilemiyorum..

Kod: Tümünü seç

 XMLTransformProvider1.TransformRead.TransformationFile:='today.xtr';
 XMLDocument1.FileName:='http://www.tcmb.gov.tr/kurlar/today.xml';
 XMLDocument1.XML.SaveToFile('c:\tamer.xml');
 Sleep(1000);
 XMLTransformProvider1.XMLDataFile:='c:\tamer.xml';
 ClientDataSet1.Open;

[Battosai]

İstersen sadece XMLDocument ile StrinGrid içine döviz kurlarını alan kodları göndereyim çünkü sadece XML okumak için fazlada koda ve bileşene gerek yok...

[baypipox]

XMLDucument bileşenini daha önce hiç kullanmamıştım siz söyledikden sonra baktım ve onunla sorunumu çözdüm, sizde elinizdeki kodu paylaşırsanız kullanımı açısından zenginlik olacaktır. İlgilendiğiniz için çok teşekkür ederim, saolun..

[Battosai]

Kod: Tümünü seç

procedure TfrmMain.SpeedButton1Click(Sender: TObject);
var
ANode : IXMLNode;
kod,alis,satis:String;
i:byte;
XMLDoc:TXMLDocument;
begin
try
  XMLDoc:=TXMLDocument.Create(frmMain);
  Screen.Cursor:=crHourGlass;
  XMLDoc.FileName:='http://www.tcmb.gov.tr/kurlar/today.xml';
  XMLDoc.Active:=True;
  ANode := XMLDoc.DocumentElement.ChildNodes.FindNode('Currency');
  with DovizGrid do Begin
  ColWidths[0]:=150;
  ColWidths[1]:=100;
  ColWidths[2]:=100;
  RowCount:=14;
  i:=1;
  repeat
    kod := ANode.ChildNodes['Isim'].Text;
    alis := ANode.ChildNodes['ForexBuying'].Text;
    satis := ANode.ChildNodes['ForexSelling'].Text;
    Cells[0,i]:=kod;
    Cells[1,i]:=alis;
    Cells[2,i]:=satis;
    ANode := ANode.NextSibling;
    inc(i);
    until ANode = nil;
    FreeAndNil(XMLDoc);
    Screen.Cursor:=crDefault;
Except
  FreeAndNil(XMLDoc);
  Screen.Cursor:=crDefault;
  Application.MessageBox('Döviz kurları alınamadı.','Bilgi',MB_OK+64);
end;
End;
end;

[baypipox]

Abi senin koda bakılırsa ben baya uğraşmışım, aşağıya benim kodların linkini koyuyorum,
bu orada ben verileri çekip vt'ye kaydedip ondan sonra gösteriyom..
Vaktin olursa göz atarsın hemde forumda bulunsun, belki birisin işine yarar...
http://rapidshare.com/files/408858874/tmb.rar
İlerde buna grafik ekliyecem kısmet olursa kurların grafiksel olarak tarihe göre değişimini...
(tabii xml'den veri çekmeden sonra bide grafikle çalışmayı öğrenmem gerekiyo )
Yardımınız ve ilgiliz için çok teşekkür ederim sağlıcakla kalın...