Для текствых файлов:
function GetInetFile(const fileURL, FileName: string): boolean;
var fil:Tstrings;
begin
fil:=Tstringlist.Create;
result:=true;
try
fil.Text:=form1.idhttp1.Get(fileurl);
fil.SaveToFile(filename);
except
result:=false;
end;
fil.Free;
end;
еще:
|
Главная
Каталог файлов
