Yeni Merkez Bankası Kurlarını Alma

[omer42u]

Merhaba Arkadaşlar;
Merkez bankası kur alma sayfasını yenileyince kurları otomatik olarak alamaz oldum eskiden http://www.tcmb.gov.tr/kurlar/today.html sayfasından alıyordum ama artık o sayfa yok şimdi http://www.tcmb.gov.tr/kurlar/today.xml sayfasından almam gerekiyor aşağıdaki kodumu nasıl düzenlemem gerekiyor yardımcı olurmusunuz ben yapamadım malesef.

Proğramda kullandığım kod:

Kod: Tümünü seç

procedure TForm1.kur1Click(Sender: TObject);
var
k,ze,s,se,alis,alise,satis,satise,aranan,aranan2:string;
yer,yere,i:Integer;

begin
try
begin
 panel1.Visible:=true;
end;
s:=IDHttp1.Get('http://www.tcmb.gov.tr/kurlar/today.html');
k:=IDHttp1.Get('http://www.tcmb.gov.tr/kurlar/today.html');
se:=IDHttp1.Get('http://www.tcmb.gov.tr/kurlar/today.html');
ze:=IDHttp1.Get('http://www.tcmb.gov.tr/kurlar/today.html');
aranan:='1 ABD DOLARI';
aranan2:='1 EURO';
for i:=1 to 1 do
begin
yer:=pos(aranan,s);
yer:=pos(aranan,k);
yere:=pos(aranan2,se);
yere:=pos(aranan2,ze);
if yer=0 then
begin
label10.Caption:='Kur bilgisi yok';
exit;
end
else
begin
yer:=yer+length(aranan);
yere:=yere+length(aranan2);
s:=copy(s,yer,length(s)-yer);
k:=copy(k,yer,length(s)-yer);
se:=copy(se,yere,length(se)-yere);
ze:=copy(ze,yere,length(se)-yere);
s:=trim(s);
k:=trim(k);
se:=trim(se);
ze:=trim(ze);
alis:=copy(s,1,9);
satis:=copy(k,14,9);
alise:=copy(se,1,10);
satise:=copy(ze,14,10);
label14.Caption:=satis;
label13.Caption:=satise;
label10.Caption:='Kurlar Güncellendi...';
end;
end;
except
case Application.MessageBox('Kur bilgisi alınamadı. Manuel olarak girmek itermisiniz?','Uyarı', MB_YESNOCANCEL or MB_ICONQUESTION) of
 IDYES: form18.ShowModal;
 IDNO  : abort;
 IDCANCEL: abort;
end;
end;
    end;

[unicorn64]

Forumda xmlden kur bilgilerini alma konusunda örnekler var arama bolumunden ulaşabilirsiniz.
Ayrica yapamadim malesef dediginiz kısım alırsınıziginiz kadarıni ve anlamadiginiz/hata aldiginiz vs kısmı yazarsaniz daha net cevaplar alirsiniz

[omer42u]

baglantı linklerini http://www.tcmb.gov.tr/kurlar/today.xml olarak değiştirdim ama
ncyName>EU bu değer geliyor sonuç olarak nasıl olacak bulamadım

[barisatalay]

Aşağıdaki linkteki konuda bir örnek procedure hazırlamıştım işinize yarayabilir.

http://delphiturkiye.com/forum/viewtopi ... =2&t=33204

[omer42u]

barisatalay sizdeki farklı bir sistem olmuş benim projeyi baştan değiştirmem gerekir mevcut kod üzerinde değişiklik yaparak sorunu çözemezmiyiz acaba ?

[barisatalay]

Valla tavsiye etmem açıkçası sonuçta xml bi yapı hazır componenti var delphinin ama illaki siz diyorsunuz ki parse edicem ozaman zaten
IDHttp1.Get('http://www.tcmb.gov.tr/kurlar/today.xml'); yapınca herşey elinizin altına gelmektedir.

[omer42u]

işte ben o kadar anlamıyorum bu delphiden verdiğim kodu güncelleyebilecek bi arkadaş bulsam çok minnettar olacağım olmazsa sizin dediğiniz gibi araştırıp yapacağım bi şekilde ama anlamayınca çok uğraştırıyor işte

[barisatalay]

Bence anlamıyorum diyerek kenara atmak iyi değil,
Önce hangisinin daha kolay olabileceğini araştırın bence sizin yöntemiziniz içeriden 1 karakter değişirse bile patlama ihtimali var fakat xml yöntemi taglar değişmediği sürece kullanılışlıdır.

Sonuç olarak sadece sayıları alacaksınız alınmak istenen sonuç aynı gibi geldi bana.