Imagen en QRImage no se muestra completa

[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

[Mechita]

Hola ecfisa,

Sabes que intente colocar la imagen fija, osea seleccionandola de una direccion fisica, ya que la tengo guardada en disco y resulta que me dice Bitmap Image is not valid.

En la tabla el campo esta definido tipo Image.

La imagen se genera y almacena desde otra aplicacion desarrollada en c#.Net(esta aplicacion se ejecuta desde delphi), si pruebo mostrarla alli en un reporte, la consulta y muestra perfectamente, el problema esta es con delphi.

Saludos

[ecfisa]

Hola Mechita.

Empezado por Mechita

Hola ecfisa,

Sabes que intente colocar la imagen fija, osea seleccionandola de una direccion fisica, ya que la tengo guardada en disco y resulta que me dice Bitmap Image is not valid.

Por el error que mencionas, Delphi no puede interpretar el formato en que fue guardada esa imágen. Es lógico que no muestre la imágen, lo haga de forma incorrecta o incompleta.

No tengo idea en absoluto de .NET por lo que ignoro si observa compatibilidad con Delphi en este caso. Se me ocurre que podrías consultar este punto en el foro .NET.

Saludos
.

[Mechita]

Ok, entiendo...

Ahora te pregunto, existe en delphi algun componente para generar un código de barras de ese tipo? Y poder guardar la imagen en la bd, para luego consultarla y mostrarla en el reporte?