Imprimir imagenes en report

[EBM]

Buen dia compañeros,

Tengo un detalle en la impresión de imagenes en un reporte que no logro resolver, les cuento:

1) Se hace la toma de la imagen con la clase tWebCam y se guarda en un campo blob en mysql, hasta ahi todo bien
2) En Pantalla definiendo un REDEFINE BITMAP veo las imagenes correctamente.
3) Genero un reporte de asistencia con la imagen del empleado, sin embargo en algunos equipos si lo muestra correctamente pero en otros solo sale un recuadro negro
de la imagen. Ya verifique y tienen el mismo ejecutable, todo es identico y nada

He estado haciendo pruebas y me di cuenta que el problema aparentemente viene de la variable oReport:lImageLegacy de la clase REPORT.

Si la tengo en .T. imprime la imagen PERO no respeta el ancho y alto que le doy a la imagen para que la imprima, si lo tengo en .F. solo imprime un cuadro negro con las
dimensiones que le di al imprimir.

Esto solo sucede en algunos equipos, no en todos, en algunos lo imprime bien aunque lImageLegacy este en .F.

Alguna idea de como solucionar este problema?

La impresion de la imagen la hago con oReporte:SayBitmap( ... )

FWH 1905

Saludos!

Eduardo Borondón Muñiz

[nageswaragunupudi]

Are you having problems with some Windows 10 computers?

Please read this topic fully:
viewtopic.php?f=3&t=40088

Please also let us know if the images are bmp, jpg, png, etc.

Also, let us see a small part of your code to print images in a report:

[EBM]

Hola Mr Rao

Las imagenes son creadas con la clase TWebCam y se guardan en formato BMP en una tabla MySql

Las Imagenes las recupero asi:

oPict := TBitMap():Define()

...

oPict:LoadFromString( HB_Base64Decode( oQuery:FieldGet( "ENTRADA" ) ) ) // Se lee desde la tabla MySql con TDolphin

...

oReporte:SayBitmap( aCoors[ 1 ], aCoors[ 2 ] + 1.0, oPict, 1.2, 1.2, RPT_CMETERS, , 1 ) // Se imprime la imagen

Efectivamente estaba funcionando todo correcto hasta hace unos dias, entonces va a ser un problema con la actualización de Windows

Los equipos en los que esta fallando tienen windows 8.1 y windows 10 Pro, sin embargo en otro con Windows 10 Pro funciona correctamente.

Alguna solución por que aparentemente el parche de correccion no funciona

Saludos y gracias!!

Eduardo Borondón Muñiz

[EBM]

Mr. Rao

Efectivamente el problema era la actualización de Windows en ambos equipos, tanto en Windows 8.1 como en Windows 10 elimine la actualización y ahora
todo funciona nuevamente.

Muchas gracias!!

Saludos!

Eduardo Borondón Muñiz