Yorumları: 18
Konuları: 4
Kayıt Tarihi: 08-12-2018
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 16 Başlangıç
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..
Yorumları: 231
Konuları: 42
Kayıt Tarihi: 05-08-2019
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 1.176 Programcı
(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
İmkanın sınırı, imkansızın yanıbaşındadır. Denemeden bilemezsin.
Yorumları: 861
Konuları: 35
Kayıt Tarihi: 12-08-2016
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 3.759 Uzman
(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;
Yorumları: 230
Konuları: 5
Kayıt Tarihi: 22-10-2018
Aktif Kullandığınız Delphi Sürümü:
- Delphi 10.2
- Delphi 10.1
- Delphi 7
- Lazarus / FPC
Rep Puanı: 1.793 Programcı
(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
Yorumları: 476
Konuları: 61
Kayıt Tarihi: 05-02-2017
Aktif Kullandığınız Delphi Sürümü:
- Delphi 10.2
- Delphi 10.1
- Delphi 7
Rep Puanı: 3.144 Uzman
(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
Yorumları: 18
Konuları: 4
Kayıt Tarihi: 08-12-2018
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 16 Başlangıç
(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;
Yorumları: 861
Konuları: 35
Kayıt Tarihi: 12-08-2016
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 3.759 Uzman
bende synapse yüklü ordan kullanıyorum.
uses : httpsend, ssl_openssl, synautil eklemeniz yeterlidir.
Yorumları: 18
Konuları: 4
Kayıt Tarihi: 08-12-2018
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 16 Başlangıç
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;
|