Descargar archivo de una ubicación remota

[alaintm]

Saludos a todos.
Escribo este tema ya que no he dado con la solución para poder descargar un archivo a través de una aplicación de Delphi donde dicho archivo tipo texto se encuentre en un servidor web y guardarlo en la ubicación donde reside mi aplicación, funcionando más o menos como lo hacen los update de los antivirus.

Agradesco de antemano su colaboración

[[xEsk]]

Hay varias formas de lograrlo, usando las API de windows, los Indy u otras librerias como Synapse, etc... (yo personalmente uso Synapse :P).

Un ejemplo sencillo de como bajar y guardar en disco un fichero bajado usando Indy (q van con el Delphi):

Solo necesitas poner un "TIdHTTP" en el formulario.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Destino: TFileStream;

begin
  // crea el fichero donde guardaremos el contenido descargado
  Destino:=TFileStream.Create('c:\readme.txt', fmCreate);
  try
    // baja y guarda el contenido en el fichero
    IdHTTP1.Get('http://openwebmail.org/openwebmail/doc/readme.txt', Destino);
  finally
    Destino.Free;
  end;
end;

Con esto ya puedes empezar a investigar por tu cuenta y completarlo!

P.D.: La URL q he utilizado para el ejemplo, es el primer link de la busqueda de google "readme.txt" xD

[Neftali [Germán.Estévez]]

Revisa UrlDownloadToFile de la unit URLMon (creo recordar).
De todas formas puedes buscar más información y ejemplos sobre esta funcion en los foros.