Nuevo FWH 13.12

[Antonio Linares]

viewtopic.php?f=16&t=27548

[mgsoft]

Antonio,

¿Se solucionó ya el problema con la clase TGET y el borrado de caracteres?.

Gracias.

[Antonio Linares]

Eduardo,

Si, no hay pendiente ningún bug de la Clase TGet que yo sepa

[El Loco]

Antonio, gracias por incluir la clase TLayout para FW64.
Espectacular el ejemplo Touch.prg que incluye la clase FLATBTN.
He compilado el 80% de los ejemplos en 64bits y todos funcionando.

Solo una pregunta. Donde debería estar instalada la Freeimage64.dll

Desde ya muchísimas gracias.
Un gran abrazo.
Miguel

[Antonio Linares]

Miguel,

En la carpeta en donde este el EXE ó en la carpeta de Windows, para que Windows la pueda localizar

[El Loco]

No Antonio, eso desde ya que lo probé. En el mismo directorio, en el System32, System, SysWOW64.
Siempre sale el mismo msg.: "Cannot load FreImag64.dll"

Abrazo

[cnavarro]

A ver si va a ser "Cannot load FreeImag64.dll" el problema? y lo tuvieras mal escrito en tu codigo

[El Loco]

Cristobal, estoy usando directamente el ejemplo "Samples\Touch.prg" que viene con FiveWin.

Abrazo.

[cnavarro]

Miguel
Doy por hecho que has comprobado que en el subdirectorio samples esta la Dll ( freeimage64.dll )
Por lo demas, no puedo ayudarte ya que utilizo la version de 32 bits y en esta version el ejemplo TOUCH funciona correctamente

[hmpaquito]

Compruebese que la dll es cargada con loadlibrary() y *NO* con loadlib32()

[El Loco]

Exacto Cristobal, la FreeImag64.dll esta en directorio samples, además cuando instalas ya por defecto la coloca en ese directorio.
Pero... viendo lo que comentas que la usas en 32bits, hice la prueba y efectivamente en 32bits no me tira el error.
Seguiré investigando a ver que puede llegar a hacer.
Un abrazo y gracias por responder.

Miguel

[El Loco]

Compruebese que la dll es cargada con loadlibrary() y *NO* con loadlib32()

Paquito, el ejemplo no incluye ninguna llamada a la dicha dll, no obstante le agregue lo que indicas loadlibrary("FreeImag64.dll"), pero sigue con lo mismo.

Un abrazo y gracias.
Miguel

[cnavarro]

Miguel
En el unico sitio que creo que se puede estar usando (Freeimage.dll) es en la clase TImage (Image.prg)
Yo lo he mirado un poco por encima y no veo ningun problema.

[karinha]

Mira,

Code: Select all  Expand view  RUN

function LoadFreeImage( cResFile )

   DEFAULT cResFile := If( IsWin64(), "freeimage64.dll", "freeimage.dll" )

   if Empty( hLib )
      #ifdef __CLIPPER__
         hLib = LoadLib32( cResFile )
      #else
         hLib = LoadLibrary( cResFile )
      #endif

      if hLib <= 32
         MsgAlert( "Cannot load " + If( IsWin64(), "FreeImage64.dll", "FreeImage
         hLib  = 0
      endif

   endif

return hLib

[El Loco]

Mira,

Code: Select all  Expand view  RUN

function LoadFreeImage( cResFile )

   DEFAULT cResFile := If( IsWin64(), "freeimage64.dll", "freeimage.dll" )

   if Empty( hLib )
      #ifdef __CLIPPER__
         hLib = LoadLib32( cResFile )
      #else
         hLib = LoadLibrary( cResFile )
      #endif

      if hLib <= 32
         MsgAlert( "Cannot load " + If( IsWin64(), "FreeImage64.dll", "FreeImage
         hLib  = 0
      endif

   endif

return hLib

Tampoco karinha, arroja el mismo error, solo que ahora lo tira dos veces.
Abrazo y gracias.
Miguel