| Вариант #1 с помощью юнита UrlMon: Code uses URLMon;
...
function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
try
Result:=UrlDownloadToFile(nil,PChar(SourceFile),PChar(DestFile),0,nil)=0;
except
Result := False;
end;
end;
Пример использования:
Code
procedure TForm1.Button1Click(Sender: TObject);
begin
DownloadFile('URL страницы', 'c:\1.txt');
end;
Вариант #2 с использование TidHTTP
Code
procedure TForm1.Button1Click(Sender: TObject);
var LoadStream: TMemoryStream;
begin
LoadStream := TMemoryStream.Create; // выделение памяти под переменную
idHTTP1.Get('mysite.ru/1.txt', LoadStream); // загрузка в поток данных из сети
LoadStream.SaveToFile('c:\1.txt'); // сохраняем данные из потока на жестком диске
//но можно и не сохранять, а считать данные из файла и вывести соответствующее сообщение...
LoadStream.Free; // освобождаем память
end;
Чтобы не "замерзал" интерфейс программы во время загрузки данных из интернета, добавьте также на форму TIdAntiFreeze, этот компонент располагается на вкладке Indy Misc. Достаточно одного добавления на форму этого компонента, обрабатывать его не нужно.
| 
