Imagen en QRImage no se muestra completa

[Mechita]

Hola ecfisa,

Ya eso lo he probado y persiste el problema. Adjunto envio la imagen como sale en el reporte.

Gracias

[ecfisa]

Hola Mechita.

La verdad que no se que te puede estar sucediendo, en mi caso funciona perfectamente:


Tal vez si pudieras poner un enlace al archivo de imágen que te dá problemas (el original) podría probar con él...

Saludos

[[Héctor Randolph]]

Hola Mechita

Alguna vez tuve un problema similar y se debía a la configuración del motor de base de datos BDE.

Para solucionarlo cambié unos parámetros llamados BLOB_SIZE y BLOBS_TO_CACHE.

Si también estás utilizando BDE, intenta aumentando el valor de estos parámetros.

Entra en panel de control -> BDE Administrator. Configuration -> Drivers - Native y seleccionas de la lista el driver que estás utilizando.

Saludos

[Mechita]

Buenos Dias..

Héctor, probe lo que mencionas y nada, el problema persiste, igual gracias por el aporte

Ecfisa, la imagen me muestro en el reporte la estoy consultando desde bd, actualmente estoy usando un QRImage y no un QRDBImage (porque igual no funciona), el código que uso para mostrar la imagen es el siguiente:

En el evento BeforePrint,

oStream := busqueda.CreateBlobStream(Busqueda.FieldByName('cbb'), bmRead);
oStream.Seek(0, soFromBeginning);
QRImage2.Picture.Bitmap.LoadFromStream(oStream);
oStream.Free;

La imagen esta en un campo tipo Image (SQL Server) y esta bien generada porque al momento de hacerlo tambien la guardo en disco y visiblemente esta correcta, es de tipo bmp.

Gracias...

[ecfisa]

Hola Mechita.

Si las imágenes guardadas en la bd tienen formato BMP, no tendrías que tener ningún problema para mostrarlas de forma directa en un TQRDBImage con sólo asignar sus propiedades DataSet y DataField.
Pero no sucede lo mismo con otros formatos como JPG, al menos con la versión 7 de Delphi no conozco como cargarlas de forma directa en un TDBImage o TQRDBImage. Algo se habló en este enlace: Recorrer archivos de un directorio y mostrar graficos en miniaturas.

Si deseas usar un TQRImage, de este modo tiene que funcionarte:

Código Delphi [-]
procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep; var PrintReport: Boolean);
begin
   QRImage1.Picture.Bitmap.Assign(busqueda.FieldByName('cbb'));
end;

Saludos

Pd: Recordá poner las etiquetas [delphi] tu_codigo [/delphi] cuando incluyas código Delphi en el mensaje.

[Mechita]

Hola ecfisa, intente como me dices y nada

De verdad, ya no se donde buscar...lei por alli que al parecer puede ser un bug de quickreport, pero ni idea de como solventarlo, la imagen sigue saliendo incompleta.

Muchas gracias por tus aportes...

Saludos

[ecfisa]

Hola Mechita.

Una consulta, ¿ No existe manera de que puedas hacerte de la imágen en cuestión fuera del campo de la base de datos ?, si pudieras sería muy fácil probar si presenta el problema cargándola desde el archivo.

Otra cosa que me gustaría ver es la definición del campo en la tabla y la parte del código donde se almacena la imágen. Tal vez el problema esté en el guardado y no en la visualización...

Saludos