erro dllcall

[jair]

¡Buen día!
Actualicé a fwh 24-07 y tengo algunas características en dll de otros sistemas que uso DllCall y al compilar me muestra el siguiente error:
Compiling...
Harbour 3.2.0dev (r2407221137)
Copyright (c) 1999-2021, https://harbour.github.io/
Compiling 'test.prg' and generating preprocessed output to 'test.ppo'...
Lines 5174, Functions/Procedures 3
Generating C source output to 'test.c'... Done.
Embarcadero C++ 7.70 for Win32 Copyright (c) 1993-2023 Embarcadero Technologies, Inc.
test.c:
Turbo Incremental Link 6.97 Copyright (c) 1997-2022 Embarcadero Technologies, Inc.
Error: Unresolved external '_HB_FUN_DLLLOAD' referenced from C:\FWH\SAMPLES\TEST.OBJ
Error: Unresolved external '_HB_FUN_DLLCALL' referenced from C:\FWH\SAMPLES\TEST.OBJ
Error: Unable to perform link

-Lc:\bcc77\lib;c:\bcc77\lib\psdk +
c:\bcc77\lib\c0w32.obj +
test.obj, +
test.exe, +
test.map, +
c:\fwh\lib\FiveH.lib c:\fwh\lib\FiveHC.lib c:\fwh\lib\libmysql.lib +
c:\fwh\lib\hbpgsql.lib c:\fwh\lib\libpq.lib +
c:\fwh\lib\drxlsx32_bcc.lib +
c:\harbour\lib\win\bcc\hbhpdf.lib +
c:\harbour\lib\win\bcc\libhpdf.lib +
c:\harbour\lib\win\bcc\png.lib +
c:\harbour\lib\win\bcc\hbwin.lib +
c:\harbour\lib\win\bcc\gtgui.lib +
c:\harbour\lib\win\bcc\hbrtl.lib +
c:\harbour\lib\win\bcc\hbvm.lib +
c:\harbour\lib\win\bcc\hblang.lib +
c:\harbour\lib\win\bcc\hbmacro.lib +
c:\harbour\lib\win\bcc\hbrdd.lib +
c:\harbour\lib\win\bcc\rddntx.lib +
c:\harbour\lib\win\bcc\rddcdx.lib +
c:\harbour\lib\win\bcc\rddfpt.lib +
c:\harbour\lib\win\bcc\hbsix.lib +
c:\harbour\lib\win\bcc\hbdebug.lib +
c:\harbour\lib\win\bcc\hbcommon.lib +
c:\harbour\lib\win\bcc\hbpp.lib +
c:\harbour\lib\win\bcc\hbcpage.lib +
c:\harbour\lib\win\bcc\hbcplr.lib +
c:\harbour\lib\win\bcc\hbct.lib +
c:\harbour\lib\win\bcc\hbpcre.lib +
c:\harbour\lib\win\bcc\xhb.lib +
c:\harbour\lib\win\bcc\hbziparc.lib +
c:\harbour\lib\win\bcc\hbmzip.lib +
c:\harbour\lib\win\bcc\hbzlib.lib +
c:\harbour\lib\win\bcc\minizip.lib +
c:\harbour\lib\win\bcc\hbusrrdd.lib +
c:\harbour\lib\win\bcc\hbtip.lib +
c:\harbour\lib\win\bcc\hbzebra.lib +
c:\harbour\lib\win\bcc\hbcurl.lib +
c:\harbour\lib\win\bcc\libcurl.lib +
c:\fwh\lib\dolphin.lib +
c:\bcc77\lib\cw32.lib +
c:\bcc77\lib\psdk\uuid.lib +
c:\bcc77\lib\import32.lib +
c:\bcc77\lib\psdk\ws2_32.lib +
c:\bcc77\lib\psdk\odbc32.lib +
c:\bcc77\lib\psdk\nddeapi.lib +
c:\bcc77\lib\psdk\iphlpapi.lib +
c:\bcc77\lib\psdk\msimg32.lib +
c:\bcc77\lib\psdk\psapi.lib +
c:\bcc77\lib\psdk\rasapi32.lib +
c:\bcc77\lib\psdk\gdiplus.lib +
c:\bcc77\lib\psdk\shell32.lib +
c:\bcc77\lib\psdk\uxtheme.lib ,

Code: Select all  Expand view

#include "fivewin.ch"      
#include "dll.ch"
#define DLL_STDCALL 0x08
#define STR_LEN     1024
FUNCTION MAIN( eArqConfig, eChaveCrypt)
    eArqConfig :=if(eArqConfig = nil, '', eArqConfig)
    eChaveCrypt:=if(eChaveCrypt = nil, '', eChaveCrypt)
    TRY
       hHandle := DllLoad( '.\dll\ACBreSocial32.dll' )
    CATCH oError
        MsgInfo( oError:Description )
    END
    TRY
       hResult := DllCall(hHandle, DLL_STDCALL, "eSocial_Inicializar", alltrim(eArqConfig), "")
         CheckResult(hResult)
    CATCH oError
        MsgInfo( oError:Description )
    END

function Clear()
    local hResult
    hResult := DllCall(hHandle, DLL_STDCALL, "eSocial_Finalizar()")
RETURN nil


 

[Antonio Linares]

Estás enlazando hbwin.lib ?

[Enrico Maria Giordano]

You have to declare LOCAL hHandle and LOCAL hResult.

[jair]

No sistema estar correto esta em uma classe este exemplo ai foi so para expor e fazer um teste porem o erro em se é apenas nao achar a funcao DllCall

[Antonio Linares]

Enlaza la librería hbxpp.lib

[Enrico Maria Giordano]

I confirm: you need hbxpp.lib (just checked).

[karinha]

https://www.projetoacbr.com.br/forum/topic/50775-esocial-erro-ao-executar-exemplo/

Regards, saludos.

[jair]

C:\eSocial>c:\bcc77\bin\make -fesocial.mak
MAKE Version 5.43 Copyright (c) 1987, 2019 Embarcadero Technologies, Inc.
IF EXIST ESOCIAL.res echo ESOCIAL.res >> b32.bc
C:\BCC77\bin\ilink32 -Gn -aa -Tpe -s @b32.bc
Turbo Incremental Link 6.97 Copyright (c) 1997-2022 Embarcadero Technologies, Inc.
Fatal: Unable to open file 'UUID.LIB'

** error 2 ** deleting ESOCIAL.EXE

Existe el archivo en c:\bcc77\lib\psdk\

c:\bcc77\lib\cw32.lib +
c:\bcc77\lib\psdk\uuid.lib +
c:\bcc77\lib\import32.lib +

[jair]

Porem se eu coloco um copia de uuid.lib na pasta onde estou contruindo o exe ao gera o executavel y funciona

[Jimmy]

hi,

Code: Select all  Expand view

#define DLL_STDCALL 0x08

just want to Say that VALUE of DLL_STDCALL (Xbase++ ? ) is wrong

this are the Xbase++ DLL CALL Constants

Code: Select all  Expand view

// Konstanten der Aufrufkonventionen
#define  DLL_SYSTEM               4
#define  DLL_CDECL                8
#define  DLL_STDCALL             32
#define  DLL_XPPCALL            128
 

have a look at viewtopic.php?f=3&t=44879
for hbdll.h and Harbour Constants