HTTP/1.0 302 moved temporarily. hatası

[erdogan]

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ı 

HTTP/1.0 302 Moved temporarily.  

neyin yeri değiştiki ? 

link çalışıyor
https://www.tcmb.gov.tr/kurlar/today.xml 

Kod: (Select All)

/// 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.

[uparlayan]

TCMB'den kurları için HTTPS kullanmanız gerekiyor.

Bunun için TIdSSLIOHandlerSocketOpenSSL nesnesini üretip TIdHTTP.IOHandler'e atamanız ve PassThrought özelliğini False ayarlamanız gerekiyor.

[erdogan]

(07-11-2019, Saat: 16:35)uparlayan Adlı Kullanıcıdan Alıntı: TCMB'den kurları için HTTPS kullanmanız gerekiyor.

Bunun için  TIdSSLIOHandlerSocketOpenSSL nesnesini üretip TIdHTTP.IOHandler'e atamanız ve PassThrought özelliğini False ayarlamanız gerekiyor.

hocam cevabınız için teşekkür ederim dediğinizi yaptım dizine libeay32.dll ve ssleay32.dll dosyasınıda ekledim bu defa da Error connedting with SSL. hatası aldım 

PassThrought bu kısmı bulamadım ?

[uparlayan]

TIdSSLIOHandlerSocketOpenSSL.PassThrought

[erdogan]

(07-11-2019, Saat: 17:04)uparlayan Adlı Kullanıcıdan Alıntı: TIdSSLIOHandlerSocketOpenSSL.PassThrought

hocam bende yok o özellik,

[uparlayan]

Verdiğim örnek XE7 ve XE10'da test edildi. Muhtemelen Indy'nin eski bir sürümünü kullanıyor olmalısınız.

Aşağıdaki konuyu inceleyin;

https://stackoverflow.com/questions/4038...https-gets