JPEG error #53

[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

[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))} )

[Shadax]

Up!

[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:



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.

[ignacio]

Corregido. Gracias.

Un saludo