Com está fica é possível efetuar download de qualquer arquivo.
É necessário estar declarado UrlMon na seção uses,
em versões unicode declare Winapi.UrlMon.
Segue o ódigo fonte da função:
1 2 3 4 5 6 7 8 9 | function DownloadFile(SourceFile, DestFile: string): Boolean; begin try Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0; except Result := False; end; end; |
Exemplo de uso:
É necessário ter permissão no local onde será salvo o arquivo.
1 2 3 4 5 6 7 8 9 10 11 12 13 | procedure TForm1.Button1Click(Sender: TObject); const SourceFile = 'http://maxirecibo.infus.inf.br/bin/setupx32_maxirecibo.exe'; DestFile = 'D:\setupx32_maxirecibo.exe'; begin if DownloadFile(SourceFile, DestFile) then begin // A mensagem será exibida após a conclusão do Download. ShowMessage('Download concluído com sucesso!'); end else ShowMessage('Erro ao baixar o arquivo ' + SourceFile); end; |
