Bankanin web sitesinden kur indirme

[Burhan_ast]

Mrb arkadaslar,

calistigimiz bankanin sitesinden kur bakabiliyoruz ekrandan sorgulama yapinca

Kod: Tümünü seç

https://online.atfbank.kz/info/exchange_period.jsp?sd=1&sm=10&sy=2006&ed=31&em=10&ey=2006&c=USD

seklinde bir link olusuyor, bu linki kullanarak ben kendim delphiden dolar kurslarini cekip programimda kullanabilirmiyim

saygilar

[mrmarman]

Bu linkteki ile aynı rakamlar mı ? Çünkü verdiğin link login ekranında takılı kalıyor.

https://online.atfbank.kz/demo/info_exchange.jsp

- Paket Programlar kısmında kaynak kodları ile birlikte verilmiş istediğin türden işlem yapan program örneği mevcut. Onu indirip uygula...

Ref : viewtopic.php?t=18498

[Burhan_ast]

Mrb

evet link bu sekilde peki login bilgilerim mevcut ise cekmem mumkunmu ?

saygilar

[mrmarman]

- Hayır ifade edemedim galba, sorumun cevabı bu değil ?

- Sizin verdiğiniz link
https://online.atfbank.kz/info/exchange ... 2006&c=USD

- Benim ulaştığım ise
https://online.atfbank.kz/demo/info_exchange.jsp

- Sizin verdiğiniz linke erişemedim çünkü benim orada hesabım yok. Dolayısı ile giriş için müsade etmedi.

- Sonradan verdiğimde ise DEMO ibaresi var. kiril alfabesiyle yazılı olduğundan anlayamıyorum. Bu benim verdiğim ikinci linkteki bilgiler güncel mi yoksa sadece örnek olsun diye mi eklenmişler..

- Eğer güncel ise logine falan gerek kalmaksızın kolayca halledebilirsiniz.

[Burhan_ast]

Mrb

2. verdiginiz link

https://online.atfbank.kz/demo/info_exchange.jsp

evet bu goruntu demo icin konulmus, sanirim guncel kurlari gormek icin login olmak lazim, login bilgileri oldugu taktirde ulasmam mumkunmudur ?

saygilar

[mrmarman]

- Siteyi incelerseniz doğru sonuca varırsınız. İlk önce login işlemi yaptırmak ondan sonra aynı session'da kur bilgisi ekranına gitmeniz gerekiyor.

- Verdiğim referanstaki program kaynak kodunu inceleyin çözüm üretebilirsiniz...

- Başarılar...

[kahraman1285]

eğer merkez bankasının kurlarını cekmek istersen daha önce kullandığım bir kod
kurgrid:tsuistringgrid
kurindir:tidhttp (internet sekmesinde)

Kod: Tümünü seç

procedure TAnaSayfa.KurlarTimer(Sender: TObject);
var s,alis,satis,aranan:string;
yer,i:integer;
begin
KurGrid.Cells[0,1]:='ABD $';
KurGrid.Cells[0,2]:='EURO';
KurGrid.Cells[1,0]:='Alış';
KurGrid.Cells[2,0]:='Satış';
try
s:=Kurindir.Get('http://www.tcmb.gov.tr/kurlar/today.html');
aranan:='ABD DOLARI';
for i:=0 to 1 do
  begin
      yer:=pos(aranan,s);
      if yer=0 then
        begin
            //StatusBar.SimpleText:='Kur Bilgisi Alınamadı';
            exit;
        end else begin
            yer:=yer+length(aranan);//bulunan yerden sonraki kısmı al
            s:=copy(s,yer,length(s)-yer);//boşlukları at
            s:=Trim(s);//sonraki  basamak kura ait alış fiyat bilgi
            alis:=copy(s,1,6);
            s:=copy(s,7,length(s)-6);//boşluklar atılır
            s:=Trim(s);
            satis:=copy(s,1,6);
            if aranan='ABD DOLARI' then
            begin
              KurGrid.Cells[1,1]:=alis;//ListBox1.Items.Strings[0];//alış fiyatından sonraki kısmı al
              KurGrid.Cells[2,1]:=satis;//ListBox1.Items.strings[1];
            end else begin
              KurGrid.Cells[1,2]:=alis;//ListBox1.Items.strings[0];//alış fiyatından sonraki kısmı al
              KurGrid.Cells[2,2]:=satis;//ListBox1.Items.strings[1];
            end;
        end;
      aranan:='EURO';
  end;
except on e:Exception do
  begin
    StatusBar.SimpleText:='Kur Bilgisi Alınamadı'+e.Message;
  end;
  end;
end;

[mrmarman]

@kahraman1285

- Linklere bakarsan Kazakistan'da çalıştıkları bir bankanın dolar kuruna ihtiyacı var, öyle görünüyor...

[Burhan_ast]

Merhaba,

Evet banka kazakistandda faaliyet gosteriyor ve bana burada kullanilan para birimlerine ait kurlar lazim

saygilar