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