I try to see events with activex the following is example program. With error generated following.
What am I doing wrong.
Thanks Mike.
- 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
#include "fivewin.ch"
static oWnd, oActiveX,cEvents:=""
function Main()
DEFINE WINDOW oWnd TITLE "Test ActiveX"
oActiveX :=TActiveX():New( oWnd,"DpSdkOps.FPRegisterTemplateX.1" )
oActiveX:bOnEvent = { | event, aParams | cEvents += EventInfo( event, aParams ) }
oWnd:oClient = oActiveX
oActiveX:do("RUN")
ACTIVATE WINDOW oWnd maximized 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
Application
===========
Path and name: C:\Program Files\DigitalPersona\Bin\activex2.exe (32 bits)
Size: 1,494,528 bytes
Time from start: 0 hours 0 mins 0 secs
Error occurred at: 04/03/06, 14:10:50
Error description: Error DpSdkOps.FPRegisterTemplateX.1/16389 E_FAIL: _BONEVENT
Args:
[ 1] = B {|| ... }
Stack Calls
===========
Called from: TActiveX.prg => TACTIVEX:_BONEVENT(0)
Called from: activex2.prg => MAIN(25)
System
======
CPU type: Intel(R) Pentium(R) 4 CPU 3.20GHz 3200 Mhz
Hardware memory: 1023 megs
Free System resources: 90 %
GDI resources: 90 %
User resources: 90 %
Compiler version: xHarbour build 0.99.61 Intl. (SimpLex)
Windows version: 5.1, Build 2600 Service Pack 2
