FiveTech Software tech support forums

Simply add this line at the top:

static aEvents := {}

and then use this:

oVoice:__hSink = __axRegisterHandler( oVoice:__hObj, { | ... | AAdd( aEvents, { ... } ) } )

Finally, after the dialog, do:

XBrowser( aEvents )

Hola Antonio : en otro "post https://forums.fivetechsupport.com/viewtopic.php?f=3&t=44174&p=267309&sid=b7b8ffa9cb6514dfee1e45cd3eb81932&sid=b7b8ffa9cb6514dfee1e45cd3eb81932#p267309" uds respondió Dear Jimmy, Reviewing Harbour OLE implementation it seems as t...

> but how to get Event to call Function like in MSDN Sample ?

oVoice:__hSink := __axRegisterHandler( oVoice:__hObj, { | x, y | QOut( x, y ) } )

Daniel, Aqui tienes un ejemplo de como usar los eventos con SPVoice para marcar la palabra que se está pronunciando: https://www.youtube.com/watch?v=Y8-yjsRsyvI Esto es lo que debería conseguirse con esta llamada: oVoice:__hSink := __axRegisterHandler( oVoice:__hObj, { | x, y | QOut( x,...

Daniel, Aqui tienes un ejemplo de como usar los eventos con SPVoice para marcar la palabra que se está pronunciando: https://www.youtube.com/watch?v=Y8-yjsRsyvI Esto es lo que debería conseguirse con esta llamada: oVoice:__hSink := __axRegisterHandler( oVoice:__hObj, { | x, y | QOut( x, ...

Dear Enrico,

xHarbour does not support "..." syntax, so such line should be:

oVoice:__hSink := __axRegisterHandler( oVoice:__hObj, { | x, y | QOut( x, y ) } )

but function __axRegisterHandler() is available in Harbour and not in xHarbour, if I am correct

Dear Jimmy,

Reviewing Harbour OLE implementation it seems as this is the way:

oVoice:__hSink := __axRegisterHandler( oVoice:__hObj, { | x, y | MsgInfo( x, y ) } )

but here in my tests it is not working as expected.

Maybe another Harbour OLE bug ? I am doing some research to find the right way...

...    Enddo       Release oReplace,oFind,oTexto       RETURN nil  Aunque también he tenido que modificar el método NEW comentando la linea IF ::oWord:hObj == 0 porque daba error METHOD   NEW()  CLASS TWord   ::lWord  := .T.   #IFDEF __XHARBOUR__      TRY        ::oWord := GetActiveObject( ...

hi,

when using

Code: Select all  Expand view  RUN

  FWLOG hb_valToExp( oObject)

i got

'__itemSetObj( {{"__HOBJ", <pointer>}}, {{"TOLEAUTO",}} )'

how to get "more" Information about it

... Creator.", "No se puede seguir")ENDXBrowse( oPDF )  Me muestra 3 datos... cClassname | PDFCreator.PDFCreatorObj hObj | 0xA5FACC oLevalue | <protected> No obtengo ningún dato que necesitaria para poder "ocultar" la aplicación, o la ruta destino, ...

... ulLen ); extern void hb_adsOemAnsiFree( char * pcString ); /* NOTE: Undocumented ACE function. */ UNSIGNED32 ENTRYPOINT AdsSetFieldRaw( ADSHANDLE hObj, UNSIGNED8 * pucFldName, UNSIGNED8 * pucBuf, UNSIGNED32 ulLen ); /* NOTE: Undocumented ACE function. */ UNSIGNED32 ENTRYPOINT AdsGetFieldRaw( ADSHANDLE ...

... or NIL, width and height are returned in MM If hDC or lScreen, width and height are in pixels for the device context * New function ISENHMETA( hobj ) --> lIsEnhMeta * New: Simple stack implementation though xcommand/xtranlate directives in fivewin.ch: StackPush( v1, v2, ... vn ) StackPeek() ...

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') } ) ) )