QR - Invalid Pointer Operation

[luisgutierrezb]

y si en el finally usas:
frmImpresion.Report := nil;
FreeAndNil(qrTest);

o

frmImpresion.Free;
FreeAndNil(qrTest);


algo que me deja una duda, qrTest es de las formas autocreadas? me imagino que si, por lo que dices de que siempre te los deja el delphi en el .dpr, por lo cual es probable que ahi este tu error, si delphi auto crea la forma qrTest y luego la pones en freeandnil, la aplicacion no tendra manera de manejarla y manda la excepcion,

[[Lepe]]

Empezado por luisgutierrezb

si delphi auto crea la forma qrTest y luego la pones en freeandnil, la aplicacion no tendra manera de manejarla y manda la excepcion,

Tiene toda la lógica del mundo tu afirmación, pero se da el caso de que .Free mira si la variable es igual a nil y en ese caso, no hace nada, por tanto delphi no intenta destruir el objeto 2 veces.

Si se usa solamente Objeto.Free, entonces delphi no puede saber si la variable es igual a nil o no, y en este caso, si se obtiene errores de acceso a memoria.

Report.Preview, aunque no continua la ejecución de código, algunas veces me ha dado algún que otro fallo colateral, porque precisamente no es una ventana modal real, sino simulada. Como digo, algunas veces he tenido que usar Report.PreviewModal.

Resumiendo todo lo dicho:

Código Delphi [-]
qrTest := TqrTest.Create(nil); // no uso aplication porque yo mismo lo destruyo
// más que nada lo hago así por seguir una lógica contundente:
// Yo lo creo, yo lo destruyo.
// Delphi lo crea, Delphi lo destruye.
// Cuando se mezclan esas 2 cosas hay que atar cabos muy bien 
try
  frmImpresion.Report.Assign(qrTest);
  frmImpresion.Report.PreviewModal;
  finally
    FreeAndNil(qrTest);
end;

Saludos

[alapaco]

Gracias a ambos, ya había probado todo lo que me dicen, salvo el Assign que dice Lepe, que lo probaré hoy a la noche.
El reporte qrTest no se crea en el dpr, obviamente lo saqué de ahí, fue a modo de "justificación" a la pregunta de lepe de porque creaba el reporte con un Application.CreateForm.

A la noche pruebo lo del Assign, y si no anda se complica el tema...

Gracias!

[alapaco]

Bueno, finalmente probe todo lo que me dijeron y no hubo caso, asi que tuve que sacar el casteo y llamar al método Print de cada reporte directamente.

Gracias de todas formas.