In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

De BMP a JPG

Foro público de Xailer en español
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

De BMP a JPG

Mensaje por Xevi »

Hola grupo,
creo recordar una clase o función para pasar una imagen BMP a JPG, pero
después de buscar por este Foro y por Xailer.info no logro encontrar nada al
respecto...
¿Alguna ayuda???
Gracias.
Un Saludo,
Xevi.
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

De BMP a JPG

Mensaje por Xevi »

Seguí buscando en Xailer.info
Encontré el aporte de José Lalín xagdp.lib y me puse a probar el ejemplo que
describe en el mismo artículo.
Utilizo Xailer 1.99 y si bien compila, al correr me lanza un GPF que adjunto
imagen.
Alguna ayuda???
Gracias.
Un Saludo,
Xevi.
"Xevi" <xevicomas@gmail.com> escribió en el mensaje
news:4acdaf34$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Hola grupo,
>
> creo recordar una clase o función para pasar una imagen BMP a JPG, pero
> después de buscar por este Foro y por Xailer.info no logro encontrar nada
> al
> respecto...
>
> ¿Alguna ayuda???
>
> Gracias.
>
> Un Saludo,
> Xevi.
>
>


Attached files
notengo
Mensajes: 417
Registrado: Vie Oct 12, 2007 1:29 pm

De BMP a JPG

Mensaje por notengo »

Xevi,
> Utilizo Xailer 1.99 y si bien compila, al correr me lanza un GPF que adjunto
> imagen.
La última actualización que publiqué era para Xailer 2.
> Alguna ayuda???
Creo que en el post de la primera versión, http://xailer.info/esp/?p=100,
hay una versión para la 1.8/1.9 pero no estoy seguro.
Saludos,
José Lalí­n
Boris
Mensajes: 153
Registrado: Jue Ago 17, 2006 1:26 pm

De BMP a JPG

Mensaje por Boris »

Xevi.
Esta lib yo la estoy utilizando con la version 1.98 y me funciona
barbaro..
"José Lalín" <notengo@correo.com> escribió en el mensaje
news:4acdced2$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Xevi,
> Utilizo Xailer 1.99 y si bien compila, al correr me lanza un GPF que
> adjunto
> imagen.
La última actualización que publiqué era para Xailer 2.
> Alguna ayuda???
Creo que en el post de la primera versión, http://xailer.info/esp/?p=100,
hay una versión para la 1.8/1.9 pero no estoy seguro.
Saludos,
José Lalín


Attached files xagdp.lib (11 KB)Â
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

De BMP a JPG

Mensaje por Xevi »

José,
Haciendo el ejemplo que hay en el artículo, me funciona correctamente.
Ahora bien, pongo el mismo código en mi aplicación, "Cortar/Pegar" y ahí me
salta el GPF.
Será por incompatibilidad de Librerias???
He probado a cambiar el orden de las libs que utilizo en mi aplicación, pero
igual... salta el GPF.
¿Que puedo estar haciendo mal???
Gracias.
Un Saludo,
Xevi.
"José Lalín" <notengo@correo.com> escribió en el mensaje
news:4acdced2$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Xevi,
> Utilizo Xailer 1.99 y si bien compila, al correr me lanza un GPF que
> adjunto imagen.
La última actualización que publiqué era para Xailer 2.
> Alguna ayuda???
Creo que en el post de la primera versión, http://xailer.info/esp/?p=100,
hay una versión para la 1.8/1.9 pero no estoy seguro.
Saludos,
José Lalín
Boris
Mensajes: 153
Registrado: Jue Ago 17, 2006 1:26 pm

De BMP a JPG

Mensaje por Boris »

Xevi
Probe el codigo del ejemplo y tambien me dio error puse el codigo de mi
aplicacion y funciona bien no veo muchas diferencias te adjunto mi codigo
Local NomBMP:= "logo.bmp"
Local Archi2:='logo.jpg'
Local nCompress
Local hImage
nCompress:=50
WITH OBJECT GDP():Create()
hImage := :LoadImageFromFile( NomBMP)
IF File( NomBmp )
If :SaveToJPEG( NomBmp ,Archi2, nCompress )
MsgInfo( "Ok" )
ENDIF
ENDIF
:DeleteImage( hImage )
:Destroy()
END
"Xevi" <xevicomas@gmail.com> escribió en el mensaje
news:[email=4ace0441@svctag-j7w3v3j....]4ace0441@svctag-j7w3v3j....[/email]
> José,
>
> Haciendo el ejemplo que hay en el artículo, me funciona correctamente.
> Ahora bien, pongo el mismo código en mi aplicación, "Cortar/Pegar" y ahí
> me salta el GPF.
>
> Será por incompatibilidad de Librerias???
> He probado a cambiar el orden de las libs que utilizo en mi aplicación,
> pero igual... salta el GPF.
>
> ¿Que puedo estar haciendo mal???
>
> Gracias.
>
> Un Saludo,
> Xevi.
>
>
> "José Lalín" <notengo@correo.com> escribió en el mensaje
> news:4acdced2$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>
> Xevi,
>
>> Utilizo Xailer 1.99 y si bien compila, al correr me lanza un GPF que
>> adjunto imagen.
>
> La última actualización que publiqué era para Xailer 2.
>
>> Alguna ayuda???
>
> Creo que en el post de la primera versión, http://xailer.info/esp/?p=100,
> hay una versión para la 1.8/1.9 pero no estoy seguro.
>
> Saludos,
> José Lalín
>
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

De BMP a JPG

Mensaje por Xevi »

Boris
Me lanza el GPF igualmente... :-(
Mira que lo estoy probando en proyectos NUEVOS y me funciona correctamente,
pero en mi aplicación... NADA de NADA no quiere andar.
Un Saludo,
Xevi.
"Boris Chesini" <masterisi@masterisi.com.ar> escribió en el mensaje
news:[email=4ace0c4e@svctag-j7w3v3j....]4ace0c4e@svctag-j7w3v3j....[/email]
> Xevi
> Probe el codigo del ejemplo y tambien me dio error puse el codigo de mi
> aplicacion y funciona bien no veo muchas diferencias te adjunto mi codigo
>
>
> Local NomBMP:= "logo.bmp"
> Local Archi2:='logo.jpg'
> Local nCompress
> Local hImage
> nCompress:=50
> WITH OBJECT GDP():Create()
> hImage := :LoadImageFromFile( NomBMP)
> IF File( NomBmp )
> If :SaveToJPEG( NomBmp ,Archi2, nCompress )
> MsgInfo( "Ok" )
> ENDIF
> ENDIF
> :DeleteImage( hImage )
> :Destroy()
> END
>
>
>
> "Xevi" <xevicomas@gmail.com> escribió en el mensaje
> news:[email=4ace0441@svctag-j7w3v3j....]4ace0441@svctag-j7w3v3j....[/email]
>> José,
>>
>> Haciendo el ejemplo que hay en el artículo, me funciona correctamente.
>> Ahora bien, pongo el mismo código en mi aplicación, "Cortar/Pegar" y ahí
>> me salta el GPF.
>>
>> Será por incompatibilidad de Librerias???
>> He probado a cambiar el orden de las libs que utilizo en mi aplicación,
>> pero igual... salta el GPF.
>>
>> ¿Que puedo estar haciendo mal???
>>
>> Gracias.
>>
>> Un Saludo,
>> Xevi.
>>
>>
>> "José Lalín" <notengo@correo.com> escribió en el mensaje
>> news:4acdced2$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>>
>> Xevi,
>>
>>> Utilizo Xailer 1.99 y si bien compila, al correr me lanza un GPF que
>>> adjunto imagen.
>>
>> La última actualización que publiqué era para Xailer 2.
>>
>>> Alguna ayuda???
>>
>> Creo que en el post de la primera versión, http://xailer.info/esp/?p=100,
>> hay una versión para la 1.8/1.9 pero no estoy seguro.
>>
>> Saludos,
>> José Lalín
>>
>
>
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

De BMP a JPG

Mensaje por Xevi »

José,
No se por donde mirar más!!!
Por mas que construyo proyectos nuevos, funciona perfectamente.
Creo que es por alguna incompatibilidad con Libs que utilizo...
Aunque he probado de añadir TODAS las que utilizo a un proyecto nuevo y
también funciona. ¿serà porque aunque las incluya, si no utilizo ninguna
función no la incluye en el exe final???
[LIBRARIES]
1=+..xagdp.lib
2=+..BitmapCapture.LIB
3=+[xharbour]ct.lib
4=+..TFileXLSTFileXLS.lib
5=+..TBarCodeTBarCode.lib
6=+[xharbour]hbzip.lib
7=+[xailer]xailer.lib
8=+[xailer]ocx.lib
9=-[xailer]sqlite.lib
10=-[xailer]libmysql.lib
11=+[xharbour]rtl.lib
12=+[xharbour]vm.lib
13=-[xharbour]gtwin.lib
14=+[xharbour]gtnul.lib
15=+[xharbour]lang.lib
16=+[xharbour]macro.lib
17=+[xharbour]rdd.lib
18=+[xharbour]dbfntx.lib
19=+[xharbour]dbfcdx.lib
20=+[xharbour]dbffpt.lib
21=-[xharbour]sixcdx.lib
22=+[xharbour]hbsix.lib
23=-[xharbour]rddads.lib
24=-[xharbour]ace32.lib
25=+[xharbour]codepage.lib
26=+[xharbour]common.lib
27=+[xharbour]pp.lib
28=+[xharbour]pcrepos.lib
29=+[bcc]psdkodbc32.lib
30=+[bcc]psdkmsimg32.lib
31=+[bcc]cw32.lib
32=+[bcc]import32.lib
33=+[bcc]wininet.lib
Un Saludo,
Xevi.
"José Lalín" <notengo@correo.com> escribió en el mensaje
news:4acdced2$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Xevi,
> Utilizo Xailer 1.99 y si bien compila, al correr me lanza un GPF que
> adjunto imagen.
La última actualización que publiqué era para Xailer 2.
> Alguna ayuda???
Creo que en el post de la primera versión, http://xailer.info/esp/?p=100,
hay una versión para la 1.8/1.9 pero no estoy seguro.
Saludos,
José Lalín
Boris
Mensajes: 153
Registrado: Jue Ago 17, 2006 1:26 pm

De BMP a JPG

Mensaje por Boris »

De ser asi busca dentro de las siguientes Lib
2=+..BitmapCapture.LIB
4=+..TFileXLSTFileXLS.lib
5=+..TBarCodeTBarCode.lib
"Xevi" <xevicomas@gmail.com> escribió en el mensaje
news:4ace193a$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> José,
>
> No se por donde mirar más!!!
> Por mas que construyo proyectos nuevos, funciona perfectamente.
> Creo que es por alguna incompatibilidad con Libs que utilizo...
> Aunque he probado de añadir TODAS las que utilizo a un proyecto nuevo y
> también funciona. ¿serà porque aunque las incluya, si no utilizo ninguna
> función no la incluye en el exe final???
>
> [LIBRARIES]
> 1=+..xagdp.lib
> 2=+..BitmapCapture.LIB
> 3=+[xharbour]ct.lib
> 4=+..TFileXLSTFileXLS.lib
> 5=+..TBarCodeTBarCode.lib
> 6=+[xharbour]hbzip.lib
> 7=+[xailer]xailer.lib
> 8=+[xailer]ocx.lib
> 9=-[xailer]sqlite.lib
> 10=-[xailer]libmysql.lib
> 11=+[xharbour]rtl.lib
> 12=+[xharbour]vm.lib
> 13=-[xharbour]gtwin.lib
> 14=+[xharbour]gtnul.lib
> 15=+[xharbour]lang.lib
> 16=+[xharbour]macro.lib
> 17=+[xharbour]rdd.lib
> 18=+[xharbour]dbfntx.lib
> 19=+[xharbour]dbfcdx.lib
> 20=+[xharbour]dbffpt.lib
> 21=-[xharbour]sixcdx.lib
> 22=+[xharbour]hbsix.lib
> 23=-[xharbour]rddads.lib
> 24=-[xharbour]ace32.lib
> 25=+[xharbour]codepage.lib
> 26=+[xharbour]common.lib
> 27=+[xharbour]pp.lib
> 28=+[xharbour]pcrepos.lib
> 29=+[bcc]psdkodbc32.lib
> 30=+[bcc]psdkmsimg32.lib
> 31=+[bcc]cw32.lib
> 32=+[bcc]import32.lib
> 33=+[bcc]wininet.lib
>
>
> Un Saludo,
> Xevi.
>
>
> "José Lalín" <notengo@correo.com> escribió en el mensaje
> news:4acdced2$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>
> Xevi,
>
>> Utilizo Xailer 1.99 y si bien compila, al correr me lanza un GPF que
>> adjunto imagen.
>
> La última actualización que publiqué era para Xailer 2.
>
>> Alguna ayuda???
>
> Creo que en el post de la primera versión, http://xailer.info/esp/?p=100,
> hay una versión para la 1.8/1.9 pero no estoy seguro.
>
> Saludos,
> José Lalín
>
notengo
Mensajes: 417
Registrado: Vie Oct 12, 2007 1:29 pm

De BMP a JPG

Mensaje por notengo »

Xevi,
comprueba si tienes la misma versión de xHarbour que Boris. Recuerdo que el
GPF aparecí­a con una versión especí­fica de xHarbour.
Saludos,
José Lalí­n
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

De BMP a JPG

Mensaje por Xevi »

Boris,
El xHarbour que utilizo es el de la web, creo...
fecha de los ejecutables de la carpeta Bin y de los achivos de la carpeta
lib
30/11/2007
¿Puedes comprovar si son de la misma fecha que la versión xHarbour que
utilizas tú?
de no ser de la misma fecha, si dispones del instalable de tu xHarbour,
probaría.
Gracias
Un Saludo,
Xevi.
"Boris Chesini" <masterisi@masterisi.com.ar> escribió en el mensaje
news:[email=4ace1e7a@svctag-j7w3v3j....]4ace1e7a@svctag-j7w3v3j....[/email]
> De ser asi busca dentro de las siguientes Lib
>
> 2=+..BitmapCapture.LIB
> 4=+..TFileXLSTFileXLS.lib
> 5=+..TBarCodeTBarCode.lib
>
>
> "Xevi" <xevicomas@gmail.com> escribió en el mensaje
> news:4ace193a$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> José,
>>
>> No se por donde mirar más!!!
>> Por mas que construyo proyectos nuevos, funciona perfectamente.
>> Creo que es por alguna incompatibilidad con Libs que utilizo...
>> Aunque he probado de añadir TODAS las que utilizo a un proyecto nuevo y
>> también funciona. ¿serà porque aunque las incluya, si no utilizo ninguna
>> función no la incluye en el exe final???
>>
>> [LIBRARIES]
>> 1=+..xagdp.lib
>> 2=+..BitmapCapture.LIB
>> 3=+[xharbour]ct.lib
>> 4=+..TFileXLSTFileXLS.lib
>> 5=+..TBarCodeTBarCode.lib
>> 6=+[xharbour]hbzip.lib
>> 7=+[xailer]xailer.lib
>> 8=+[xailer]ocx.lib
>> 9=-[xailer]sqlite.lib
>> 10=-[xailer]libmysql.lib
>> 11=+[xharbour]rtl.lib
>> 12=+[xharbour]vm.lib
>> 13=-[xharbour]gtwin.lib
>> 14=+[xharbour]gtnul.lib
>> 15=+[xharbour]lang.lib
>> 16=+[xharbour]macro.lib
>> 17=+[xharbour]rdd.lib
>> 18=+[xharbour]dbfntx.lib
>> 19=+[xharbour]dbfcdx.lib
>> 20=+[xharbour]dbffpt.lib
>> 21=-[xharbour]sixcdx.lib
>> 22=+[xharbour]hbsix.lib
>> 23=-[xharbour]rddads.lib
>> 24=-[xharbour]ace32.lib
>> 25=+[xharbour]codepage.lib
>> 26=+[xharbour]common.lib
>> 27=+[xharbour]pp.lib
>> 28=+[xharbour]pcrepos.lib
>> 29=+[bcc]psdkodbc32.lib
>> 30=+[bcc]psdkmsimg32.lib
>> 31=+[bcc]cw32.lib
>> 32=+[bcc]import32.lib
>> 33=+[bcc]wininet.lib
>>
>>
>> Un Saludo,
>> Xevi.
>>
>>
>> "José Lalín" <notengo@correo.com> escribió en el mensaje
>> news:4acdced2$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>>
>> Xevi,
>>
>>> Utilizo Xailer 1.99 y si bien compila, al correr me lanza un GPF que
>>> adjunto imagen.
>>
>> La última actualización que publiqué era para Xailer 2.
>>
>>> Alguna ayuda???
>>
>> Creo que en el post de la primera versión, http://xailer.info/esp/?p=100,
>> hay una versión para la 1.8/1.9 pero no estoy seguro.
>>
>> Saludos,
>> José Lalín
>>
>
>
Boris
Mensajes: 153
Registrado: Jue Ago 17, 2006 1:26 pm

De BMP a JPG

Mensaje por Boris »

Xevi
Harbour.exe del 30/11/2007 659.456
"Xevi" <xevicomas@gmail.com> escribió en el mensaje
news:4ace3768$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Boris,
>
> El xHarbour que utilizo es el de la web, creo...
> fecha de los ejecutables de la carpeta Bin y de los achivos de la carpeta
> lib
> 30/11/2007
>
> ¿Puedes comprovar si son de la misma fecha que la versión xHarbour que
> utilizas tú?
> de no ser de la misma fecha, si dispones del instalable de tu xHarbour,
> probaría.
>
> Gracias
>
> Un Saludo,
> Xevi.
>
>
> "Boris Chesini" <masterisi@masterisi.com.ar> escribió en el mensaje
> news:[email=4ace1e7a@svctag-j7w3v3j....]4ace1e7a@svctag-j7w3v3j....[/email]
>> De ser asi busca dentro de las siguientes Lib
>>
>> 2=+..BitmapCapture.LIB
>> 4=+..TFileXLSTFileXLS.lib
>> 5=+..TBarCodeTBarCode.lib
>>
>>
>> "Xevi" <xevicomas@gmail.com> escribió en el mensaje
>> news:4ace193a$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>>> José,
>>>
>>> No se por donde mirar más!!!
>>> Por mas que construyo proyectos nuevos, funciona perfectamente.
>>> Creo que es por alguna incompatibilidad con Libs que utilizo...
>>> Aunque he probado de añadir TODAS las que utilizo a un proyecto nuevo y
>>> también funciona. ¿serà porque aunque las incluya, si no utilizo ninguna
>>> función no la incluye en el exe final???
>>>
>>> [LIBRARIES]
>>> 1=+..xagdp.lib
>>> 2=+..BitmapCapture.LIB
>>> 3=+[xharbour]ct.lib
>>> 4=+..TFileXLSTFileXLS.lib
>>> 5=+..TBarCodeTBarCode.lib
>>> 6=+[xharbour]hbzip.lib
>>> 7=+[xailer]xailer.lib
>>> 8=+[xailer]ocx.lib
>>> 9=-[xailer]sqlite.lib
>>> 10=-[xailer]libmysql.lib
>>> 11=+[xharbour]rtl.lib
>>> 12=+[xharbour]vm.lib
>>> 13=-[xharbour]gtwin.lib
>>> 14=+[xharbour]gtnul.lib
>>> 15=+[xharbour]lang.lib
>>> 16=+[xharbour]macro.lib
>>> 17=+[xharbour]rdd.lib
>>> 18=+[xharbour]dbfntx.lib
>>> 19=+[xharbour]dbfcdx.lib
>>> 20=+[xharbour]dbffpt.lib
>>> 21=-[xharbour]sixcdx.lib
>>> 22=+[xharbour]hbsix.lib
>>> 23=-[xharbour]rddads.lib
>>> 24=-[xharbour]ace32.lib
>>> 25=+[xharbour]codepage.lib
>>> 26=+[xharbour]common.lib
>>> 27=+[xharbour]pp.lib
>>> 28=+[xharbour]pcrepos.lib
>>> 29=+[bcc]psdkodbc32.lib
>>> 30=+[bcc]psdkmsimg32.lib
>>> 31=+[bcc]cw32.lib
>>> 32=+[bcc]import32.lib
>>> 33=+[bcc]wininet.lib
>>>
>>>
>>> Un Saludo,
>>> Xevi.
>>>
>>>
>>> "José Lalín" <notengo@correo.com> escribió en el mensaje
>>> news:4acdced2$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>>>
>>> Xevi,
>>>
>>>> Utilizo Xailer 1.99 y si bien compila, al correr me lanza un GPF que
>>>> adjunto imagen.
>>>
>>> La última actualización que publiqué era para Xailer 2.
>>>
>>>> Alguna ayuda???
>>>
>>> Creo que en el post de la primera versión,
>>> http://xailer.info/esp/?p=100,
>>> hay una versión para la 1.8/1.9 pero no estoy seguro.
>>>
>>> Saludos,
>>> José Lalín
>>>
>>
>>
>
>
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

De BMP a JPG

Mensaje por Xevi »

Boris,
el mismo que estoy utilizando yo.
Un Saludo,
Xevi.
"Boris Chesini" <masterisi@masterisi.com.ar> escribió en el mensaje
news:[email=4ace40b5@svctag-j7w3v3j....]4ace40b5@svctag-j7w3v3j....[/email]
> Xevi
> Harbour.exe del 30/11/2007 659.456
>
> "Xevi" <xevicomas@gmail.com> escribió en el mensaje
> news:4ace3768$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> Boris,
>>
>> El xHarbour que utilizo es el de la web, creo...
>> fecha de los ejecutables de la carpeta Bin y de los achivos de la carpeta
>> lib
>> 30/11/2007
>>
>> ¿Puedes comprovar si son de la misma fecha que la versión xHarbour que
>> utilizas tú?
>> de no ser de la misma fecha, si dispones del instalable de tu xHarbour,
>> probaría.
>>
>> Gracias
>>
>> Un Saludo,
>> Xevi.
>>
>>
>> "Boris Chesini" <masterisi@masterisi.com.ar> escribió en el mensaje
>> news:[email=4ace1e7a@svctag-j7w3v3j....]4ace1e7a@svctag-j7w3v3j....[/email]
>>> De ser asi busca dentro de las siguientes Lib
>>>
>>> 2=+..BitmapCapture.LIB
>>> 4=+..TFileXLSTFileXLS.lib
>>> 5=+..TBarCodeTBarCode.lib
>>>
>>>
>>> "Xevi" <xevicomas@gmail.com> escribió en el mensaje
>>> news:4ace193a$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>>>> José,
>>>>
>>>> No se por donde mirar más!!!
>>>> Por mas que construyo proyectos nuevos, funciona perfectamente.
>>>> Creo que es por alguna incompatibilidad con Libs que utilizo...
>>>> Aunque he probado de añadir TODAS las que utilizo a un proyecto nuevo y
>>>> también funciona. ¿serà porque aunque las incluya, si no utilizo
>>>> ninguna función no la incluye en el exe final???
>>>>
>>>> [LIBRARIES]
>>>> 1=+..xagdp.lib
>>>> 2=+..BitmapCapture.LIB
>>>> 3=+[xharbour]ct.lib
>>>> 4=+..TFileXLSTFileXLS.lib
>>>> 5=+..TBarCodeTBarCode.lib
>>>> 6=+[xharbour]hbzip.lib
>>>> 7=+[xailer]xailer.lib
>>>> 8=+[xailer]ocx.lib
>>>> 9=-[xailer]sqlite.lib
>>>> 10=-[xailer]libmysql.lib
>>>> 11=+[xharbour]rtl.lib
>>>> 12=+[xharbour]vm.lib
>>>> 13=-[xharbour]gtwin.lib
>>>> 14=+[xharbour]gtnul.lib
>>>> 15=+[xharbour]lang.lib
>>>> 16=+[xharbour]macro.lib
>>>> 17=+[xharbour]rdd.lib
>>>> 18=+[xharbour]dbfntx.lib
>>>> 19=+[xharbour]dbfcdx.lib
>>>> 20=+[xharbour]dbffpt.lib
>>>> 21=-[xharbour]sixcdx.lib
>>>> 22=+[xharbour]hbsix.lib
>>>> 23=-[xharbour]rddads.lib
>>>> 24=-[xharbour]ace32.lib
>>>> 25=+[xharbour]codepage.lib
>>>> 26=+[xharbour]common.lib
>>>> 27=+[xharbour]pp.lib
>>>> 28=+[xharbour]pcrepos.lib
>>>> 29=+[bcc]psdkodbc32.lib
>>>> 30=+[bcc]psdkmsimg32.lib
>>>> 31=+[bcc]cw32.lib
>>>> 32=+[bcc]import32.lib
>>>> 33=+[bcc]wininet.lib
>>>>
>>>>
>>>> Un Saludo,
>>>> Xevi.
>>>>
>>>>
>>>> "José Lalín" <notengo@correo.com> escribió en el mensaje
>>>> news:4acdced2$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>>>>
>>>> Xevi,
>>>>
>>>>> Utilizo Xailer 1.99 y si bien compila, al correr me lanza un GPF que
>>>>> adjunto imagen.
>>>>
>>>> La última actualización que publiqué era para Xailer 2.
>>>>
>>>>> Alguna ayuda???
>>>>
>>>> Creo que en el post de la primera versión,
>>>> http://xailer.info/esp/?p=100,
>>>> hay una versión para la 1.8/1.9 pero no estoy seguro.
>>>>
>>>> Saludos,
>>>> José Lalín
>>>>
>>>
>>>
>>
>>
>
>
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

De BMP a JPG

Mensaje por Xevi »

José,
por lo visto estamos utilizando la misma versión.
No se si te has fijado en la libs que utilizo y si puede haber alguna que
cree un conflicto.
Gracias.
Un Saludo,
Xevi.
"José Lalín" <notengo@correo.com> escribió en el mensaje
news:4ace3301$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Xevi,
comprueba si tienes la misma versión de xHarbour que Boris. Recuerdo que el
GPF aparecía con una versión específica de xHarbour.
Saludos,
José Lalín
notengo
Mensajes: 417
Registrado: Vie Oct 12, 2007 1:29 pm

De BMP a JPG

Mensaje por notengo »

Xevi,
> por lo visto estamos utilizando la misma versión.
> No se si te has fijado en la libs que utilizo y si puede haber alguna que
> cree un conflicto.
No creo que sea ese el problema.
En tu aplicación, intercala un MsgAlert() entre cada llamada a la librerí­a
y dime hasta qué punto llega, algo así­:
WITH OBJECT GDP():Create()
MsgAlert( "si" )
hImage := :LoadImageFromFile( NomBMP )
MsgAlert( "load" + ToString( hImage ) )
IF File( NomBmp )
If :SaveToJPEG( NomBmp ,Archi2, nCompress )
MsgInfo( "Ok" )
ENDIF
ENDIF
:DeleteImage( hImage )
MsgAlert( "delete" )
:Destroy()
MsgAlert( "destroy)
END
Saludos,
José Lalí­n
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

De BMP a JPG

Mensaje por Xevi »

José,
1 - MsgAlert resultado Si
2 - MsgAlert resultado load 33962408
3 - añadido un MsgAlert( File( cImage ) ) resultado T
Luego... el GPF.
Gracias.
Un Saludo,
Xevi.
"José Lalín" <notengo@correo.com> escribió en el mensaje
news:4ace63df$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Xevi,
> por lo visto estamos utilizando la misma versión.
> No se si te has fijado en la libs que utilizo y si puede haber alguna que
> cree un conflicto.
No creo que sea ese el problema.
En tu aplicación, intercala un MsgAlert() entre cada llamada a la librería
y dime hasta qué punto llega, algo así:
WITH OBJECT GDP():Create()
MsgAlert( "si" )
hImage := :LoadImageFromFile( NomBMP )
MsgAlert( "load" + ToString( hImage ) )
IF File( NomBmp )
If :SaveToJPEG( NomBmp ,Archi2, nCompress )
MsgInfo( "Ok" )
ENDIF
ENDIF
:DeleteImage( hImage )
MsgAlert( "delete" )
:Destroy()
MsgAlert( "destroy)
END
Saludos,
José Lalín
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

De BMP a JPG

Mensaje por Xevi »

José,
por probar, también he probado a convertirlas en los distintos formatos
:SaveToGIF( cImage, "PROVA.gif" )
:SaveToPNG( cImage, "PROVA.png" )
:SaveToTIFF( cImage, "PROVA.tif" )
Y los tres me lanzan GPF !!!
Gracias por tu tiempo.
Un Saludo,
Xevi.
"José Lalín" <notengo@correo.com> escribió en el mensaje
news:4ace63df$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Xevi,
> por lo visto estamos utilizando la misma versión.
> No se si te has fijado en la libs que utilizo y si puede haber alguna que
> cree un conflicto.
No creo que sea ese el problema.
En tu aplicación, intercala un MsgAlert() entre cada llamada a la librería
y dime hasta qué punto llega, algo así:
WITH OBJECT GDP():Create()
MsgAlert( "si" )
hImage := :LoadImageFromFile( NomBMP )
MsgAlert( "load" + ToString( hImage ) )
IF File( NomBmp )
If :SaveToJPEG( NomBmp ,Archi2, nCompress )
MsgInfo( "Ok" )
ENDIF
ENDIF
:DeleteImage( hImage )
MsgAlert( "delete" )
:Destroy()
MsgAlert( "destroy)
END
Saludos,
José Lalín
notengo
Mensajes: 417
Registrado: Vie Oct 12, 2007 1:29 pm

De BMP a JPG

Mensaje por notengo »

Xevi,
parece que el GPF está en :SaveToJPEG. Prueba así­:
If :SaveToJPEG( hImage, Archi2, nCompress )
Saludos,
José Lalí­n
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

De BMP a JPG

Mensaje por Xevi »

José
Esto fué una de mis primeras pruebas que hice...
No lanza GPF pero si un ERROR...
"Error irrecuperable 9011:"
"hb_xfree llamado con un puntero nulo"
Un Saludo,
Xevi.
"José Lalín" <notengo@correo.com> escribió en el mensaje
news:4acef123$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Xevi,
parece que el GPF está en :SaveToJPEG. Prueba así:
If :SaveToJPEG( hImage, Archi2, nCompress )
Saludos,
José Lalín
notengo
Mensajes: 417
Registrado: Vie Oct 12, 2007 1:29 pm

De BMP a JPG

Mensaje por notengo »

Xevi,
prueba esta versión vieja que he encontrado.
WITH OBJECT TGDP():Create()
IF File( "c:test.bmp" )
:SaveToJPEG( "c:test.bmp", "c:test.jpg", nQuality )
ENDIF
END
Saludos,
José Lalí­n
--
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

De BMP a JPG

Mensaje por Xevi »

José,
Si añado esta lib el programa no corre.
Creo que es demasiado antigua :-(
Serà de la 1.7???
de ahí gdp17
Gracias
Un Saludo,
Xevi.
"José Lalín" <notengo@correo.com> escribió en el mensaje
news:4acf1679$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Xevi,
prueba esta versión vieja que he encontrado.
WITH OBJECT TGDP():Create()
IF File( "c:test.bmp" )
:SaveToJPEG( "c:test.bmp", "c:test.jpg", nQuality )
ENDIF
END
Saludos,
José Lalín
notengo
Mensajes: 417
Registrado: Vie Oct 12, 2007 1:29 pm

De BMP a JPG

Mensaje por notengo »

Xevi,
> Si añado esta lib el programa no corre.
> Creo que es demasiado antigua :-(
¿Tienes algún lugar en la web donde subir un ZIP con tu versión de
xHarbour? Si es así­, lo podrí­a descargar este fin de semana e intentar
compilar la librerí­a para la 1.9, sino me temo que no puedo hacer nada más.
Saludos,
José Lalí­n
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

De BMP a JPG

Mensaje por Xevi »

José,
Gracias por tu tiempo, de verdad.!!!
Mira, te cuento.
He cogido otra aplicación que tengo corriendo (Contabilidad) y le he añadido
la lib.
Me ha dado por seguir probando...
He agregado en un apartado de mi aplicación el código...
LOCAL hImage, cFileName2
WITH OBJECT TCaptureBitmap():New()
:cFilename := cFileName := GetTempFilename()
:Capture( Self )
:Save()
:Destroy()
END
WITH OBJECT GDP():Create()
hImage := :LoadImageFromFile( cFileName )
FErase( cFileName )
:SaveToJPEG( cFileName, cFileName2 := GetTempFilename(), 100 )
:DeleteImage( hImage )
:Destroy()
END
....
....
Printer:StartPage()
Printer:oCanvas:DrawPicture( { 800, 300, Printer:PaperRes()[1] -700,
Printer:PaperRes()[2]/2 -400 }, TPicture():Load( cFileName2 ) )
y funciona PERFECTO!!!
Dado el caso de que funciona en esta aplicación y en TODOS los nuevos
proyectos que creo...
en mi otra aplicación he sacado libs, prgs, objs... he prescindico de TODO
lo que he podido para quedarme con una mini aplicación... y sigue
fallando...
Seguiré probando a ver si puedo localizar donde se queda "atrapada".
Te seguiré contando mis avances.
Lo dicho anteriormente... MUCHAS GRACIAS por todo.
Un Saludo,
Xevi.
"José Lalín" <notengo@correo.com> escribió en el mensaje
news:[email=4acf2596@svctag-j7w3v3j....]4acf2596@svctag-j7w3v3j....[/email]
Xevi,
> Si añado esta lib el programa no corre.
> Creo que es demasiado antigua :-(
¿Tienes algún lugar en la web donde subir un ZIP con tu versión de
xHarbour? Si es así, lo podría descargar este fin de semana e intentar
compilar la librería para la 1.9, sino me temo que no puedo hacer nada más.
Saludos,
José Lalín
notengo
Mensajes: 417
Registrado: Vie Oct 12, 2007 1:29 pm

De BMP a JPG

Mensaje por notengo »

Xevi,
> WITH OBJECT GDP():Create()
> hImage := :LoadImageFromFile( cFileName )
> FErase( cFileName )
> :SaveToJPEG( cFileName, cFileName2 := GetTempFilename(), 100 )
> :DeleteImage( hImage )
> :Destroy()
> END
En este código no necesitas las llamadas a LoadImage y DeleteImage.
> Seguiré probando a ver si puedo localizar donde se queda "atrapada".
> Te seguiré contando mis avances.
Ok.
> Lo dicho anteriormente... MUCHAS GRACIAS por todo.
Un placer.
Saludos,
José Lalí­n
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

De BMP a JPG

Mensaje por Xevi »

José,
No se que puedo mirar más... :-(
En una de mis aplicaciones sigue lanzando el GPF, sin embargo como he
comentado en otra aplicación que dispongo y en cualquier proyecto que cree
nuevo funciona perfectamente.
Tu que sabes cómo és el código fuente de esta lib... ¿puedes saber que puedo
estar utilizando que afecte el comportamiento y salte el GPF???
Es una aplicación de más de 100prgs, por lo que empezar el proyecto desde el
primer prg e ir añadiendo los módulos uno a uno lo veo bastante
complicado...
Un Saludo,
Xevi.
"José Lalín" <notengo@correo.com> escribió en el mensaje
news:4acf3ef4$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Xevi,
> WITH OBJECT GDP():Create()
> hImage := :LoadImageFromFile( cFileName )
> FErase( cFileName )
> :SaveToJPEG( cFileName, cFileName2 := GetTempFilename(), 100 )
> :DeleteImage( hImage )
> :Destroy()
> END
En este código no necesitas las llamadas a LoadImage y DeleteImage.
> Seguiré probando a ver si puedo localizar donde se queda "atrapada".
> Te seguiré contando mis avances.
Ok.
> Lo dicho anteriormente... MUCHAS GRACIAS por todo.
Un placer.
Saludos,
José Lalín
Responder