В юзес пишем:
Где-нибудь пишем функцию:
Код
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)
---------------------------------------------
Ап
