FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Imprimir imagenes en report
Posts: 147
Joined: Tue Oct 11, 2005 08:22 PM
Imprimir imagenes en report
Posted: Fri Mar 19, 2021 06:54 PM

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

Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Imprimir imagenes en report
Posted: Fri Mar 19, 2021 08:58 PM

Are you having problems with some Windows 10 computers?

Please read this topic fully:

viewtopic.php?f=3t=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:

&

Regards



G. N. Rao.

Hyderabad, India
Posts: 147
Joined: Tue Oct 11, 2005 08:22 PM
Re: Imprimir imagenes en report
Posted: Fri Mar 19, 2021 09:46 PM

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

Posts: 147
Joined: Tue Oct 11, 2005 08:22 PM
Re: Imprimir imagenes en report (Solucionado)
Posted: Fri Mar 19, 2021 11:01 PM

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

Continue the discussion