ActiveX ctrl de eventos y manejo de parametros

[Biel EA6DD]

Tengo un ActiveX, del cual controlo sus eventos. Uno de dichos eventos, pasa tres parametros.
El primero es un numero, y los dos siguientes son un objeto (OLE).

Como puedo manejar dichos objetos, al revisar el array de parametros, me devuelve un numerico, puedo intuir que sea una dirección de memoria.

De la doc. del activeX

HRESULT OnEnroll(
[in] LONG 1Mask,
[in] IDispatch* pTemplate,
[in] IDispatch* pStatus
);

Mask [in] Variable of type long that contains the index value
Template [in] A DPFPTemplate object
pStatus [in] A DPFPEventHandlerStatus object

Actualmente me devuelve lo siguiente
aParams[1]-->2
aParams[2]-->53158252 //Esto debiera ser Objeto Template??
aParams[3]-->18948684 //Esto debiera ser Objeto Status

[Antonio Linares]

Biel,

>
aParams[2]-->53158252 //Esto debiera ser Objeto Template??
aParams[3]-->18948684 //Esto debiera ser Objeto Status
>

Si, posiblemente. Para poder usarlos, haz esto:

Code: Select all  Expand view

   local o := CreateObject( "Shell.Explorer" )
   local hOldObj := o:hObj
   local uRet

   o:hObj = aParams[2]
   // a partir de aqui, lo puedes usar como un objeto OleAuto
   ...
   o:hObj = hOldObj
   o = nil


[Biel EA6DD]

Gracias Antonio,
supongo que con lo que me indicas debe de funcionar.
El objeto parece que queda bien definido, el problema que tengo ahora, es particular de este objeto OleAuto, y es que puedo acceder a los datas, pero no me reconoce ningun metodo.
En VB, lo he probado y si funciona ok, tanto metodos como datas. Alguna idea de lo que le pueda pasar.
Alguna manera para ver los metodos disponibles de un control OleAuto?

Error description: Error DPFPShrX.DPFPTemplate/3 DISP_E_MEMBERNOTFOUND: DESERIALIZE
Args:

Stack Calls
===========
Called from: source\rtl\win32ole.prg => TOLEAUTO:DESERIALIZE(0)

PD Este comportamiento es independiente al hecho de cambiar hObj, si no lo cambio, tampoco me funciona.

[jcaro]

Hola Biel:

Te envie a tu privado, algo que te va a servir !!

Saludos,

Juan

[Biel EA6DD]

Gracias Juan,
lo que realmente me interesaria es poder comprobar las existencias de los metdos desde dentro de Harbour.

Los nombres de los metodos, los tengo en la documetación y ademas tambien los he comprobado con Oleview, el caso es que desde Harbour me retorna error, y por ejemplo desde VB funciona correctamente. Es un comportamiento algo estraño, hasta la fecha, siempre me habia funcionado sin problema la mayoria de controles Ole.

Si alguien puede darme una pista, sera bienvenida.