Главная » Статьи по Delphi » Интернет и сети » Загрузить файл или страницу из интернет

Загрузить файл или страницу из интернет

Автор:

Как скачать файл из интернета? Очень просто:

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;

Пример использования:

procedure TForm1.Button1Click(Sender: TObject);
begin
  DownloadFile('URL страницы', 'c:\1.txt');
end;

Просмотров: 11304

Обсудить на форуме

0   Спам (12.01.2013) 8. Ivan Julai (ustas) На семерке точно не работает, хотя никаких ошибок не пишет.

0   Спам (22.08.2012) 7. IgAn Супер! Спасибо!

0   Спам (30.03.2012) 6. Евгений Возможно следует поменять переменную куда сохраняется файл. 'c:\1.txt' на что то более глубокое, туда где нету запретов на запись

0   Спам (12.11.2011) 5. Lion На Delphi 7 всё отлично работает! Проще некуда, спасибо!

0   Спам (25.08.2011) 4. Констанит Все работает, понятней некуда)))

0   Спам (21.03.2011) 3. Александр Обалдеть! Целую неделю искал что-то подобное для Delphi! Спасибо огромное!!!

0   Спам (01.02.2011) 2. Валера Ни чё не работает хотябы описа чё куда писать Ответ: Куда ж подробнее? Если это непонятно, то учите самые основы. 1. Подключаем модуль в секции uses 2. Пишем функцию DownloadFile 3. Вызываем эту функцию, например в обработчике клика кнопки.

0   Спам (06.07.2010) 1. Дмитрий А вот ни разу не работает, ну по крайней мере на седьмых...

---

Имя *:
Email:
Все смайлы
Код *:

Copyright © 2008 - 2018 Программирование на Delphi для начинающих и не только.

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам.

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации.