Скачиваем файл из интернета

Здравствуйте, дорогие читатели!
Сегодня мы попробуем скачать файл из интернета. В этом нам поможет функция UrlDownloadToFile.
Теперь, когда мы определились с целью, создаем проект, кидаем на форму компонент  Button1.

Сейчас необходимо добавить в блок uses 2 файла:

 
uses
  URLMon, ShellApi;

После описания файлов объявляем процедуру после ключевого слова public, а затем, после слова
implementation копируем код:

 
function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
  try
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
  except
    Result := False;
  end;
end;

Итак, функция записана, пора написать пример.
На событие Button1 -  OnClick создаем процедуру и копируем код:

procedure TForm1.Button1Click(Sender: TObject);
const
  SourceFile = 'http://www.google.com/intl/de/images/home_title.gif';
    DestFile = 'c:\temp\google-image.gif';
begin
  if DownloadFile(SourceFile, DestFile) then
  begin
    ShowMessage('Download succesful!'); ShellExecute(Application.Handle, PChar('open'), PChar(DestFile),
      PChar(''), nil, SW_NORMAL)
  end
  else
    ShowMessage('Error while downloading ' + SourceFile)
end;

В этом примере константа SourceFile отвечает за адрес загружаемого файла, DestFile - за место и имя на компьютере.

На этом все!
Если вы хотите первыми получать свежие уроки, то подписывайтесь на обновления. Возникшие вопросы пишите в комментарии - я непременно отвечу.
.
А пока я советую поиграть в интересную онлайн игру Кентан. Думаю, вам понравится:)
 
Удачи! SourceExpert.Blogspot.com