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!

otimo tópico, simples, bem explicado.

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

bem legal essa sub

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

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