Cargar foto en QReport en tiempo ejecución

[[maeyanes]]

Empezado por mrmanuel

Hola nuevamente.

¿Cómo puede cargar una imagen en un QReport en tiempo de ejecución?

Lo estoy haceiendo de la siguiente manera y me da error.

Foto.Picture.LoadfromFile (ruta + nom_fichero).

Así es como lo hago con una foto normal en un form.

Gracias

Y específicamente, cual es el error que te da?

[mrmanuel]

Hola,

Respondiendo a FIDEL, si tengo un TQRImage. En tiempo de diseño, le inserté la foto y me la imprime perfectamente, es en tiempo de ejecución cuando le digo que me cargue cualquier foto, incluso la que le asigné en diseño, y me da el error correspondiente.

Y en resouesta a maeyanes, el error es de acceso a memoria: "raised exception class EAccessViolation" con el mensaje: "Access violation at address 0059..... in module".

Gracias

[[maeyanes]]

El error que te da, es por que al momento de hacer la llamada tal vez el componente TQRImage no está creado.

Sería bueno saber desde donde estas haciendo Foto.Picture.LoadFromFile(...) y bajo que condiciones.



Saludos...

[mrmanuel]

Primeramente creo el Form q contiene el QReport.
Una vez creado, le paso los datos por parámetro y mediante una funcio, los coloco en su casilla correspondiente, y por ultimo le digo que cargue la imagen. En ese momento "casca", porque no me deja imprmirlo.

Lo he parcheado con una excepcion, para poder imprimir los datos, pero la imagen se queda en blanco.

gracias

[mrmanuel]

hola nuevamente

concretamente uso:
TQuickReport,
TQrBand, y sobre el inserto los TQRLabels y los TQRImage.

he porbado a cargar el directorio donde está la foto (con chdir) y cargar la foto, sin ruta ni dada.

Tambien he probado a meterle la feto a pelo, sin usar varibles y sigue fallando.

gracias.

[Paoti]

Ojala te sirva lo que te voy a comentar mrmanuel.


Ya que tuve ese problema hace mucho mucho tiempo


Agrega al uses de tu la unidad: jpeg


Declara una variable así:
jp : TJpegImage;



y escribe este código:
TFrmRep.DetailBand1BeforePrint

Código Delphi [-]
jp := TJpegImage.Create;
jp.LoadFromFile('c:\foto.jpg');
qmyImg.Picture.Assign(jp);
FreeAndNil(jp);

qmyIMg es el qrImage.




Espero te sriva, No tengo Delphi instalado en este momento y estoy viendo un .Pas anterior.


NaCl-U2

[mrmanuel]

Sigue dando el mismo error.



Gracias. de todas formas.