Ficheros NO BMP's en TImage

Post Reply
AndresRomero
Posts: 11
Joined: Fri Nov 20, 2009 11:07 am

Ficheros NO BMP's en TImage

Post by AndresRomero »

Hola a todos, a ver si podéis solucionarme un problema que no resuelvo.

Tengo la version 9.10 de fivewin

Mi problema es que con una versión anterior (no tengo aquí el número de versión), puedo visualizar en un recurso una imagen JPG, pero con esta nueva
versión SOLO puedo visualizar si es BMP, pero NO si es JPG.

He actualizado freeImage.DLL al día de hoy y sigue todo igual.

¿ Me podéis sacar del apuro ?

Muchas gracías.
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Re: Ficheros NO BMP's en TImage

Post by Antonio Linares »

Andrés,

Necesitamos que nos indiques cual es la versión anterior en la que te funcionaba bien para comprobar las diferencias entre ambas, gracias :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
AndresRomero
Posts: 11
Joined: Fri Nov 20, 2009 11:07 am

Re: Ficheros NO BMP's en TImage

Post by AndresRomero »

La versión anterior que si funcionaba es la 7.07

Otro dato: Ahora (cuando NO funciona) al hacer el dialogo pongo (esquemáticamente):

cImagen := <senda-fichero de la imagen> (si es BMP funciona bien, si es JPG no funciona)

Define Dialog....
....
Redefine Image oImagen FILE cImagen id...
Activate Dialog

En el recurso esta como TImage

Cuando es BMP, sale bien la imagen, pero cuando es JPG, sale el dialogo, pero el programa se queda como "pensando". Solo funciona el botón de salir (oDialogo:end()) tampoco salen los tooltip de los botones al poner el ratón encima.

Si es necesario, haría un microprograma con solo este tema y os lo paso.
Por adelantado, muchas gracias.

Saludos.
AndresRomero
Posts: 11
Joined: Fri Nov 20, 2009 11:07 am

Re: Ficheros NO BMP's en TImage

Post by AndresRomero »

Voy sabiendo un poco mas sobre el tema de no sacar JPG's con TImage, pero no consigo arreglarlo.

Si es un BMP, la clase TImage, ejecuta la función ReadBitMap() que funciona correctamente, pero...
si es JPG, hace uso de FreeImage.DLL y aquí es donde tengo problemas, posiblemente por la carga de la DLL.
Cuando TImage hace uso de la función:

nFormat = FIGETFILETYPE( cFile, 0 ) => NIL.

Si le pongo directamente nFormat = 2 (para los JPG's), es la siguiente función la que devuelve NIL

hDib = FILOAD( nFormat, cFile, 0 ) => NIL

Esto me da que pensar que NO hace bien el interface con la DLL.

Otras DLL si funcionan, por ejemplo LIBMYSQL.DLL

Tiene que ser una tontería, pero no doy con ella. En todas las intervenciones que veo en el foro son sobre BMP's, pero no veo a nadie que hable de JPG's
En fin, solicito vuestra ayuda, estoy parado con una aplicación importante.
Muchas gracias.
User avatar
Daniel Garcia-Gil
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 pm
Location: Isla de Margarita
Contact:

Re: Ficheros NO BMP's en TImage

Post by Daniel Garcia-Gil »

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5N ... rc=global9
Post Reply