LoadFromFile con una progressbar

[Jesús Pena]

Quisiera implementar lo siguiente que paso a detallar:

Tengo un formulario con un datamodule asociado (el datamodule se encarga de cualquier cosa que implique la actualización de la base de datos), en dicho datamodule hago un loadfromfile de archivos jpg (hasta aquí todo correcto y lo tengo funcionando) y lo que quiero es que al mismo tiempo que hago la carga del fichero se me actualice en el formulario una progressbar para que me informe de la carga (tengo imágenes muy grandes - 18 Mgb-) y el proceso puede tardar.

¿Se puede hacer esto? ¿como?.


Gracias de antemano

[[Chris]]

Si estas utilizando un objeto TPicture puedes escribir código en el evento OnProgress. Lo que te debe interesar el la constantes PercentDone que indica que porcentaje del proceso que se ha realizado, este lo pasas la progresbar que debe tener como su valor maximo 100 y minimo 0.

por ejemplo :

Código Delphi [-]
procedure TForm1.Image1Progress(Sender: TObject; Stage: TProgressStage;
  PercentDone: Byte; RedrawNow: Boolean; const R: TRect;
  const Msg: String);
begin
miProgressbar.Position := PercentDone;
form1.update;
end;

Si no estás utilizando un tPicture, entonces necesitarás ir a niveles más bajos. Cualquier cosa, dejamela saber. Saludos.

[Jesús Pena]

En realidad utilizo un componente TJVDBImage (de las JEDI) directamente (detecta varios tipos de formatos gráficos y me libro de controlarlos yo) y por lo que he estado mirando no heredan de forma esplícita ninguna propiedad de la Clase TPicture.

No sé como hacerlo.

[[Chris]]

Entonces estás utilizando un componente de base de datos, el componente del Jedi para ver campos de imagenes.

Me imagino que utilizas el LoadFromfile para crear o modificar un registro, si es así, me imagino que utilizas un código como el siguiente:

Código Delphi [-]

jvDBImage.Picuture.LoadFromFile('...');

Entonces, intenta crear un nuevo procedimiento similar al que te mostré anteriormente, luego en el procedimiento OnCreate del formulario (si es que jvDBImage esta en un formulario), asigna el método OnProgress del jvDBImage.Picture al procedimiento que hayas escrito.

Código Delphi [-]

Procedure Form1.OnCreate(Sender:TObject)
Begin
jvDBImage.Picture.OnProgress := ProcedimeintoOnProgressQueHayasEscrito;

{   ó haciendo referencia al ejemplo anterior    }
jvDBImage.Picture.OnProgress := Form1.Image1Progress;

...
end;

espero que te sirva.

[Jesús Pena]

Me podrías dar alguna información mas sobre cómo hacerlo o algún sitio donde pueda consultar esto.

Gracias.

[[Chris]]

Código Delphi [-]
Form1 = Class(Form)
Procedure Image1Progress(Sender: TObject; Stage: TProgressStage; PercentDone: Byte; 
RedrawNow: Boolean; const R: TRect;const Msg: String);

Procedure OnCreate(Sender:TObject);
end;

Implementation
{en el siguiente procedimiento es donde actualizamos el progressbar}
procedure TForm1.Image1Progress(Sender: TObject; Stage: TProgressStage;
  PercentDone: Byte; RedrawNow: Boolean; const R: TRect;
  const Msg: String);
begin
miProgressbar.Position := PercentDone;
form1.update;
end;

Procedure Form1.OnCreate(Sender:Tobject);
Begin
 jvDBImage1.Picture.OnProgress := Image1Progress;
{en la línea anterior asignamos la propiedad "OnProgress"
del objeto picture contenido dentro del control jvDBImage,
al procedimiento que habíamos escrito anteriormente "Image1Progress"}
end;

En el primer procedimiento le decimos a la computadora que actualize el progressbar con el valor del progreso de carga que lleva la imagen.
en el segundo procedimiento "OnCreate" le decimos a la computadora que en el método OnProgress del objeto Picture ejecute el procedimiento "Image1Progress"

Ese es un resumen del código, pero esa es la ídea. No estoy seguro si funcionará pero la lógica me dice que sí.
Creo que tendras que agregar algunas exceptiones por si acaso algo falla. Fallaría si el control jvDBimage destruye el
objeto Picture cada vez que cambia de imagen o cuando no exista una imagen.