Error connedting with SSL. hatası

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
erdogan_ozkaya
Üye
Mesajlar: 808
Kayıt: 03 Eki 2007 01:00

Error connedting with SSL. hatası

Mesaj gönderen erdogan_ozkaya » 07 Kas 2019 04:41

Arkadaşlar Döviz kurları için aşağıdaki kodu kullanıyordum fakat ne oldu anlamadım aşağıdaki hatayı vermeye başladı

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ş
Yardımlarınız için teşekkür ederim.

delphi7 ve indy10 kullanıyorum.

mkysoft
Kıdemli Üye
Mesajlar: 3003
Kayıt: 25 Ağu 2003 11:35
Konum: İstanbul
İletişim:

Re: Error connedting with SSL. hatası

Mesaj gönderen mkysoft » 07 Kas 2019 11:39

Muhtemelen protokol değişmiştir. Indy'de için gerekli ayar ve değişiklikleri yapmanız lazım. https://www.cdn77.com/tls-test adresinden sitenin desteklediği protokolleri bulabilirsiniz.

erdogan_ozkaya
Üye
Mesajlar: 808
Kayıt: 03 Eki 2007 01:00

Re: Error connedting with SSL. hatası

Mesaj gönderen erdogan_ozkaya » 08 Kas 2019 08:30

Cevabınız için teşekkür ederim, evet baktım aslında destekliyor gibi görünüyor ama anlayamadım

Etkin SSL / TLS protokolü sürümleri
TLS 1.3
HAYIR


TLS 1.2 EVET
TLS 1.1 EVET
TLS 1.0 EVET
SSLv3 HAYIR
SSLv2 HAYIR

mkysoft
Kıdemli Üye
Mesajlar: 3003
Kayıt: 25 Ağu 2003 11:35
Konum: İstanbul
İletişim:

Re: Error connedting with SSL. hatası

Mesaj gönderen mkysoft » 08 Kas 2019 02:59

Delphi 7 içindeki Indy'nin TLS destekledğini sanmıyorum. Eğer güncellemediyseniz tabi.

Cevapla