Merkez Bankasindan Gunluk Doviz Kurlarini Alma Kodu
| ||||
procedure TForm1.FormCreate(Sender: TObject);
var
z,ze,s,se,alis,alise,satis,satise,aranan,aranan2:string;
yer,yere,i:Integer;
begin
s:=IDHttp1.Get(‘http://www.tcmb.gov.tr/kurlar/today.html’);
z:=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,z);
yere:=pos(aranan2,se);
yere:=pos(aranan2,ze);
if yer=0 then
begin
ShowMessage(‘Kur bilgisi yok’);
exit;
end
else
begin
yer:=yer+length(aranan);
yere:=yere+length(aranan2);
s:=copy(s,yer,length(s)-yer);
z:=copy(z,yer,length(s)-yer);
se:=copy(se,yere,length(se)-yere);
ze:=copy(ze,yere,length(se)-yere);
s:=trim(s);
z:=trim(z);
se:=trim(se);
ze:=trim(ze);
alis:=copy(s,1,9);
satis:=copy(z,14,9);
alise:=copy(se,1,10);
satise:=copy(ze,14,10);
label5.caption:= alis + ‘YTL’ ;
label7.caption:= satis + ‘YTL’ ;
label11.caption:= alise + ‘YTL’ ;
label9.caption:= satise + ‘YTL’ ;
end;
end;
end;
Benzer Yazılar:
- Merkez Bankası Döviz Kurları
- Avcı Temel
- Avcı Temel
- ASCII Kodlarını Bulmak
- Pınar Aylin – Masal Bu ya 2009
- Pilot
- Ücretsiz Süper Yazılımlar
- Paranoya
Eğer yazıyı beğendiyseniz ya da ekleyecekleriniz varsa, lütfen yorumunuz yazın veya RSS aboneliği ile yeni yazılardan anında haberdar olun.
Loading ...