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
If FileExists(Destino) then
SysUtils.DeleteFile(Destino);
Stream := TFileStream.Create(Destino, fmCreate);
try
IdHTTP1.Get(Origen,Stream);
finally
Stream.Free;
end;
end;
procedure TfActualizacionOnLine.IdHTTPWork(Sender: TObject;
AWorkMode: TWorkMode; const AWorkCount: Integer);
begin
ProgressBar.Position := tDescargado + AWorkCount;
end;