FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Error While trying to use ActiveX control
Posts: 115
Joined: Mon Oct 17, 2005 04:42 AM

Error While trying to use ActiveX control

Posted: Thu Mar 30, 2006 12:32 PM

Hello All,

While trying to use ActiveX control, I get folllowing Error :

Error: Unresolved external '_hb_dynsymSymbol' referenced from C:\FWH\LIB\FIVEHC.LIB|HARBOURC

My code is as follows :
----------------------------------------Cut---------------------------------

include "FiveWin.ch"

function Main()

local oWnd, oActiveX, cSeed
local cEvents := ""

DEFINE WINDOW oWnd TITLE "GSN Testing"

oActiveX = TActiveX():New( oWnd, "GSN.GSNCtrl.1" )
oActiveX:nWidth = 0
oActiveX:nHeight = 0

oActiveX:bOnEvent = { | event, aParams | cEvents += EventInfo( event, aParams ) }

ACTIVATE WINDOW oWnd ;
VALID ( MemoEdit( cEvents ), .t. )

return nil

function EventInfo( event, aParams )

local cMsg := "Event: " + cValToChar( event ) + CRLF
local n

cMsg += "Params: "

for n = 1 to Len( aParams )
cMsg += cValToChar( aParams[ n ] ) + CRLF
next

return cMsg + CRLF

-----------------------Paste------------------------------------------
Milan.

Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Error While trying to use ActiveX control

Posted: Thu Mar 30, 2006 01:49 PM
Milan,

You have to add this code to your app:
#pragma BEGINDUMP 

#include "hbapi.h" 
#include "hbapiitm.h" 

PHB_SYMB hb_dynsymSymbol( PHB_DYNS pDynSym ) 
{ 
   return pDynSym->pSymbol; 
} 

#pragma ENDDUMP
regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion