FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)Last update on Sat Oct 17, 2026 02:08 PM UTC
Board index FiveWin for Harbour/xHarbour problem in create fivehmx.lib
kajot
Posts: 375
Joined: Thu Nov 02, 2006 06:53 PM

Re: problem in create fivehmx.lib

Posted: Mon Jun 22, 2026 06:18 AM

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<<<

best regards

kajot
Antonio Linares
Posts: 44508
Joined: Thu Oct 06, 2005 05:47 PM

Re: problem in create fivehmx.lib

Posted: Mon Jun 22, 2026 06:49 AM

Please remove hb_storvnl and MSGWAIT from your main.prg

regards, saludos

Antonio Linares
www.fivetechsoft.com
Antonio Linares
Posts: 44508
Joined: Thu Oct 06, 2005 05:47 PM

Re: problem in create fivehmx.lib

Posted: Mon Jun 22, 2026 06:56 AM

Please remove WINUPPER from konwert.prg

regards, saludos

Antonio Linares
www.fivetechsoft.com
Antonio Linares
Posts: 44508
Joined: Thu Oct 06, 2005 05:47 PM

Re: problem in create fivehmx.lib

Posted: Mon Jun 22, 2026 07:30 AM
Code: Select all Collapse
#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 );
}
regards, saludos

Antonio Linares
www.fivetechsoft.com
kajot
Posts: 375
Joined: Thu Nov 02, 2006 06:53 PM

Re: problem in create fivehmx.lib

Posted: Mon Jun 22, 2026 07:50 AM

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)'.

best regards

kajot
Antonio Linares
Posts: 44508
Joined: Thu Oct 06, 2005 05:47 PM

Re: problem in create fivehmx.lib

Posted: Mon Jun 22, 2026 08:00 AM
Code: Select all Collapse
/*
*
* 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
*/
//----------------------------------------------------------------------------//
regards, saludos

Antonio Linares
www.fivetechsoft.com
kajot
Posts: 375
Joined: Thu Nov 02, 2006 06:53 PM

Re: problem in create fivehmx.lib

Posted: Mon Jun 22, 2026 03:29 PM

thank You for help

everthing works fine in FWH 26.06 and xHarbour com even FOLDER

best regards KAJOT

best regards

kajot

Continue the discussion

Static archive · New replies & topics via GitHub Discussions