VPF::Скачать файл из интернета - Форум программистов

ring0D

Дата 12.8.2005, 10:36 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 10.8.2005

Репутация: нет
Всего: нет

Как скачать файл из интернента скрытно от пользователя ? Только на WinAPI. Хочу чтобы прога занимала не более 20 кб. И как правильно пользоваться функцией UrlDownloadToFile ?
Вроде так, но не получается :

Код


program Downloader;

uses Windows, URLMon;

var
   Msg : TMsg;
   SourceFile, DestFile : string;

begin
//***************************************************************
 while GetMessage(Msg, HInstance, 0, 0) do
   begin
    TranslateMessage(msg);
    DispatchMessage(msg);
   end;
//***************************************************************
SourseFile := 'http://www.site.ru/ФАЙЛ.rar';
DestFile := 'c:\ФАЙЛ.rar';
UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil);
end.

Это сообщение отредактировал(а) Girder - 12.8.2005, 12:20

_hunter

Дата 12.8.2005, 10:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 5
Всего: 98

странная программа... файл качается по закрытию... зачем?..
и что значит "не получается"?

--------------------

Tempora mutantur, et nos mutamur in illis...

ring0D

Дата 12.8.2005, 11:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 10.8.2005

Репутация: нет
Всего: нет

Приведи тогда пожалуйста правильный пример . Чтоб не по закрытию, а по запуску и прога оставалась висеть в памяти

_hunter

Дата 12.8.2005, 12:00 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 5
Всего: 98

банально перед циклом сообщений качай smile

а вообще почитай о создании оконных приложений на WinAPI

--------------------

Tempora mutantur, et nos mutamur in illis...

p0s0l

Дата 12.8.2005, 16:49 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 1
Всего: 112

Почему-то URLDownloadToFile не со всеми URL работает smile

К примеру:
http://forum.vingrad.ru - качает
http://forum.vingrad.ru/index.php - не качает smile

В MSDN по этому поводу вроде ничего не сказано...

В общем, проще и надежнее это сделать через InternetReadFile, чем разбираться, в чем тут дело...
Добавлено @ 16:52
Примеры:
http://forum.vingrad.ru/index.php?showtopic=41080
http://forum.vingrad.ru/index.php?showtopic=32228

--------------------

С уважением, г-н Посол.

Pentium02

Дата 26.11.2006, 18:25 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 175
Регистрация: 29.4.2006
Где: Россия

Репутация: нет
Всего: 1

Так люди, а как можно качать не чер ВинАПИ? Если никак, то можете привести пример, как качать с индикацией процесса закачки (ну там скоко осталось, скоко всего и т.д.)?

Snowy

Дата 27.11.2006, 12:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Pentium02, поиск по
http.Get
тебе поможет smile

Pentium02

Дата 4.12.2006, 19:02 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 175
Регистрация: 29.4.2006
Где: Россия

Репутация: нет
Всего: 1

Поиск помог. Спасибо

Это сообщение отредактировал(а) Pentium02 - 4.12.2006, 21:27

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »