Fórum Script Brasil

Versão Completa: Download

Fórum Script Brasil > Programação & Desenvolvimento > Delphi, Kylix

Luiz Guilherme

28/04/2005 - 10:33

eu gostaria de saber como faço para realizar o download automatico de algum arquivo na internet quais componentes e quais objetos tenho que usar..
obrigado

Progr'amador

28/04/2005 - 12:32

É simples,
Num precisa de componente não.

Declare no Uses Urlmon;

use essa função:

QUOTE

function DownloadFile(Source, Dest: string): Boolean;
begin
try
Result:= UrlDownloadToFile(nil, PChar(source),PChar(Dest), 0, nil) = 0;
except
Result:= False;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var Source, Dest : string;
begin
Source := 'http://scriptbrasil.com.br/forum/style_images/1/logo4.gif';
Dest := 'c:\logo4.gif';
if DownloadFile (Source,Dest) then
ShowMessage('Download Concluído.')
else ShowMessage('Download Não Efetuado.');
end;

Abs. Progr'amador.

Esta é uma versão simplificada de nosso conteúdo principal. Para ver a versão completa com maiores informações, formatação e imagens, por favor clique aqui.