Error connedting with SSL. hatası

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

Error connedting with SSL. hatası

Mesaj gönderen erdogan_ozkaya »

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: 3050
Kayıt: 26 Ağu 2003 12:35
Konum: İstanbul
İletişim:

Re: Error connedting with SSL. hatası

Mesaj gönderen mkysoft »

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: 826
Kayıt: 03 Eki 2007 02:00

Re: Error connedting with SSL. hatası

Mesaj gönderen erdogan_ozkaya »

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: 3050
Kayıt: 26 Ağu 2003 12:35
Konum: İstanbul
İletişim:

Re: Error connedting with SSL. hatası

Mesaj gönderen mkysoft »

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

Kullanıcı avatarı
greenegitim
Üye
Mesajlar: 708
Kayıt: 28 Nis 2011 10:33
Konum: İstanbul

Re: Error connedting with SSL. hatası

Mesaj gönderen greenegitim »

https://indy.fulgan.com/SSL/
buradan güncel dll leri proje klasörünüze ekleyip deneyebilir misiniz?
Mücadele güzelleştirir!

3ddark
Üye
Mesajlar: 86
Kayıt: 14 Eyl 2010 10:55
Konum: İstanbul

Re: Error connedting with SSL. hatası

Mesaj gönderen 3ddark »

PostgreSQL - Delphi - Linux :!:

Cevapla