Fórum Download personalizado ! #243880
21/07/2004
0
Olá Amigos do Fórum
É o seguinte ; coloquei em um Form qualquer um Button , e quero que ele faça o seguinte :
Quando clicar nele , ele baixe um arquivo de uma URL : http://www.meusite.com.br/arquivo.exe , por exemplo , só que com alguns detalhes .......
Não mostre a caixa de diálogo de download .
Caso o arquivo não mais exista aparece uma mensagem : o arquivo não existe !
Quando acabar de baixar mostre uma mensagem avisando !
É o seguinte ; coloquei em um Form qualquer um Button , e quero que ele faça o seguinte :
Quando clicar nele , ele baixe um arquivo de uma URL : http://www.meusite.com.br/arquivo.exe , por exemplo , só que com alguns detalhes .......
Não mostre a caixa de diálogo de download .
Caso o arquivo não mais exista aparece uma mensagem : o arquivo não existe !
Quando acabar de baixar mostre uma mensagem avisando !
Tiagojmilam
Curtir tópico
+ 0
Responder
Posts
21/07/2004
Tatuweb
Use a rotina abaixo.
Nota: Se vc quiser implementar uma barra de progresso para indicar o andamento do download de uma olhada no lin abaixo. A dica abaixo só vale para Delphi 6 ou 7.
:arrow: http://delphi.about.com/cs/adptips2003/a/bltip0903_2.htm
// uses urlmon
procedure TForm1.Button1Click(Sender: TObject);
begin
try
Screen.Cursor := crHourGlass;
URLDownloadToFile (nil, Pchar (´http://www.site.com/arquivo.exe´),
Pchar (´C:\O_mesmo_Nome.exe´), 1, nil);
finally
Screen.Cursor := crDefault;
if not FileExists (´C:\O_mesmo_Nome.exe´) then ShowMessage (´O arquivo não existe!´);
end;
end;Nota: Se vc quiser implementar uma barra de progresso para indicar o andamento do download de uma olhada no lin abaixo. A dica abaixo só vale para Delphi 6 ou 7.
:arrow: http://delphi.about.com/cs/adptips2003/a/bltip0903_2.htm
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)