ProgressBar y archivo mayor o igual 2Gb

[danielmj]

Hola,

...y la nueva pega ha surgido, vereis tengo una variable que puede ser => a 2Gb, por otra parte tengo un TProgressBar al que le pongo la propiedad Max, en tiempo de ejecución y viene dada por la división entera del tamaño del archivo previamente obtenido entre el valor de la variable que puede ser menor, igual o mayor a 2Gb. Si realizo la prueba con un valor para Max de 2Gb o mas, la aplicación me devuelve un mensaje de error diciendo que el TProgressBar, está fuera de rango. Según he mirado en internet, esta barra de progreso tiene problemas con archivos de mas de 2Gb

¿que opción me queda para usarla con archivos grandes? Decir que con archivos de 1Gb o menos, va perfecta tanto en compilacion como en ejecucion, por lo que considero (no se si bien o mal) que es "defecto" del componente.


Espero podais ayudarme. Saludos.

P.D.: Antes de poner este hilo, he buscado en el foro he visto varias cosas sobre el TProgressBar pero no mi caso, de todos modos si ya se ha debatido, pido disculpas.

[ecfisa]

Hola danielmj .

La propiedad Max del componente TControlBar soporta un rango de 0 a 2147483647. Si supera ese valor, pienso que tendrìas que dividir el tamaño del archivo a fines de representar el progreso en el TProgressBar.

Saludos

[danielmj]

Hola ecfisa, la cuestion es que paso los 2 Gb (por ejemplo) de bytes a Kbytes dividiendo entre 1024, pero sigue sin funcionar.

Saludos.

[ecfisa]

Hola danielmj.

Para entender mejor la situación, de que modo no funciona ¿ Da un error, no avanza de posiciòn, se traba en algún punto ?

Sería muy orientativo ver la parte del código donde supones que se produce el error (o no ejecuta la operación que deseada).

Saludos.

[Casimiro Notevi]

¿Qué quiere decir que no funciona?, ¿qué mensaje sale?, ¿qué problema exactamente tienes?, ¿cómo la usas?, ¿dónde está el código?...

EDITO: acabo de ver la respuesta de ecfisa, muy lógica, obviamente.

[cloayza]

Transforma el valor de progreso a porcentaje y se acabo el tema...

Por ejem:

Código Delphi [-]
ProgressBar.Max:=100; //en %

For Progreso_Leido:=1 To Largo_Archivo do
     progressBar.Position:= Trunc((Progreso_Leido/Largo_Archivo)*100);

O algo así....

Saludos cordiales

[[Chris]]

Creo que el problema es la ecuación.

Debería ser:
((Largo_Archivo - Progreso_Leido) div 100)

Saludos!

[[nlsgarcia]]

danielmj,

Empezado por danielmj

...ProgressBar y archivo mayor o igual 2Gb...TProgressBar, está fuera de rango...¿que opción me queda para usarla con archivos grandes?...

Revisa este código:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
   OpenDialog : TOpenDialog;
   F1, F2 : TFileStream;
   Buffer : String;
   MsgProcess : String;
   CountRead : Integer;
   CountWrite : Integer;

begin

   OpenDialog := TOpenDialog.Create(self);
   OpenDialog.InitialDir := 'C:\';
   OpenDialog.Options := [ofFileMustExist];
   OpenDialog.Filter := 'All Files|*.*';
   OpenDialog.FilterIndex := 1;

   ProgressBar1.Min := 0;
   ProgressBar1.Max := 100;
   ProgressBar1.Position := 0;

   if OpenDialog.Execute then
   begin

      try

         F1 := TFileStream.Create(OpenDialog.FileName, fmOpenRead);
         F2 := TFileStream.Create('BK-' + ExtractFileName(OpenDialog.FileName), fmCreate);

         SetLength(Buffer, 1024);

         while F1.Position < F1.Size do
         begin

            CountRead := F1.Read(Buffer[1], 1024);
            CountWrite := F2.Write(Buffer[1], CountRead);

            ProgressBar1.Position := Trunc((F1.Position/F1.Size)*100);

            Application.ProcessMessages;

         end;

         MsgProcess := 'Respaldo del Archivo ' + OpenDialog.FileName + ' Finalizado Satisfactoriamente';

         MessageDlg(MsgProcess, mtInformation, [mbOK], 0);

      except

         MessageDlg('Error de I/O', mtError, [mbOK], 0);

      end;

      F1.Free;
      F2.Free;

      OpenDialog.Free;

   end;

end;

El código anterior permite leer y copiar archivos de un tamaño en bytes de 2^63 - 1 = 9.223.372.036.854.775.807 (Int64), en porciones de 1024 bytes y mostrar el progreso del mismo por medio de un componente TProgressbar normalizado en un rango de 1 a 100.

La clave esta en la ecuación: ProgressBar1.Position := Trunc((F1.Position/F1.Size)*100);

Nota: El código fue probado con archivos menores a 2 GB y mayores a 2GB funcionando en todos los casos correctamente.

Espero sea útil

Nelson.

[cloayza]

Empezado por Chris

Creo que el problema es la ecuación.

Debería ser:
((Largo_Archivo - Progreso_Leido) div 100)

Saludos!

Solo por curiosidad que obtiene con esta formula....

Si es transformar a porcentaje creo que está mal...

Caso 1:
Trunc(512/1024*100)=>50 %

Caso 2:
(1024-512) div 100 =>5 ?

Saludos cordiales

[danielmj]

Hola, gracias por los consejos, os pongo el código...

Código Delphi [-]

...
LongFich:= (2147483648 div 1024);        //Se convierten 2GB en Bytes a Kbytes
      FileQ := TFileStream.Create(Archivo_F, fmOpenRead or fmShareDenyWrite);
    try
      for i := 1 to Trunc((FileQ.Size) / LongFich) + 1 do
      begin
        principal.prBar.Max:= (FileQ.Size div LongFich);
        principal.prBar.Position:= i;
        principal.prBar.Refresh;
...

Lo que trato de conseguir es que el progreso de la barra avance segun se divida el tamaño del archivo entre la cantidad elegida, en este caso son 2Gb, pero podrian ser 4,6 u 8,2 etc... Es en los casos donde ese tamaño es = o > a 2Gb donde falla. Siempre que sea = o < a 1Gb todo funciona perfectamente includo el progreso de la barra. Y estoy como loco haciendo variaciones en la division. He probado a dividir los 2 Gb entre 1024 para pasarlo a Kbytes, sino me devuelve el mensaje "barra de progreso fuera de rango", he probado a dividir entre 1024 el tamaño del archivo y luego el resultado dividirlo entre los 2Gb div 1024 y el resultado de esto asignarlo a la propiedad Max de la barra, pero no consigo "sacar" archivos de 2Gb a partir del archivo original de 13 Gb (es un ejemplo), solo de 2Mb. O eso, o el mensaje de "... fuera de rango".

Sé que el error debe estar entre el limite de progressbar.max y la/s divisiones, pero no consigo verlo por muchas vueltas que le doy.

Saludos y gracias a todos.

[[nlsgarcia]]

danielmj,

Empezado por danielmj

...Lo que trato de conseguir es que el progreso de la barra avance segun se divida el tamaño del archivo entre la cantidad elegida...

Revisa este código:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
   OpenDialog : TOpenDialog;
   F1 : TFileStream;
   Buffer : String;
   CountRead : Integer;
   FileLen : Integer;

begin

   OpenDialog := TOpenDialog.Create(self);
   OpenDialog.InitialDir := 'C:\';
   OpenDialog.Options := [ofFileMustExist];
   OpenDialog.Filter := 'All Files|*.*';
   OpenDialog.FilterIndex := 1;

   ProgressBar1.Min := 1;
   ProgressBar1.Max := 100;
   ProgressBar1.Position := 0;

   if OpenDialog.Execute then
   begin

      try

         F1 := TFileStream.Create(OpenDialog.FileName, fmOpenRead or fmShareDenyWrite);

         FileLen:= MaxInt div 1024; // MaxInt = 2147483647 

         SetLength(Buffer, FileLen);

         while F1.Position < F1.Size do
         begin

            CountRead := F1.Read(Buffer[1], FileLen);

            ProgressBar1.Position := Trunc((F1.Position/F1.Size)*100);

            Application.ProcessMessages;

         end;

      finally

         F1.Free;

         OpenDialog.Free;

      end;

   end;

end;

El código anterior lee un archivo de cualquier tamaño en porciones (MaxInt div 1024) y muestra su progreso en un componente TProgressBar normalizado en el rango de 1 a 100.

Nota: La idea es mostrar el proceso de un archivo en función porcentual y no en divisiones de su tamaño original, lo cual se adapta a cualquier tamaño de archivo hasta un máximo de 2^63 - 1.

Espero sea útil

Nelson.

[danielmj]

Hola buenos dias,

Gracias nlsGarcia, siento no haber respondido antes, pero estaba fuera de España por trabajo y no he tenido tiempo de mirar nada, a parte que todo el codigo lo tenia aqui en casa.
Ahora me pondre con el y veré que tal, ya te comento.

Gracias y un saludo.