Buscar por:

Download de arquivos da internet

Código

{Esta dica tem por objetivo mostrar como é fácil fazer o download de arquivos na WEB. 

Declare na cláusula uses: URLMon

Esta função é responsável pelo download do arquivo na WEB.}

function DownloadFile(Source, Dest: string): Boolean; 

begin

try

Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0;

except

Result := False;

end;

end; 

//Insira no evento OnClick de um botão o seguinte código:

procedure TForm1.Button1Click(Sender: TObject);

begin

if DownloadFile ('http://www.meusite.com.br/default.asp', 'c:windowsdesktopdefault.asp') then

ShowMessage('Download Concluído!')

else

ShowMessage('Falha ao fazer o download!!')

end;