Fazendo Download Via Delphi

[Ablank 7]

Olá caros amigos do Xtibia, hoje venho trazer para vocês uma função que é ótima para quem quer fazer patchs com atualização.

 

Esta função faz download de arquivos via programação de uma forma bem simplificada!

 

Vamos lá ao que interessa!

 

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

 

Para usar esta function é preciso declarar Urlmon na seção uses da unit. Depois basta fazer uma chamada padrão:

 

if DownloadFile ('http://www.onde.com/arq.htm','c:\arq.htm') then
 ShowMessage('Download Concluído.');

 

Fonte: DTDelphi

 

Bom qualquer dúvida é só chamar!

[dark rogue 3]

otimo tópico, simples, bem explicado.

 

Parabéns, estou vendo uma reação na seção {?}

[noobinhu 38]

bem legal essa sub

 

pode-se requisitar um download enviando um protocolo HTTP com headers apropriados também

[Ablank 7]

Se for por mim essa sessão vai bombar, vou postar aqui uns codes meus e uns que acho interessante na net!