In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

JPEG error #53

FastReport for Xailer & [x]Harbour (English/Spanish)
Responder
Avatar de Usuario
Shadax
Mensajes: 104
Registrado: Lun Mar 14, 2011 12:32 pm

JPEG error #53

Mensaje por Shadax »

Buenas tardes a todos.
Estoy tratando de cargar una imagen generada con Xailer en un Picture de FastReports pero me está arrojando un error #53:

La imagen se ha generado utilizando este código:

WITH OBJECT oPicture := TPicture():CreateIndirect( 1, hBitmap )
IF :Ispicture()
:Save( "C:Imagen.JPG", 2, 100 )
ENDIF

:End()
END

¿Alguien sabrí­a decirme cuál es el posible error? Gracias de antemano a todos.
P.D.: Adjunto el fichero generado.


Attached files
Avatar de Usuario
Shadax
Mensajes: 104
Registrado: Lun Mar 14, 2011 12:32 pm

JPEG error #53

Mensaje por Shadax »

Utilizando el mismo método pero exportando a BMP me da error también: "Bitmap image is not valid". Siempre utilizando el método de guardado de la clase TPicture().
El handle que utiliza "CreateIndirect" es un handle obtenido a partir de:

hBitmap := XA_CaptureBitmap( ::oFirma:Handle, {IF((nLeft - 3) < 1, nLeft, (nLeft - 3)), IF((nTop - 3) < 1, nTop, (nTop - 3)), IF((nRight + 3) < 1, nRight, (nRight + 3)), IF((nBottom + 3) < 1, nBottom, (nBottom + 3))} )
Avatar de Usuario
Shadax
Mensajes: 104
Registrado: Lun Mar 14, 2011 12:32 pm

JPEG error #53

Mensaje por Shadax »

Up!
Avatar de Usuario
Shadax
Mensajes: 104
Registrado: Lun Mar 14, 2011 12:32 pm

Re: JPEG error #53

Mensaje por Shadax »

Bueno, en su día encontré la incidencia pero hasta ahora no he podido recuperar mi clave del foro así que posteo de lo que se trataba: La documentación respecto al método "Save" de de la clase TPicture. Según ésta, el formato del JPG/JPEG debe guardarse con el nImageType [2], pero realmente esto no es cierto, puesto que el array de formatos es "Base Zero" el nImageType comienza desde Cero ( 0 ) y por lo tanto el nImageType de los JPG/JPEG debe ser [1] tal como muestro en la siguiente imagen:

Imagen

De esa manera he podido generar correctamente formatos BMP, JPG/JPEG y PNG sin que ninguna aplicación tipo FastReports, Visor Windows, Adobe Photoshop, Gimp... Se quejase al respecto.
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9243
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:

Re: JPEG error #53

Mensaje por ignacio »

Corregido. Gracias.

Un saludo
Ignacio Ortiz de Zúñiga
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Responder