OTServ



Você não está conectado. Conecte-se ou registre-se

Fazendo Download Via Delphi

Ir em baixo  Mensagem [Página 1 de 1]

1 Fazendo Download Via Delphi em 19/4/2011, 13:07

Dark Side

avatar


Olá caros amigos, 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!
Código:
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:

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

Fonte: DTDelphi



Ola, Convidado Gostou ? Da REP++


[Você precisa estar registrado e conectado para ver este link.]

Spoiler:

http://www.otserver.forumeiros.com

Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum