Proje çalıştığı esnada İnternetten Döviz Kurunu çekmek?

erdoganturkmen · Mesaj gönderen **erdoganturkmen** » 05 Eki 2006 11:34

Merhaba Arkadaşlar.
Yeni bir projeye başladım ve bu projede kullanıcının kayıt yaptığı esnada O anki döviz kur fiyatını bilmesi gerekiyor. Kullanıcı her kayıt yaptığı zaman internetten veya başka bir kaynaktan bu bilgiyi alması yerine formun bir köşesinde döviz kurunun lmasını istiyorum. Forumda aradım ama kur ile ilgili bilgi bulamadım

Eğer varsa da şimdiden özür diliyorum. Yardımcı olursanız çok sevinirim. Hayırlı Günler...

heskin35 · Mesaj gönderen **heskin35** » 06 Eki 2006 10:27

Sanirim forumda bahsi gecmisti ama gercekten forumda arama yapildiginda alakasiz bi cok konu da geliyor bu nedenle ilgili konulari bulmak zor olabiliyor bazen. onceki bi zamandan forumdan gordugum doviz kurlari kodlari su sekilde.

Formda 1 adet IdHTTP1 ( indy client icerisinde bulabilirsin.)
1 adet memo
1 adet buton
ve 4 adet edit var

buton

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  z,s,alis,satis,aranan:string;
  yer,i:Integer;
begin
  Memo1.Clear;
  Edit1.Text:='';
  Edit2.Text:='';
  Edit3.Text:='';
  Edit4.Text:='';
  s:=IDHttp1.Get('http://www.tcmb.gov.tr/kurlar/today.html');
  z:=IDHttp1.Get('http://www.tcmb.gov.tr/kurlar/today.html');
  aranan:='1 ABD DOLARI';
  for i:=1 to 2 do
  begin
    yer:=pos(aranan,s);
    yer:=pos(aranan,z);
    if yer=0 then
      begin
        ShowMessage('Kur bilgisi yok');
        exit;
      end
    else
      begin
        yer:=yer+length(aranan);
        s:=copy(s,yer,length(s)-yer);
        z:=copy(z,yer,length(s)-yer);
        s:=trim(s);
        z:=trim(z);
        alis:=copy(s,1,9);
        satis:=copy(z,14,9);
        Memo1.Lines.Add(aranan +' Alış   = ' + alis);
        Memo1.Lines.Add(aranan +' Satış = ' + satis);
        aranan:='1 EURO';
        Edit1.Text:=copy(Memo1.Lines.Text,23,8);
        Edit2.Text:=copy(Memo1.Lines.Text,55,8);
        Edit3.Text:=copy(Memo1.Lines.Text,82,8);
        Edit4.Text:=copy(Memo1.Lines.Text,108,8);
     end;
  end;

end;

erdoganturkmen · Mesaj gönderen **erdoganturkmen** » 06 Eki 2006 10:56

Hocam çok teşekkür ederim. Gerçekten çok işime yaradı

ikut · Mesaj gönderen **ikut** » 09 Eki 2006 12:33

erdoganturkmen yazdı:Hocam çok teşekkür ederim. Gerçekten çok işime yaradı

TODAY.HTML ile çok doğru bir yere gitmezsiniz. örneğin ben webmaster ım canım sıkıldı 1 abd doları yazmadım abd doları yazdım sadece. senin kod burada çakar. o bakımdan bu parse işelminde kod topal ördek gibi her an sakata gidebilir.

önerim. today.html yerine today.xml dosyasını part etmen.

erdoganturkmen · Mesaj gönderen **erdoganturkmen** » 10 Eki 2006 08:15

Peki Xml dosyasını part etmem için ne yapmam gerek. Sadece uzantıyı değiştirmekle olmuyo

Adresin mi farklı olması gerekiyo...

Mesaj gönderen **aLonE CoDeR** » 10 Eki 2006 10:23

ikut yazdı: TODAY.HTML ile çok doğru bir yere gitmezsiniz. örneğin ben webmaster ım canım sıkıldı 1 abd doları yazmadım abd doları yazdım sadece. senin kod burada çakar. o bakımdan bu parse işelminde kod topal ördek gibi her an sakata gidebilir.

önerim. today.html yerine today.xml dosyasını part etmen.

Aynı düzenlemenin xml için yapılmayacağı konusunda garanti mi var?