Olá, criei uma aplicação no Delphi
, mas ela precisa fazer download de alguns arquivos que eu tenho em um site, mas não tenho ideia de como fazer isto, me ajude por favor. Dez de já agradeço por ter lido minha pergunta!
1 Resposta
Você pode usar a função URLDownloadToFile
:
// Inclua em "Uses" a unit "Urlmon"
function BaixarArquivo(const URL, SalvarComo: string): Boolean;
var
H: HRESULT;
begin
H := URLDownloadToFile(nil, pchar(URL),
pchar(SalvarComo),
0,
nil);
Result := H = S_OK;
end;
Exemplo de utilização:
if BaixarArquivo('http://www.fooBAR.com/baz.poo', 'C:\baz.poo') then
ShowMessage('Arquivo baixado com sucesso!')
else
ShowMessage('Falha ao baixar arquivo.');
Há também como fazer isto com o componente TIdHTTP
com o método Get
.
-
1