Como baixar um arquivo pelo Delphi?
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; |
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; |
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;
-
InfusTec
-
10.831 views
- 0 comentários
- 19 de abril de 2015
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Posts Relacionados - Continue Aprendendo