Error While trying to use ActiveX control

[Milan Mehta]

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.

[Antonio Linares]

Milan,

You have to add this code to your app:

Code: Select all  Expand view

#pragma BEGINDUMP

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

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

#pragma ENDDUMP