Dropbox'a yüklü test.txt dosya linki
https://dl.dropboxusercontent.com/u/13343586/test.txt
Daha once kodlarindan yararlandigim ve sorunsuz calisan Merkez bankasi kur sorgulama kaynak kod:
Kod: Tümünü seç
Socket := TDownLoadURL.Create(nil);
try
with Socket do
begin
URL := 'http://www.kktcmb.trnc.net/kur2008/kur281108.html';
Filename := 'C:\test.txt';
ExecuteTarget(nil);
end;
finally
Socket.Free
end;
var
z,s,alis,satis,aranan:string;
yer,i:Integer;
begin
Memo1.Clear;
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
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);
Memo1.Lines.Add(aranan +' Alış = ' + alis);
Memo1.Lines.Add(aranan +' Satış = ' + satis);
aranan:='1 EURO';
Edit1.Text:=copy(Memo1.Lines.Text,23,8);
Edit2.Text:=copy(Memo1.Lines.Text,55,8);
Edit3.Text:=copy(Memo1.Lines.Text,82,8);
Edit4.Text:=copy(Memo1.Lines.Text,108,8);
end;
end
. Konuya cevap yazilmamasi bu yüzden de olabilir o zaman. Açıkçası; erkek kardesim pc başına oturduğu zaman kalkmiyor bu yuzden namazlarini da aksatiyor. Ben isyerindeyken dahi onu pc yi kapatacagima dair uyarmak hatta kapatmak için yazmak istedim. Daha önce bu şekilde yapamayinca belirli süre çalışan pc doğru şifreyi girmezse kapanan küçük bir progrram yazmıştım. 
