forumdan musşimşek'in kodlarını kullandım. ama takıldığım yerler var. form1 de bir buton ve bir de Listbox var .. C de kur.html dosyası oluşuyor..
ama bu html deki bilgileri database aktaramıyorum.. yardımcı olursanız sevinirim..
Kod: Tümünü seç
function DownLoadInternetFile(Source, Dest : String): Boolean;
begin
try
Result := URLDownloadToFile(nil,PChar(Source),PChar(Dest),0,nil) = 0
except
Result := False;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
SourceString, DestinationString : string;
DovizText : TextFile;
satir : string;
Doviz_Cinsi : string;
i : Integer;
begin
SourceString := 'http://www.tcmb.gov.tr/kurlar/today.html';
DestinationString := 'c:\kur.html';
try
Screen.Cursor := crHourGlass;
if DownLoadInternetFile(SourceString, DestinationString) then
begin
AssignFile(DovizText, DestinationString);
Reset(DovizText);
while not EOF(DovizText) do
begin
ReadLn(DovizText, satir);
Doviz_Cinsi := Trim(Copy(satir, 1, 3));
for i:= 0 to Tree_Doviz.Count -1 do
///if (Doviz_Cinsi = Tree_Doviz.Items[i].Values[0]) and (Copy(satir, 4, 1) <> '/') then
begin
satir := Trim(Copy (satir, Pos (' ', satir), Length(satir)));
satir := Trim(Copy (satir, Pos (' ', satir), Length(satir)));
satir := Trim(Copy (satir, Pos (' ', satir), Length(satir)));
if (Copy(satir, 1, 1) <> '1') and
(Copy(satir, 1, 1) <> '2') and
(Copy(satir, 1, 1) <> '3') and
(Copy(satir, 1, 1) <> '4') and
(Copy(satir, 1, 1) <> '5') and
(Copy(satir, 1, 1) <> '6') and
(Copy(satir, 1, 1) <> '7') and
(Copy(satir, 1, 1) <> '8') and
(Copy(satir, 1, 1) <> '9') then
satir := Trim(Copy (satir, Pos (' ', satir), Length(satir)));
satir := Trim(Copy (satir, Pos (' ', satir), Length(satir)));
satir := Trim(Copy (satir, Pos (' ', satir), Length(satir)));
///Tree_Doviz.Items[i].Values[2] := Trim (VirgulSil(Copy (satir, 1, Pos(' ', satir))));
ShowMessage(satir);
end;
end; {while}
CloseFile(DovizText);
//IBTable1.Append; //>>> database kayıt olayını halledemedim.
//IBTable1.FieldByName('KUR').AsString:= ?? ;
//IBTable1.Append;
end
else
MessageDlg('Dosya indirilemedi!', mtError, [mbOK], 0);
finally
Screen.Cursor := crDefault;
end; {try}
end;
