Computadora con 8 Gbs de memóra RAM esta con este problema: CANNOT LOAD FREEIMAGE64.DLL que hacer?
Windows 8 de 64 bits.
Gracias, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Computadora con 8 Gbs de memóra RAM esta con este problema: CANNOT LOAD FREEIMAGE64.DLL que hacer?
Windows 8 de 64 bits.
Gracias, saludos.
João,
Por favor prueba esto:
MsgInfo( LoadLIbrary( "freeimage64.dll" ) )
y dime que valor te muestra
#include "FiveWin.ch"
FUNCTION MAIN()
MsgInfo( LoadLIbrary( "freeimage64.dll" ) )
RETURN NIL
Prueba con esta

CLASS TImage FROM TBitmap
DATA nProgress
DATA nFormat
CLASSDATA cResFile AS CHARACTER ;
INIT If( ISWIN64(), "freeimage64.dll", "freeimage.dll" )CLASS TImage FROM TBitmap
DATA nProgress
DATA nFormat
CLASSDATA cResFile AS CHARACTER ;
INIT If( ISWIN64(), "freeimage.dll", "freeimage.dll" ) CLASSDATA cResFile AS CHARACTER ;
INIT If( ISExe64(), "freeimage64.dll", "freeimage.dll" )cnavarro wrote:Creo que quedaria mejor asi
CLASSDATA cResFile AS CHARACTER ; INIT If( ISExe64(), "freeimage64.dll", "freeimage.dll" )
La solución de Cristobal es la correcta
Gracias maestro. El próximo mes, vamos a actualizar la Fivewin a la última versión 2016. Me encanta Fivewin.
Súper agradecido.
Saludos.
HB_FUNC( ISEXE64 ) // Check if our app is 64 bits
{
hb_retl( ( sizeof( void * ) == 8 ) );
}#pragma BEGINDUMP
#include <windows.h>
#include <hbapi.h>
#include <hbapierr.h>
HB_FUNC( ISEXE64 ) // Check if our app is 64 bits
{
hb_retl( ( sizeof( void * ) == 8 ) );
}
#pragma ENDDUMPDEFINE WINDOW oWnd ICON oIcon FROM nFilaSup, nColIzq TO nFilaInf, nColDer PIXEL TITLE APP_NAME MENU BuildMenu(oMenu)
DEFINE BUTTONBAR oBar SIZE 60, 60 CURSOR oMano OF oWnd _2007
// *********** bmp de fondo ********************************************
oBmpFondo = TImage():Define( , "fondo.jpg" )
hDC := oWnd:GetDC()
oWnd:bPainted = { | hDC | PalBmpDraw( hDC, 0, 0, oBmpFondo:hBitMap,, oWnd:nWidth, oWnd:nHeight,, .t.) }
SendMessage( oWnd:hWnd, 128, 1, oIcon:hIcon )
DEFINE BUTTON FILENAME "printer.bmp" OF oBar NOBORDER TOP FONT oFontBar PROMPT "Print" GROUP ;
TOOLTIP "Selección de impresora" ACTION PrinterSetup()
DEFINE BUTTON FILENAME "Exit.bmp" OF oBar NOBORDER TOP FONT oFontBar PROMPT "Salir" ;
TOOLTIP "Fin de la sesión" ACTION oWnd:End()
ACTIVATE WINDOW oWndJose Vicente, por qué no utilizas la clase TXImage y te quitas dependencias externas?
Cristobal, he cambiado la clase y ahora no da errores, gracias ![]()