Como descargar algun archivo en Delphi 5

[flystar]

hermanos.

Debido al poco exito que tuve buscando en los foros, quizas no busque bien.

Solicito auxilio para realizar un programa chico que sirva para bajar 1 archivo
de una URL de Internet y si se puede implementar una barra de progreso pues estaría genial.

Gracias.

[flystar]

Compartiendo encontre esto, que me fue facil de implementar:

http://www.ajpdsoft.com/modules.php?...rticle&sid=298

usando el primer método que dice ahí,

sin embargo es importante mencionar que cuando lo bajan y lo quieren volver a bajar, baja el del cache, entonces es importante implementar otra funcion que borre el cache y para ello use este:

http://www.delphifaq.com/faq/interne...rer/f847.shtml

primero borran el cache y luego bajan, funcionó de maravilla, lo único malo es que no permite implementar barra de avance para ver como va la descarga.

[flystar]

Si alguien se sabe uno que pueda poner barra de avance sería genial

[[kurono]]

te puede sevir este tambien utilizando las indy

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  fs: TFileStream;
begin
  fs := TFileStream.Create('C:\archivo.pdf', fmCreate);
  try
    IdHTTP1.Get('http://www.servidor.com/archivo.pdf', fs);
  finally
    fs.Free();
  end;
end;

[flystar]

El codigo anterior marca error,
loprobaste y te funciono en delphi 5?

[[kurono]]

ese codigo lo utilizo en delphi 7 pero puedes decirme que error te da

[flystar]

Lo que pasa es que quizas las INDY que instale en delphi 5 traen errores

ya me corrieron de la oficina pero al ratito subo el error en una imagen a ver si me sale ponerlo aqui
o te lo comento

[[kurono]]

ok no problem