[Delphi] Скачивание из интернета. - Форум Cheat-Master.ru
  • Страница 1 из 1
  • 1
Модератор форума: Alowir, Sanoxxx  
Форум » Программирование » Delphi Программирование » [Delphi] Скачивание из интернета.
[Delphi] Скачивание из интернета.
Mewex Дата: Понедельник, 10.04.2017, 21:58 | Сообщение # 1
STEAM SELLER
Сообщений: 475
Статус: Offline
В юзес пишем:

Код
UrlMon


Где-нибудь пишем функцию:

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


Далее, можно на FormCreate кинуть константы

Код
const
SourceFile = 'http://Сайт.ком/filenaservere.exe';
DestFile = 'C:\file.exe';


Теперь на кнопку:

Код
DownloadFile(SourceFile, DestFile);


Чтобы форма не зависала на форму кидаем компонент IdAntiFreeze

И теперь файл с сервера будет качаться на диск C, под именем file.exe

Расширения на сервере и при сохранении должны совпадать!

Вот и всё.

Добавлено (03.04.2017, 19:35)
---------------------------------------------
Ап

Добавлено (05.04.2017, 20:15)
---------------------------------------------
Ап

Добавлено (08.04.2017, 15:28)
---------------------------------------------
Ап

Добавлено (10.04.2017, 21:58)
---------------------------------------------
Ап

Форум » Программирование » Delphi Программирование » [Delphi] Скачивание из интернета.
  • Страница 1 из 1
  • 1
Поиск:
Статистика Форума
Лучшие пользователи
Admin [39113]

GеNius [7209]

[CM]Russel [5557]

kenlo763 [4952]

[CM]AGRESSOR [4639]

Snake_Firm [4452]

Сэс [4416]

Artem_Buero [4223]

[CM]Durman [3204]

[CM]Рафаэль [3080]

iMaddy [2855]

sky_Woker [2854]

getrekt [2745]

Новые пользователи
rubenia18 [21:17]

pokotiloroman91 [18:24]

stephensh5 [12:00]

calliesv7 [06:11]

louqm16 [22:14]

artushak [16:32]

Kingpolker [15:42]

leeyv11 [15:12]

Trappa17 [01:00]

Djamalchik [16:40]

ajeense [14:24]

654470559 [08:55]

Newtone [03:01]