Çok Yakında Yeni Bir Arayüzle karşınızdayız! http://yeni.delphican.com/

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
HTTP/1.0 302 moved temporarily. hatası
#1
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 



/// 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.
Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
Cevapla
#2
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.
P.Safa:Yaşlanarak değil, yaşayarak tecrübe kazanılır.Zaman insanları değil,armutları olgunlaştırır
C.Yücel:Toprak gibi olmalısın! Ezildikçe sertleşmelisin!Seni ezenler sana muhtaç kalmalı! Hayatı sende bulmalı
S.Canan:Bildiğini zannettiğin an hiç bir şey öğrenemezsin
Bilgi uçar
WWW
Cevapla
#3
(07-11-2019, Saat: 16:35)uparlayan Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.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 ?
Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
Cevapla
#4
TIdSSLIOHandlerSocketOpenSSL.PassThrought
P.Safa:Yaşlanarak değil, yaşayarak tecrübe kazanılır.Zaman insanları değil,armutları olgunlaştırır
C.Yücel:Toprak gibi olmalısın! Ezildikçe sertleşmelisin!Seni ezenler sana muhtaç kalmalı! Hayatı sende bulmalı
S.Canan:Bildiğini zannettiğin an hiç bir şey öğrenemezsin
Bilgi uçar
WWW
Cevapla
#5
(07-11-2019, Saat: 17:04)uparlayan Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.TIdSSLIOHandlerSocketOpenSSL.PassThrought

hocam bende yok o özellik,
EbKwMp.png
Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
Cevapla
#6
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;

Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
P.Safa:Yaşlanarak değil, yaşayarak tecrübe kazanılır.Zaman insanları değil,armutları olgunlaştırır
C.Yücel:Toprak gibi olmalısın! Ezildikçe sertleşmelisin!Seni ezenler sana muhtaç kalmalı! Hayatı sende bulmalı
S.Canan:Bildiğini zannettiğin an hiç bir şey öğrenemezsin
Bilgi uçar
WWW
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  WSDL - SOAP classes must derive from TRemotable hatası pro_imaj 10 238 10-11-2019, Saat: 23:51
Son Yorum: sadettinpolat
Photo Stringlist Hatası bkantur 2 91 04-11-2019, Saat: 16:20
Son Yorum: bkantur
  IDE kapanma hatası serdar 8 261 13-10-2019, Saat: 19:19
Son Yorum: serdar
  Media Player Hatası ikurt07 0 81 09-10-2019, Saat: 11:36
Son Yorum: ikurt07
  OrangeUIStyles Kurulum hatası serdar 16 566 08-10-2019, Saat: 10:30
Son Yorum: elixir84



Konuyu Okuyanlar: 1 Ziyaretçi