Antonio,
¿Se solucionó ya el problema con la clase TGET y el borrado de caracteres?.
Gracias.
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
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()
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.
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 hLibkarinha wrote:Mira,
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