Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Merkez Bankası Döviz Kurları Hakkında
#1
Selamlar

Foruma baktığımda farklı sitelerden döviz kurları alınıyor.
Fakat direkt olarak Merkez Bankasından istenen bir tarihteki döviz kurlarına ulaşabileceğimiz bir servis olup olmadığını bilen var mıdır.

Teşekkürler
Bu dünyada kendine sakladığın bilgi ahirette işine yaramaz. 
Cevapla
#2
http://www.delphican.com/kur-alma.html
İncleyin işinize yarar. Kolay gelsin
Cevapla
#3
http://www.tcmb.gov.tr/kurlar/kurlar_tr.html içersinde kaynağı göster deyince şöyle aşağıdaki linke ulaştım,
http://www.tcmb.gov.tr/kurlar/201804/13042018.xml

detaylı; 'http://www.tcmb.gov.tr/kurlar/'+ yilAy +'/' + gunAyYil + '.xml'
şeklinde ulaşabilirsiniz.
WWW
Cevapla
#4
Selamlar

bu linki incelemiştim.
benim amacım Merkez Bankasından kurları almak istiyorum ve özellikle geçmişe dönük olanları
merkez bankasının today.xls olarak verdiği bir yer var amaç geri dönük veri çekmek

esistem hocam teşekkürler buda işimi görür sağolasın
Bu dünyada kendine sakladığın bilgi ahirette işine yaramaz. 
Cevapla
#5
Yazdığım mantıkla ilgili linkten çekebilirsiniz diye düşünüyorum.
WWW
Cevapla
#6
(13-04-2018, Saat: 17:18)esistem Adlı Kullanıcıdan Alıntı: Yazdığım mantıkla ilgili linkten çekebilirsiniz diye düşünüyorum.

aynı anda yazmışız yazdığınız işimi görür teşekkürler
Bu dünyada kendine sakladığın bilgi ahirette işine yaramaz. 
Cevapla
#7
DB kaydı yapacaksanız bu verikeri buradan toplu rapor alarak bir defaya mahsus, alınan raporu import edebilirainiz.
Cevapla
#8
merkez bankası https adrese geçtiği için artık döviz kurum çalışmıyor. SSL ilede bir türlü yapamadım. Nasıl yapılacağı hakkında fikri olan varmıdır.
Cevapla
#9
XMLDocument1.Active:=false;
//      XMLDocument1.FileName:='https://www.tcmb.gov.tr/kurlar/today.xml';
     XMLDocument1.FileName:=Adres;
     XMLDocument1.Active:=true;
     //if LogVar then Writeln('today.xml alındı.');
     baslangic:=XMLDocument1.DocumentElement.ChildNodes.FindNode('Currency');
     i:=1;
     repeat
        try
        Doviz := baslangic.Attributes['Kod'];
        alis  := baslangic.ChildNodes.Nodes['ForexBuying'].Text;
        satis := baslangic.ChildNodes.Nodes['ForexSelling'].Text;
        balis := baslangic.ChildNodes.Nodes['BanknoteBuying'].Text;
        bsatis:= baslangic.ChildNodes.Nodes['BanknoteSelling'].Text;

         i:=i+1;
         baslangic  := baslangic.NextSibling;
         except
            on E: Exception do
               begin
               //if LogVar then Writeln('Bağlantı Hatası ['+U1+','+U2+','+U3+'] ['+E.Message+']' );
              end;
         end;
        until baslangic = nil;


ben bu şekilde alıyorum.
Cevapla
#10
Merhaba.

* SSL (https) destekli XML download ve parse işlemi örneğidir.

Uses System.Net.HttpClientComponent, Xml.XMLIntf,  Xml.XMLDoc;

function TCMB_DovizKurlari( aList: TStrings ):boolean;
var
  aClient       : System.Net.HttpClientComponent.TNetHTTPClient;
  aXMLDocument  : IXMLDocument;
  aXML  : String;
  aNode : IXMLNode;

  Kod,
  Isim,
  ForexBuying,
  ForexSelling,
  BanknoteBuying,
  BanknoteSelling : String;
begin
  Result := False;
  // XML downloader with SSL/"https" support...
  aClient := TNetHTTPClient.Create(nil);
  try
    aXML    := aClient.Get( 'https://www.tcmb.gov.tr/kurlar/today.xml' ).ContentAsString;
    Result := True;
    aList.Clear;

    aXMLDocument := TXMLDocument.Create(nil);
    aXMLDocument.ParseOptions := aXMLDocument.ParseOptions+[poPreserveWhiteSpace];
    aXMLDocument.LoadFromXML( aXML );
    aNode :=  aXMLDocument.DocumentElement.ChildNodes.FindNode('Currency');
    while aNode <> nil do begin
      Kod   :=  aNode.Attributes['Kod'];
      Isim            := aNode.ChildNodes.Nodes['Isim'].Text;
      ForexBuying     := aNode.ChildNodes.Nodes['ForexBuying'].Text;
      ForexSelling    := aNode.ChildNodes.Nodes['ForexSelling'].Text;
      BanknoteBuying  := aNode.ChildNodes.Nodes['BanknoteBuying'].Text;
      BanknoteSelling := aNode.ChildNodes.Nodes['BanknoteSelling'].Text;
        aList.Add( Format( '%s (%s) : %s - %s / %s - %s', [Isim, Kod, ForexBuying, ForexSelling, BanknoteBuying, BanknoteSelling]) );
      // ...

      aNode := aNode.NextSibling; // ntTEXT
      aNode := aNode.NextSibling; // Currency
    end;
  finally
    aClient.Free;
  end;
end;



Temsili Kullanımı :

procedure TForm1.Button2Click(Sender: TObject);
var
  aList : TStringList;
begin
  aList := TStringList.Create;
  try
    if TCMB_DovizKurlari( aList ) then Showmessage( aList.Text );

  finally
    aList.Free;
  end;
end;

Saygılarımla
Muharrem ARMAN

guplouajuixjzfm15eqb.gif


Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Com Dll hakkında trpersia 4 273 19-11-2020, Saat: 02:54
Son Yorum: trpersia
  HES Kodu Sorgulaması hakkında adelphiforumz 25 1.688 17-11-2020, Saat: 22:09
Son Yorum: mrmarman
  TButtonGroup Hakkında bkantur 7 263 06-11-2020, Saat: 06:52
Son Yorum: bajerli
  Devexpress cxVerticalGrid Value Hakkında software44 3 177 03-11-2020, Saat: 14:07
Son Yorum: software44
  Anlık Döviz Kuru apachi2006 2 536 20-08-2020, Saat: 22:54
Son Yorum: hi_selamlar



Konuyu Okuyanlar: 1 Ziyaretçi