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

Новые пользователи
Coolgirl123 [13:51]

SAMPHost [12:41]

darrylmw3 [05:37]

cleogm05 [17:23]

hallietg4 [13:15]

Makarios10001992 [09:32]

jlexaaa [01:46]

ddssddsasdad [07:00]

defender228_nopass [23:36]

dghsgsus [23:34]

SeniorAlaska [20:05]

Asplayer [18:39]

eunicern9 [14:54]