Cambios requeridos para image.prg en FWH 64 bits

[Antonio Linares]

Solo para FWH 64 bits en source/classes/image.prg:

Code: Select all  Expand view

//------------------------------------------------------------------//

DLL32 FUNCTION FISAVE( nFormat AS LONG, hDib AS LONG, cFileName AS LPSTR, nFlags AS LONG ) AS BOOL ;
      PASCAL FROM If( IsExe64(), "FreeImage_Save", "_FreeImage_Save@16" ) LIB hLib

DLL32 FUNCTION FIGETWIDTH( hDib AS LONG ) AS LONG ;
      PASCAL FROM If( IsExe64(), "FreeImage_GetWidth", "_FreeImage_GetWidth@4" ) LIB hLib

DLL32 FUNCTION FICONVTO32( hDib AS LONG ) AS LONG ;
      PASCAL FROM If( IsExe64(), "FreeImage_ConvertTo32Bits", "_FreeImage_ConvertTo32Bits@4" ) ;
      LIB hLib

DLL32 FUNCTION FISETTRANSPARENT( hDib AS LONG, lOnOff AS BOOL ) AS VOID ;
      PASCAL FROM If( IsExe64(), "FreeImage_SetTransparent", "_FreeImage_SetTransparent@8" ) ;
      LIB hLib

DLL32 FUNCTION FIISTRANSPARENT( hDib AS LONG ) AS BOOL ;
      PASCAL FROM If( IsExe64(), "FreeImage_IsTransparent", "_FreeImage_IsTransparent@4" ) ;
      LIB hLib

DLL32 FUNCTION FICNV24( hDib AS LONG ) AS LONG ;
      PASCAL FROM If( IsExe64(), "FreeImage_ConvertTo24Bits", "_FreeImage_ConvertTo24Bits@4" ) ;
      LIB hLib

DLL32 FUNCTION FIGETFILETYPE( cFileName AS LPSTR, nSize AS LONG ) AS LONG ;
      PASCAL FROM If( IsExe64(), "FreeImage_GetFileType", "_FreeImage_GetFileType@8" ) ;
      LIB hLib

DLL32 FUNCTION FILOAD( nFormat AS LONG, cFileName AS LPSTR, nFlags AS LONG ) AS LONG ;
      PASCAL FROM If( IsExe64(), "FreeImage_Load", "_FreeImage_Load@12" ) ;
      LIB hLib

DLL32 FUNCTION FIGETINFOHEADER( hDib AS LONG ) AS LONG ;
      PASCAL FROM If( IsExe64(), "FreeImage_GetInfoHeader", "_FreeImage_GetInfoHeader@4" ) ;
      LIB hLib

DLL32 FUNCTION FIGETINFO( hDib AS LONG ) AS LONG ;
      PASCAL FROM If( IsExe64(), "FreeImage_GetInfo", "_FreeImage_GetInfo@4" ) ;
      LIB hLib

DLL32 FUNCTION FIGETBITS( hDib AS LONG ) AS LONG ;
      PASCAL FROM If( IsExe64(), "FreeImage_GetBits", "_FreeImage_GetBits@4" ) ;
      LIB hLib

DLL32 FUNCTION FIUNLOAD( hDib AS LONG ) AS VOID ;
      PASCAL FROM If( IsExe64(), "FreeImage_Unload", "_FreeImage_Unload@4" ) LIB hLib

DLL32 FUNCTION FI_OpenMemory( cData AS LPSTR, nSize AS LONG ) AS LONG ;
      PASCAL FROM If( IsExe64(), "FreeImage_OpenMemory", "_FreeImage_OpenMemory@8" ) ;
      LIB hLib

DLL32 FUNCTION FI_LoadFromMemory( nFormat AS LONG, nStream AS LONG, nFlags AS LONG ) AS LONG ;
      PASCAL FROM If( IsExe64(), "FreeImage_LoadFromMemory", "_FreeImage_LoadFromMemory@12" ) ;
      LIB hLib

DLL32 FUNCTION FI_CloseMemory( nStream AS LONG ) AS LONG ;
      PASCAL FROM If( IsExe64(), "FreeImage_CloseMemory", "_FreeImage_CloseMemory@4" ) ;
      LIB hLib

DLL32 FUNCTION FI_GetFileTypeFromMemory( nStream AS LONG, nSize AS LONG ) AS LONG ;
      PASCAL FROM If( IsExe64(), "FreeImage_GetFileTypeFromMemory", "_FreeImage_GetFileTypeFromMemory@8" ) ;
      LIB hLib

DLL32 FUNCTION FI_SaveToMemory( nFormat AS LONG, hDib AS LONG, cStream AS LPSTR, nFlags AS LONG ) AS LONG ;
      PASCAL FROM If( IsExe64(), "FreeImage_SaveToMemory", "_FreeImage_SaveToMemory@12" ) ;
      LIB hLib

//----------------------------------------------------------------------------//