Download personalizado !

Delphi

21/07/2004

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 !


Tiagojmilam

Tiagojmilam

Curtidas 0

Respostas

Tatuweb

Tatuweb

21/07/2004

Use a rotina abaixo.

// 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


GOSTEI 0
POSTAR