[[sitrico]]

Estoy usando un componente IdHTTP para descargar información sobre las actualizaciones disponibles para una aplicación, pero quisiera agregar un TProgressBar para mostrar el avance de la descarga.

¿ Como puedo determinar el tamaño de un archivo determinado antes de comenzar la descarga ?

ó Bien

¿ Como puedo bajar los atributos de un archivo desde un servidor Web ?

Código Delphi [-]
procedure TfActualizacionOnLine.Descargar(Origen,Destino:String);
Var
Stream: TFileStream;
begin
// Borrar si existe el archivo a descargar
If FileExists(Destino) then
   SysUtils.DeleteFile(Destino);
Stream := TFileStream.Create(Destino, fmCreate);
try
// ProgressBar.Max :=  IdHTTP1.????????
   IdHTTP1.Get(Origen,Stream);
   finally
      Stream.Free;
      end;
end;

// y el Evento  Work calcula lo descargado

procedure TfActualizacionOnLine.IdHTTPWork(Sender: TObject;
  AWorkMode: TWorkMode; const AWorkCount: Integer);
begin
ProgressBar.Position := tDescargado + AWorkCount;
end;