FiveTech Software tech support forums

Jose,

Please try this:

__axRegisterHandler( ::&cPropName:__hObj, { || MsgBeep() } )

Antonio,

MsgInfo( ValType( __axRegisterHandler( ::&cPropName:__hObj, {| ...| MsgInfo( 'Test') } ) ) ) shows "P"

FYI,

Jose

Jose,

This way:

MsgInfo( ValType( __axRegisterHandler( ::&cPropName:__hObj, {| ...| MsgInfo( 'Test') } ) ) )

Antonio,

MsgInfo( __axRegisterHandler( ::&cPropName:__hObj, {| ...| MsgInfo( 'Test') } ) ) shows "ValtoChar not supported Type yet"

FYI,

Jose

Jose,

Try this:

MsgInfo( __axRegisterHandler( ::&cPropName:__hObj, {| ...| MsgInfo( 'Test') } ) )

Antonio,

I also checked valtype and here are results.

Msginfo(::&cPropName:__hObj) shows "ValtoChar not supported Type yet"

Msginfo(valtype(::&cPropName:__hObj)) shows "P"

FYI,

Jose

Please try this:

MsgInfo( ::&cPropName:__hObj )

and let me know what you get

Antonio,

I just tried the following suggestion and it doesn't work.
__axRegisterHandler( ::&cPropName:__hObj, {| ...| MsgInfo( 'Test') } )

Please advise. Thank you.

Regards,

Jose

Jose,

Please try it this way:

__axRegisterHandler( ::&cPropName:__hObj, {| ...| MsgInfo( 'Test') } )

... will be evaluated every time the OLE fired an event. The code to register the handler is in LS_OPOS.PRG line 196. __axRegisterHandler( ::&cPropName:__hObj, {| ...| MsgInfo( 'Test') },'{B196B284-BAB4-101A-B69C-00AA00341D07}') If you need the OLE, you can find it in this link http://monroecs.com/opos.htm ...

... := hb_aParams() aParams[ 1 ] = TOleAuto():New( hObj ) return hb_execFromArray( @__ObjSendMsg(), aParams ) #endif function OleSetProperty( hObj, cPropName, uValue ) return __ObjSendMsg( TOleAuto():New( hObj ), "_" + cPropName, uValue ) function OleGetProperty( hObj, cPropName ) return ...

... uParam1, uParam2, uParam3 ) METHOD Display() INLINE ::BeginPaint(), ::Paint(), ::EndPaint(), 0 METHOD EraseBkGnd( hDC ) INLINE 1 METHOD GetProp( cPropName ) INLINE ; ActXGetProperty( ActXPdisp( ::hActiveX ), cPropName ) METHOD Initiate( hDlg ) METHOD OnEvent( nEvent, aParams ) METHOD ReadTypes() ...

Jose, What FWH and Harbour/xharbour version are you using ? Whats the exact error that you get ? Please copy it here > METHOD SetProp( cPropName, uParam1 ) INLINE ; --> OleSetProperty( ActXPdisp( ::hActiveX ), cPropName, uParam1 ) > The above "-->" should not be there in the code

Hello A.Linares. I Working with ADVPL Microsiga. But, i compile the TActiveX class. ERROR in METHOD : METHOD SetProp( cPropName, uParam1 ) INLINE ; --> OleSetProperty( ActXPdisp( ::hActiveX ), cPropName, uParam1 ) I Have class TActiveX complet, but, error continue compilation. ...

Antonio,

Gracias por tu respuesta.

usa:
METHOD SetProp( cPropName, uParam1 ) INLINE ;
OleSetProperty( ActXPdisp( ::hActiveX ), cPropName, uParam1 )

Es una de las primeras pruebas que realize y sigue fallando.

Te he enviado un mail con Crystal XI y un ejemplo para que lo puedas probar.