problem in create fivehmx.lib

[kajot]

thanks

and yet

where can I found c:\vc98\lib\libc.lib

when I rebuild my app wRVAT

Type: C >>>xlink.exe -NOEXPOBJ -MAP -FORCE:MULTIPLE -NOIMPLIB -subsystem:windows -UNMANGLE -LIBPATH:"S:\lib" -LIBPATH:"R:\lib" -LIBPATH:"R:\c_lib" -LIBPATH:"R:\c_lib\win" "wRVAT.obj" "errorsys.obj" "strtoken.obj" "main.obj" "kontrah.obj" "a.obj" "firma.obj" "rzak_ngl.obj" "rzak_poz.obj" "rspr_ngl.obj" "rspr_poz.obj" "import.obj" "export.obj" "vat_7.obj" "vat_27.obj" "vat_ue.obj" "ana_rz.obj" "ana_rs.obj" "jpk_vat.obj" "dek_nag.obj" "dek_poz.obj" "konwert.obj" "password.obj" "ksef.obj" "mem32.lib" "send32.lib" "png.lib" "r:\c_lib\win\gdi32.lib" "r:\c_lib\win\gdiplus.lib" "xhbzip.lib" "xhbzipdll.lib" "xfw.lib" "r:\c_lib\crt.lib" "c:\vc98\lib\LIBC.LIB" "FiveHCM.lib" "FiveHMX.lib" "OptG.lib" "xhb.lib" "dbf.lib" "nsx.lib" "ntx.lib" "cdx.lib" "rmdbfcdx.lib" "ct3comm.lib" crt.lib kernel32.lib user32.lib winspool.lib ole32.lib oleaut32.lib odbc32.lib odbccp32.lib uuid.lib wsock32.lib ws2_32.lib wininet.lib advapi32.lib shlwapi.lib msimg32.lib mpr.lib OleDlg.lib version.lib comctl32.lib comdlg32.lib gdi32.lib shell32.lib winmm.lib lz32.lib Netapi32.lib -out:"wRVAT.EXE"<<<
VAT.obj)' is multiply defined.
xLINK: warning: Symbol 'S:\lib\FiveHCM.lib(xhbcompat.obj)->hb_storvnl previously defined at (main.obj)' is multiply defined.
xLINK: warning: Symbol 'S:\lib\FiveHCM.lib(gettext.obj)->HB_FUN_WINUPPER previously defined at (konwert.obj)' is multiply defined.
xLINK: warning: Symbol 'S:\lib\Fivehmx.lib(msgrun.obj)->HB_FUN_MSGWAIT previously defined at (main.obj)' is multiply defined.
Creating object: wRVAT.EXP
Creating library: wRVAT.LIB
xLINK: error: Unresolved external symbol 'HB_FUN_TDBF_DECRYPT referenced from Fivehmx.lib(database.obj)'.
xLINK: error: Unresolved external symbol '_HB_FUN_TDBF_ENCRYPT referenced from Fivehmx.lib(database.obj)'.
xLINK: fatal error: 2 unresolved external(s).

Type: C >>>Couldn't build: wRVAT.EXE<<<
Type: C >>>TMAKEPROJECT<<<
Type: C >>>TMAKEPROJECT:REFRESH<<<
Type: N >>> 1428<<<

[Antonio Linares]

Please remove hb_storvnl and MSGWAIT from your main.prg

[Antonio Linares]

Please remove WINUPPER from konwert.prg

[Antonio Linares]

Code: Select all | Expand

#include <windows.h>

/* 64-bit left shift */
__int64 __cdecl _allshl( __int64 val, int shift )
{
   if( shift >= 32 )
      return ( (__int64)(DWORD)val ) << ( shift - 32 );
   else if( shift <= 0 )
      return val;
   else
      return ( ((__int64)val) << shift );
}

/* 64-bit arithmetic right shift */
__int64 __cdecl _allshr( __int64 val, int shift )
{
   if( shift >= 32 )
      return ( (__int64)( (int)( val >> 32 ) ) >> ( shift - 32 ) );
   else if( shift <= 0 )
      return val;
   else
      return ( val >> shift );
}

/* 64-bit unsigned (logical) right shift */
unsigned __int64 __cdecl _aullshr( unsigned __int64 val, int shift )
{
   if( shift >= 32 )
      return ( (unsigned __int64)( (unsigned long)( val >> 32 ) ) >> ( shift - 32 ) );
   else if( shift <= 0 )
      return val;
   else
      return ( val >> shift );
}

[kajot]

thanks

yet

when I create my app

xLINK: error: Unresolved external symbol 'HB_FUN_TDBF_DECRYPT referenced from Fivehmx.lib(database.obj)'.
xLINK: error: Unresolved external symbol '_HB_FUN_TDBF_ENCRYPT referenced from Fivehmx.lib(database.obj)'.

[Antonio Linares]

Code: Select all | Expand

/*
*
* tdbfuncs.prg
* encryption support for TDatabase
*
*/

#include "fivewin.ch"

//static cMasterKey  // not used now

static cPrefix    := Chr( 0x23 ) + Chr( 0x9E ) + Chr( 0xD8 ) + Chr( 0xF8 )
       // same as encrypt( "encr", cMasterKey )

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

function tdbf_encrypt( cText, cPW )

   local cCrypt

   if ValType( cPW ) != 'C' .or. Empty( cPW )
      return cText
   endif

   if Empty( cText ) .or. ValType( cText ) != 'C' .or. Left( cText, 4 ) == cPrefix
      return cText
   endif

   cCrypt   := cPrefix + encrypt( cText, cPW )

return cCrypt

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

function tdbf_decrypt( cCrypt, cPW )

   local cText

   if ValType( cPW ) != 'C' .or. Empty( cPW )
      return cCrypt
   endif

   if Empty( cCrypt ) .or. ValType( cCrypt ) != 'C' .or. Left( cCrypt, 4 ) != cPrefix
      return cCrypt
   endif

   cText    := Decrypt( SubStr( cCrypt, 5 ), cPW )

return cText

//----------------------------------------------------------------------------//
/*
// not used now but keep the logic for future use, if required
//
static function masterkey()

   local c,n

   if cMasterKey == nil
      c  := DTOS( CTOD( "" ) + 0x251d9d )
      cMasterKey  := ""
      for n := 1 to 8
         cMasterKey  += CHR( ASC( SubStr( c, n ) ) + 17 )
      next
   endif

return cMasterKey
*/
//----------------------------------------------------------------------------//

[kajot]

thank You for help

everthing works fine in FWH 26.06 and xHarbour com even FOLDER

best regards
KAJOT