FiveTech Software tech support forums

Lailton,

Create the Class this way:

CLASS cActiveX FROM TControl
...

... igual ao @ 0,0 ActiveX oact ....... @ 1,1 cActive oct id progid of ownd width 300 height 400 i sobre o Ownd:oClient = activex ? como hacer com cActiveX ? :?:

bien

Antonio, Im using class CActiveX and have method Release what´s i need change ? METHOD Release() CLASS cActiveX //-----------------------------------------------------------------------------------------------// If ::hSink != NIL OleDisconnectEvents( ...

Antonio,
Sucesso com conexao de Proxy e captura dos events.

gracias

Gracias Antonio, voy a tentar.

oBj:=oAct:Status() // it´s a object that have EVENTS
hSink := OleConnectEvents( oBj:hObj, aEvent , aBlock )

Si antonio, funciona perfeitamente !

Un ejemplo de uso: TestOWE.prg /* *  Events for OLE *  (c) 2008 Carlos Mora (carlosantoniomora@yahoo.es - harbouradvisor.blogspot.com ) *  based on the work of Oscar Lira Lira for ActiveX *    (oscarlira78@hotmail.com - http://_...net) */#include &qu...

Lailton, Carlos Mora implementó OLE con eventos. Copio aqui su código para que no se pierda: OleWEvents.prg /* *  Events for OLE *  (c) 2008 Carlos Mora (carlosantoniomora@yahoo.es - harbouradvisor.blogspot.com ) *  based on the work of Oscar Lira Lira for ActiveX ...

Exemplo/Example:

Class TActiveX / Class cActiveX

obj1:=Tactivex():new(ownd,"progid")
obj1:bOnEvent(|| msginfo ("Evento / event "))

Lailton,

What do you want to use the object for ?

Para que quieres usar el objeto ?

Antonio tu pode mostrar en la funcion acima como fica con tua modificacion ? HB_FUNC( OLEWECREATE ) { PHB_ITEM pObject = hb_param( 1, HB_IT_OBJECT ); // the object supplied as the first parameter HWND hWndCtrl; LoadAtl(); hWndCtrl = CreateWindowEx( (DWORD) 0 , // nExStyle (LPCTSTR) "AtlAxWin&qu...

Lailton,

An object is an item so you can access it this way:

PHB_ITEM pObject = hb_param( 1, HB_IT_OBJECT ); // the object supplied as the first parameter

HB_FUNC( OLEWECREATE ) { HWND hWndCtrl; LoadAtl(); hWndCtrl = CreateWindowEx( (DWORD) 0 , // nExStyle (LPCTSTR) "AtlAxWin" , // cClsName (LPCTSTR) hb_parc( 1 ) , // cProgId (DWORD) WS_OVERLAPPEDWINDOW , // style CW_USEDEFAULT , // nLeft CW_USEDEFAULT , // nTop 0 , // nWidth 0 , // nHeight ...