Página 1 de 1

JPEG error #53

Publicado: Lun Jun 16, 2014 8:39 pm
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

JPEG error #53

Publicado: Mar Jun 17, 2014 9:52 am
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))} )

JPEG error #53

Publicado: Jue Jun 26, 2014 9:50 am
por Shadax
Up!

Re: JPEG error #53

Publicado: Mar Dic 01, 2015 12:13 pm
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.

Re: JPEG error #53

Publicado: Mar Dic 01, 2015 12:50 pm
por ignacio
Corregido. Gracias.

Un saludo