Buscar por:

Baixando arquivos da internet

Código

{Esta dica serve para quem deseja criar um sistema que atualize seus softwares via internet, e também para quem faz jogos online, ou seja, jogos que exigem a conexão com a internet para serem jogados, pode precisar de um meio rápido, fácil e desburocratizado para baixar arquivos de um site ou de um lugar qualquer da rede. Veja só como é simples e sem contra indicações fazer isso: }

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.');

{att. Lucafss}