Ficheros NO BMP's en TImage

Ficheros NO BMP's en TImage

Postby AndresRomero » Thu Oct 13, 2011 12:25 pm

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.
AndresRomero
 
Posts: 11
Joined: Fri Nov 20, 2009 11:07 am

Re: Ficheros NO BMP's en TImage

Postby Antonio Linares » Thu Oct 13, 2011 7:31 pm

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
User avatar
Antonio Linares
Site Admin
 
Posts: 41901
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Ficheros NO BMP's en TImage

Postby AndresRomero » Fri Oct 14, 2011 7:06 am

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

Postby AndresRomero » Tue Oct 25, 2011 10:20 am

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.
AndresRomero
 
Posts: 11
Joined: Fri Nov 20, 2009 11:07 am

Re: Ficheros NO BMP's en TImage

Postby Daniel Garcia-Gil » Wed Nov 02, 2011 10:18 pm

User avatar
Daniel Garcia-Gil
 
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 pm
Location: Isla de Margarita


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 30 guests