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