Daha önce forumda konunşulmuştu fakat oradan almış oldugum code da bir türlü çözüme ulaşamadım...
aşağıdaki code da bir hata vermiyor fakat döviz değerlerinide almıyor. formuma iki adet edit ekledim bu editlere aktarmaya çalıştım yinede olmadı.. yani db ile ilgili bir problem yok. formuma IdHTTP1: TIdHTTP; ekledim. sizce aşağıdaki code da problem nerede...
not: kod çalıştıgında internet bağlantısında bir hareketlenme gözüküyor. fakan sonuç yok...
Kod: Tümünü seç
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
s,alis,satis,aranan: String;
aranand:ARRAY [1..100] OF String;
yer,i,j : Integer;
begin
ProgressBar1.Visible := true;
s:=IdHTTP1.Get('http://tcmb.gov.tr/kurlar/today.html');
Table1.Last;
Table1.first;
for j:=0 to Table1.RecordCount-1 do
begin
aranand[j]:=Table1.FieldByname('Ad').AsString;
aranan:=aranand[j];
ProgressBar1.Position :=j;
yer:=pos(aranan,s);
if yer=0 then
begin
showmessage('Kur bilgisi bulunamadı.');
exit;
end
else
begin
yer:=yer+length(aranan);
s:=copy(s,yer,length(s)-yer);
s:=trim(s);
alis:=copy(s,1,9);
Table1.Edit;
Table1.FieldByName('Kayit1').AsString := alis;
s:=copy(s,10,length(s)-9);
s:=trim(s);
satis:=copy(s,1,9);
Table1.FieldByName('Kayit2').AsString := satis;
Table1.Next;
end;
end;
ProgressBar1.Visible := false;
end;
end.