FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Ficheros NO BMP's en TImage
Posts: 11
Joined: Fri Nov 20, 2009 11:07 AM
Ficheros NO BMP's en TImage
Posted: 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.

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Ficheros NO BMP's en TImage
Posted: Thu Oct 13, 2011 07: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
Posts: 11
Joined: Fri Nov 20, 2009 11:07 AM
Re: Ficheros NO BMP's en TImage
Posted: Fri Oct 14, 2011 07: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.

Posts: 11
Joined: Fri Nov 20, 2009 11:07 AM
Re: Ficheros NO BMP's en TImage
Posted: 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.

Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: Ficheros NO BMP's en TImage
Posted: Wed Nov 02, 2011 10:18 PM

Continue the discussion