Download

[Luiz Guilherme]

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]

É simples,

Num precisa de componente não.

Declare no Uses Urlmon;

use essa função:

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.