Логин: Пароль:    Регистрация Всеми возможностями сайта можно пользоваться
только после авторизации.
   Забыли пароль?

Поиск
L



Статистика
u
Пользователи онлайн: нет
Гостей онлайн: 5
Всего онлайн: 5
Зарегистрировано юзеров: 6362
Комментариев на сайте: 645
Новый юзер: Pseulairrerve



Последние комментарии
c
Aqel прокомментировал "Урок 71 - Работа с сжатыми файлами":
GZip псевдоархив, на мой вопрос тоже не отвечают, как распаковать отдельные файлы/папки...
Pingitrus прокомментировал "Урок 71 - Работа с сжатыми файлами":
Есть еще кто нибудь живой на этом сайте, кто сможет помочь? Так то все работает, zip и rar распаковывает, но у меня есть файл dat который сжат GZip, почему то его не удается распаковать или так не получится так как этот файл не является архивом или является?)) пишет ошибку что неверная функция



Мы в соцсетях
c
Delphi
Скачивание файла с интернета

  Для того, чтобы программно скачать файл с интернета в Delphi, проделаем следующие действия:

Создаем New Application и кидаем на форму компоненты:

  • Компонент idHTTP из вкладки Indy Clients.

  • Компонент Button из вкладки Standart.

В обработчике событий Button OnClick добавим код:

procedure TForm1.Button1Click(Sender: TObject);
var
  q:tmemorystream;
begin
  q:=TMemoryStream.Create;
  idHTTP1.Get('thedelphi.ru/file.rar',q); //Место файла на сервере
  q.SaveToFile('C:\file.rar'); //Куда сохранять файл
end

Вот и всё, Удачи!

Источник: www.thedelphi.ru
Автор: Савельев Александр
Опубликовано: 10 Апреля 2012
Просмотров: 11192


Зарегистрируйтесь или авторизуйтесь, чтобы добавлять комментарии.



аватар Добавил(а): Delphi777 [Новичок] Дата: 2013-11-30
А как запустить его? ну, что-бы когда скачалось. Он сам взял и запустился




аватар Добавил: FlacRock [Новичок] Дата: 2016-02-10
Почему EXE файлы не скачиваются полностью?