LAN Web TCP Delphi

Merkez Bankasindan Gunluk Doviz Kurlarini Alma
********************************************************
* [1 Adet IdHTTP Component] Indy Clients icerisinde *
* [1 Adet Listbox] Form uzerine ekleyin ve *
* [1 Adet Button ] Button1 in Click ozelligine ekleyin *
********************************************************
**********************************************************************
*'Bir oncekindeki hata! EURO kurlarini almayi ve component eklemeyi *
*'ihmal etmisim :( *
**********************************************************************
procedure TForm1.Button1Click(Sender: TObject);
var
z,s,alis,satis,aranan:string;
yer,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');
aranan:='1 ABD DOLARI';
for i:=1 to 2 do
begin
yer:=pos(aranan,s);
yer:=pos(aranan,z);
if yer=0 then
begin
ShowMessage('Kur bilgisi yok');
exit;
end
else
begin
yer:=yer+length(aranan);
s:=copy(s,yer,length(s)-yer);
z:=copy(z,yer,length(s)-yer);
s:=trim(s);
z:=trim(z);
alis:=copy(s,1,9);
satis:=copy(z,14,9);
listbox1.Items.Add(aranan +' Alış = ' + alis);
listbox1.Items.Add(aranan +' Satış = ' + satis);
aranan:='1 EURO';
end;
end;
end;
ERKAN OKMAN
erkanokman@hotmail.com
Umarim sizlere yardimci olabilecek bir kodu paylasmisimdir.
Bilgi Paylasildikca Cogalir.
Calismalarinizda basarilar.