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

Новые пользователи
Stankeev [16:00]

Lum1x [15:50]

NightMusicant [12:32]

douoling652 [10:40]

billienq1 [01:47]

staciah1 [01:15]

maksmovictimofej [00:18]

jamiedv6 [21:25]

billieds7 [20:51]

aprilez9 [15:57]

am9350450 [14:36]

dcvfre [11:04]

Sheroz [10:38]