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

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
erdoganturkmen

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

Mesaj gönderen erdoganturkmen »

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
Üye
Mesajlar: 132
Kayıt: 30 Haz 2004 09:48

Mesaj gönderen heskin35 »

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 »

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

Mesaj gönderen ikut »

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 »

Peki Xml dosyasını part etmem için ne yapmam gerek. Sadece uzantıyı değiştirmekle olmuyo :idea: Adresin mi farklı olması gerekiyo...
aLonE CoDeR
Kıdemli Üye
Mesajlar: 1223
Kayıt: 26 Nis 2005 04:08

Mesaj gönderen aLonE CoDeR »

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?
Cevapla