Como baixar um arquivo pelo Delphi? – Show Delphi

DICAS

Visite a biblioteca de dicas da comunidade.

Saiba mais

ARTIGOS

Abordagens detalhadas sobre assuntos diversos.

Saiba mais

INICIANTES

Aprenda a programar de um modo simples e fácil.

Saiba mais

DOWNLOADS

Acesse os materiais exclusivos aos membros.

Saiba mais
voltar

PARA QUEM GOSTA DE DELPHI

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;

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;
Facebook Comments

Posts Relacionados

  • Administrador
  • 922 views
  • 0 comentários
  • 19 de abril de 2015

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Ir ao topo

© 2016 Infus Soluções em Tecnologia - Todos os Direitos Reservados