Delphi 7 ye göre MB Döviz kurları nasıl alırız

[maydin60]

Biraz araştırma yaptım ama..

delphının ust surumlerı için MB banakası dovız kurları alma şekilleri var
delphi 7 gore olanı bulmama yardımcı olursanız ...

şimdiden cok sağolun..

[bydelphi]

(17-12-2023, Saat: 23:18)maydin60 Adlı Kullanıcıdan Alıntı: Biraz araştırma yaptım ama..

delphının ust surumlerı için MB banakası dovız kurları alma şekilleri var
delphi 7 gore olanı bulmama yardımcı olursanız ...

şimdiden cok sağolun..

Burada sürümden bağımsız çeşitli alternatifler mevcut.

https://www.delphican.com/showthread.php...d%C3%B6viz

[esistem]

(17-12-2023, Saat: 23:18)maydin60 Adlı Kullanıcıdan Alıntı: Biraz araştırma yaptım ama..

delphının ust surumlerı için MB banakası dovız kurları alma şekilleri var
delphi 7 gore olanı bulmama yardımcı olursanız ...

şimdiden cok sağolun..

yıllardır aşağıdaki kod çalışıyor, bi inceleyin,

  CONST
  DovURL : String ='https://www.tcmb.gov.tr/kurlar/today.xml';
begin
kuralis:='1';
kursatis:='1';
LABEL_CAPTION.Caption:=DATETOSTR(QKURTARIH.AsDateTime)+' - '+DATETOSTR(TARIH);
if (datetostr(QKURTARIH.AsDateTime)<>datetostr(Tarih))
  then begin
       HTTP := THTTPSend.Create;
       try
         HTTP.Timeout := 30000;
         HTTP.HTTPMethod('GET', DovURL);
       if HTTP.ResultCode = 200 then
         begin  // buy alıs ForexBuying> sell satıs  ForexSelling>
           rsp := ReadStrFromStream(HTTP.Document, HTTP.Document.Size);

           yer:=pos('ForexBuying>',rsp);
             if (yer>0)
              then begin
               kuralis:=copy(rsp,yer+12,6);
              end;
           yer:=pos('ForexSelling>',rsp);
             if (yer>0)
              then begin
               kursatis:=copy(rsp,yer+13,6);
              end;
if (kuralis<>'1') and (kursatis<>'1')
  then begin
kuralisf := strtocurr(StringReplace(kuralis,'.',',',[rfReplaceAll]));
kursatisf := strtocurr(StringReplace(kursatis,'.',',',[rfReplaceAll]));
end;

[mustafaozpinar]

(17-12-2023, Saat: 23:18)maydin60 Adlı Kullanıcıdan Alıntı: Biraz araştırma yaptım ama..

delphının ust surumlerı için MB banakası dovız kurları alma şekilleri var
delphi 7 gore olanı bulmama yardımcı olursanız ...

şimdiden cok sağolun..

Bununla ilgili küçük bir program yaptım şu adresten inceleyebilirsiniz.
https://github.com/mozpinar/tcmbkurlari

[3ddark]

(19-12-2023, Saat: 16:00)mustafaozpinar Adlı Kullanıcıdan Alıntı:

(17-12-2023, Saat: 23:18)maydin60 Adlı Kullanıcıdan Alıntı: Biraz araştırma yaptım ama..

delphının ust surumlerı için MB banakası dovız kurları alma şekilleri var
delphi 7 gore olanı bulmama yardımcı olursanız ...

şimdiden cok sağolun..

Bununla ilgili küçük bir program yaptım şu adresten inceleyebilirsiniz.
https://github.com/mozpinar/tcmbkurlari

Elinize sağlık. Ama bir iki ufak eleştiri yapmak istiyorum. Jedi bileşenleri kullanmissiniz bakmak test etmek isteyenler için engelleyici bir durum. Mümkün mertebe bileşen bağımsız olması çok daha kullanışlı ve test etmek isteyenler için kolaylık sağlar.
Xml data binding ile şablon kullanmissiniz bunu kullanmadan yapılsa anlamak isteyenler için daha iyi olur kanaatindeyim.
Tekrar elinize emeğinize sağlık

[maydin60]

(19-12-2023, Saat: 15:32)esistem Adlı Kullanıcıdan Alıntı:

(17-12-2023, Saat: 23:18)maydin60 Adlı Kullanıcıdan Alıntı: Biraz araştırma yaptım ama..

delphının ust surumlerı için MB banakası dovız kurları alma şekilleri var
delphi 7 gore olanı bulmama yardımcı olursanız ...

şimdiden cok sağolun..

Üstadım ilginiz için sagolun ama.... internet bileşenleri le ilgili bir birikimim yok... 
THTTPSend ..mesela hangi Uses ı kullanıyor bilmiyorumm..



yıllardır aşağıdaki kod çalışıyor, bi inceleyin,

  CONST
  DovURL : String ='https://www.tcmb.gov.tr/kurlar/today.xml';
begin
kuralis:='1';
kursatis:='1';
LABEL_CAPTION.Caption:=DATETOSTR(QKURTARIH.AsDateTime)+' - '+DATETOSTR(TARIH);
if (datetostr(QKURTARIH.AsDateTime)<>datetostr(Tarih))
  then begin
       HTTP := THTTPSend.Create;
       try
         HTTP.Timeout := 30000;
         HTTP.HTTPMethod('GET', DovURL);
       if HTTP.ResultCode = 200 then
         begin  // buy alıs ForexBuying> sell satıs  ForexSelling>
           rsp := ReadStrFromStream(HTTP.Document, HTTP.Document.Size);

           yer:=pos('ForexBuying>',rsp);
             if (yer>0)
              then begin
               kuralis:=copy(rsp,yer+12,6);
              end;
           yer:=pos('ForexSelling>',rsp);
             if (yer>0)
              then begin
               kursatis:=copy(rsp,yer+13,6);
              end;
if (kuralis<>'1') and (kursatis<>'1')
  then begin
kuralisf := strtocurr(StringReplace(kuralis,'.',',',[rfReplaceAll]));
kursatisf := strtocurr(StringReplace(kursatis,'.',',',[rfReplaceAll]));
end;

[esistem]

bende synapse yüklü ordan kullanıyorum.
uses : httpsend, ssl_openssl, synautil eklemeniz yeterlidir.

[maydin60]

Arkadaşlar böyle bır kod buldum ...Paylaşayım dedim...

uses MSXML ;


procedure TForm1.Button1Click(Sender: TObject);

  var
 XMLNode, ANode: IXMLNode;
 I:integer;
 L   : IXmlNodeList;
begin
 Memo1.Clear;
 XMLDocument1.Active := false;
 XMLDocument1.FileName:= 'https://www.tcmb.gov.tr/kurlar/202312/29122023.xml';
 XMLDocument1.Active := true;
 XMLNode := XMLDocument1.DocumentElement;
 ANode := XMLNode.ChildNodes.FindNode('Currency');
 L := XMLNode.ChildNodes;
 if L.Count > 0 then
 begin
    for I:= 0 to L.Count -2 do
      if SameText(L[I].NodeName,'Currency') then
         Memo1.Lines.Add(L[I].attributes['Kod']+'-'+L[I].ChildNodes['ForexBuying'].Text+'-'+L[I].ChildNodes['ForexSelling'].Text);
 end;
end;