FiveTech Software tech support forums

Antonio,

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

Gracias.

Eduardo,

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

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

Miguel,

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

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

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

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

Abrazo.

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

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

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

hmpaquito wrote: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

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.

Mira,

Code: Select all  Expand view

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

karinha wrote:Mira,

Code: Select all  Expand view

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