[Delphi] Скачивание из интернета. - Форум Cheat-Master.ru
  • Страница 1 из 1
  • 1
Модератор форума: Alowir, Sanoxxx  
[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)
---------------------------------------------
Ап

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

GеNius [7210]

[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]

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

gwendolyngd2 [16:08]

Drywallwje [11:38]

TronAccs [05:11]

danilka05cher [03:05]

kennethhf2 [00:44]

nikitaw13w [15:10]

samp-sampovec [15:05]

eddieqk11 [12:49]

pennytl16 [12:18]

hermaneo16 [07:35]

lunaries [07:13]

lilyge69 [05:30]