Подписаться на RSS рассылку
Главная » Статьи по 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;

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

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

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. Валера
Ни чё не работает хотябы описа чё куда писать angry
Ответ: Куда ж подробнее? Если это непонятно, то учите самые основы.
1. Подключаем модуль в секции uses
2. Пишем функцию DownloadFile
3. Вызываем эту функцию, например в обработчике клика кнопки.

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


Имя *:
Email:


Код *:

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

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

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

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта