PDA

Ver la Versión Completa : ¿Cómo puedo imprimir la imagen de cada registro en un QReport?


nuri
26-07-2005, 18:55:25
Hola a todos:
Tengo una tabla que contiene un campo de tipo Blob Graphic, con Paradox.
Cuando deseo imprimir los registros, me imprimen todos los campos bien excepto el de la imagen k sólo me toma la imagen del primer registro para el resto de los registros.

El código k utilizo para cargar la imagen es

FormImprime.QRDBImage1.Picture.LoadFromFile(FormImprime.Query1.FieldByName('FOTO').AsString);
FormImprime.QuickRep1.PreviewModal;


Ya que a la hora de guardar la imgen lo almaceno como String la ruta de la imagen.

Si alguien me pudiera echar un cable.
Atentamente
Nuri

marcoszorrilla
26-07-2005, 19:11:12
El código tienes que ponerlo en el evento OnPrint del campo en cuestión en QuickReport.


Un Saludo.

nuri
27-07-2005, 09:34:40
No tengo ese evento en el cmponente TQRImage.
Tengo el Delphi 5.
Gracias de todas formas.
Atentamente
Nuri

marcoszorrilla
27-07-2005, 09:52:04
Pues utiliza directamente un QrDbImage y te ahorras el trabajo.

Un Saludo.

nuri
27-07-2005, 09:58:59
Lo he intentado pero me da el siguiente error:

Bitmap image is not valide

:confused:
Atentamente
Nuri