Página 1 de 1

Que linha falta no fim do meu prg?

Enviado: 14 Jan 2010 20:22
por ricardo-barros
Olá Amigos.

Para resolver o seguinte erro no Harbour + Fivewin:
Unresolved external '_HB_FUN_BWCCREGISTER' referenced from CUPOM.OBJ

Foi só acrescentar no final do PRG a seguinte linha:
DLL32 FUNCTION BWCCRegister( hInst AS LONG ) AS WORD PASCAL LIB "BWCC32.DLL"

E para estes outros unresolved external?
_HB_FUN_LOADLIBRARY
_HB_FUN_GETRESOURCES
_HB_FUN_STEHANDLECOUNT
_HB_FUN_FREELIBRARY
_HB_FUN_TSAY
_HB_FUN_GETPROCADRESS
_HB_FUN_CALLDLL
_HB_FUN_MSGALERT

Re: Que linha falta no fim do meu prg?

Enviado: 14 Jan 2010 21:12
por gvc
Vc colocou tb no fonte?

hBorland:= LoadLibrary("BWCC32.DLL")
BWCCRegister(GetResources())

Re: Que linha falta no fim do meu prg?

Enviado: 16 Jan 2010 01:57
por rochinha
Amiguinho

Voce deve incluir as chamadas as bibliotecas Fivewin(five.lib e fivehc.lib) ao seu .BAT de compilação ou pelo seu MAKE.

Veja a resposta no post que voce colocou na sessão Fivewin.

Re: Que linha falta no fim do meu prg?

Enviado: 18 Jan 2010 20:54
por ricardo-barros
Sim, Gvc

É um pequeno prg só para testar. Faz apenas uma leitura X:

#include "\Harbour\FWH\Include\FiveWin.ch"
#include "\Harbour\FWH\Include\Dll.ch"
Procedure Main()
public Int_Retorno
hBor := LoadLibrary( "bwcc32.dll" )
BWCCRegister( GetResources( ) )
SetHandleCount( 200 )
m->Int_Retorno := Daruma_FI_LeituraX()
hb_Analisa_Retorno()
FreeLibrary( hBor ) // Release borland
Return
*----------------------------------------------------------------------------*
DLL32 FUNCTION Daruma_FI_LeituraX( ) AS LONG PASCAL FROM "Daruma_FI_LeituraX" LIB 'Daruma32.dll'
DLL32 FUNCTION BWCCRegister( hInst AS LONG ) AS WORD PASCAL LIB "BWCC32.DLL"

Compila mas não linka.

Re: Que linha falta no fim do meu prg?

Enviado: 19 Jan 2010 03:05
por rochinha
Amiguinho Ricardo-Barros,

Faça um teste com o material contido no tópico ACBr - xHarbour.

Com ele voce poderá usar a Daruma, bastando mudar uma linha e a porta de uso.

Usando esta .DLL não preciso nem usar monitores ou drivers. Acesso direto e limpo.