Error connedting with SSL.
link çalışıyor
https://www.tcmb.gov.tr/kurlar/today.xml
Kod: Tümünü seç
/// döviz kurları başlangıç
procedure TANA_SAYFA_PENCERE.KURLAR;
var
ADRES, DEGER, ARA, SATIS: string;
YER: integer;
begin
ADRES := IdHTTP1.Get('https://www.tcmb.gov.tr/kurlar/today.xml');
DEGER := ADRES;
ARA := 'ABD DOLARI'; /// SERBEST PİYASA ALIŞ
YER := POS(ARA, DEGER);
YER := YER + length(ARA);
DEGER := COPY(DEGER, YER, LENGTH(DEGER) - YER);
DEGER := TRIM(DEGER);
SATIS := COPY(DEGER, 1, LENGTH(DEGER) - YER);
ARA := '<ForexBuying>'; // SERBEST PİYASA ALIŞ
YER := pos(ARA, DEGER);
YER := YER + LENGTH(ARA);
DEGER := COPY(DEGER, YER, LENGTH(DEGER) - YER);
DEGER := TRIM(DEGER);
SATIS := COPY(DEGER, 1, LENGTH(DEGER) - YER);
edtUSD_ALIS.Text := COPY(SATIS, 1, 6); // sonuc
ARA := 'ABD DOLARI'; /// SERBEST PİYASA SATIŞ
YER := POS(ARA, DEGER);
YER := YER + length(ARA);
DEGER := COPY(DEGER, YER, LENGTH(DEGER) - YER);
DEGER := TRIM(DEGER);
SATIS := COPY(DEGER, 1, LENGTH(DEGER) - YER);
ARA := '<ForexSelling>'; // SERBEST PİYASA SATIŞ
YER := pos(ARA, DEGER);
YER := YER + LENGTH(ARA);
DEGER := COPY(DEGER, YER, LENGTH(DEGER) - YER);
DEGER := TRIM(DEGER);
SATIS := COPY(DEGER, 1, LENGTH(DEGER) - YER);
edtUSD_SATIS.Text := COPY(SATIS, 1, 6); // sonuc
ARA := 'EURO';
YER := POS(ARA, DEGER);
YER := YER + LENGTH(ARA);
DEGER := COPY(DEGER, YER, LENGTH(DEGER) - YER);
DEGER := TRIM(DEGER);
SATIS := COPY(DEGER, 1, LENGTH(DEGER) - YER);
ARA := '<ForexBuying>'; // Banka Alış Fiyatıdır.
YER := POS(ARA, DEGER);
YER := YER + LENGTH(ARA);
DEGER := COPY(DEGER, YER, LENGTH(DEGER) - YER);
DEGER := TRIM(DEGER);
SATIS := COPY(DEGER, 1, LENGTH(DEGER) - YER);
edtEURO_ALIS.Text := COPY(SATIS, 1, 6); // sonuc
ARA := 'EURO';
YER := POS(ARA, DEGER);
YER := YER + LENGTH(ARA);
DEGER := COPY(DEGER, YER, LENGTH(DEGER) - YER);
DEGER := TRIM(DEGER);
SATIS := COPY(DEGER, 1, LENGTH(DEGER) - YER);
ARA := '<ForexSelling>'; // Banka Alış Fiyatıdır.
YER := POS(ARA, DEGER);
YER := YER + LENGTH(ARA);
DEGER := COPY(DEGER, YER, LENGTH(DEGER) - YER);
DEGER := TRIM(DEGER);
SATIS := COPY(DEGER, 1, LENGTH(DEGER) - YER);
edtEURO_SATIS.Text := COPY(SATIS, 1, 6); // sonuc
end;
/////////////bitiş
delphi7 ve indy10 kullanıyorum.