Página 1 de 1

Imagen invertida

Publicado: Sab Dic 14, 2013 12:03 pm
por perolero
Buenos dí­as:
A vueltas con la opción de cambiar el tamaño a un archivo de imagen, he conseguido que funcione con este codigo
WITH OBJECT ::oPicture := TPicture():New( Self )
if File("volante.jpg")
:loadFromFile("volante.jpg")
c := :MakeThumbNail(200,200)
memowrit("volante1.jpg",c)
endif
END WITH
Pero el resultado es que la nueva imagen, en efecto tiene las nuevas dimensiones, pero APARECE INVERTIDA.
Como puedo solucionar este problema he probado con
memowrit("volante1.jpg",c, .T.)
y
memowrit("volante1.jpg",c, .F.)
pero el resultado sigue siendo el mismo.
Anticipadamente gracias,
Un saludo
Emilio Gil.

Imagen invertida

Publicado: Sab Dic 14, 2013 12:10 pm
por jfgimenez
Emilio,
> Pero el resultado es que la nueva imagen, en efecto tiene
> las nuevas dimensiones, pero APARECE INVERTIDA.
Puede ser algo relacionado con la versión de FreeImage.dll que estés
usando. Prueba a eliminar FreeImage. Xailer ya no la necesita, pero si
está presente la usa por "retro-compatibilidad".
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

Imagen invertida

Publicado: Sab Dic 14, 2013 12:44 pm
por perolero
Hola José:
Si no le pongo la libreria FreeImage.dll ya no funciona, ni normal ni invertida. Mi versión de Xailer es la 2.5.1
Un saludo,
Emilio Gil.