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)
User avatar
Shadax
Posts: 104
Joined: Mon Mar 14, 2011 12:32 pm

JPEG error #53

Postby Shadax » Mon Jun 16, 2014 8:39 pm

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
User avatar
Shadax
Posts: 104
Joined: Mon Mar 14, 2011 12:32 pm

JPEG error #53

Postby Shadax » Tue Jun 17, 2014 9:52 am

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))} )
User avatar
Shadax
Posts: 104
Joined: Mon Mar 14, 2011 12:32 pm

JPEG error #53

Postby Shadax » Thu Jun 26, 2014 9:50 am

Up!
User avatar
Shadax
Posts: 104
Joined: Mon Mar 14, 2011 12:32 pm

Re: JPEG error #53

Postby Shadax » Tue Dec 01, 2015 12:13 pm

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:

Image

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.
User avatar
ignacio
Site Admin
Posts: 8691
Joined: Mon Apr 06, 2015 8:00 pm
Location: Madrid, Spain
Contact:

Re: JPEG error #53

Postby ignacio » Tue Dec 01, 2015 12:50 pm

Corregido. Gracias.

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

Return to “FastReport”