RMCHART ocx con Harbour32 ??

[carito]

Hola a Todos:

Estoy convirtiendo un programa desde xharbour a Harbour32, pero estoy teniendo problemas
con la libreria RMCHART ocx v.4.12.

Al llamar al ocx, el programa se queda pegado y da un error de windows.

La forma como se llama al ocx desde la clase es:

METHOD New( oWnd, nId ) CLASS TRMChartX
LOCAL cMsg := ""

IF nId != NIL
::oControl := TActiveX():Redefine( nId, oWnd, "RMChart.RMChartX" )
ELSE
::oControl := TActiveX():New( oWnd, "RMChart.RMChartX" )
ENDIF

IF !Empty( oWnd:hWnd )
::Activate()
ENDIF

RETURN SELF

/*-----------------------------------------------------------------------------------------------*/
METHOD Activate()

::oChart := TOleAuto():New( ActXPdisp( ::oControl:hActiveX ) )

RETURN NIL

Estare haciendo algo mal o esta forma de llamado ya es incompatible con este harbour.

Alguien tiene alguna libreria mas actualizada que esta o que me informen por favor, si
esto ya no sirve. Agradeceria mucho alguna orientacion.

Saludos y gracias,
Carito

PD: estoy usando el FHW19.01 + harbour32

[cnavarro]

Prueba asi y a ver qué te dice

Code: Select all  Expand view

METHOD Activate()

::oChart := ::oControl

RETURN NIL
 

[carito]

Muchas gracias Cristobal por responder, lo probare mañana pues ahora estoy
lejos de mi pc de trabajo, y estoy informando que paso.

Saludos,
Carito

[carito]

Hola Cristobal:

Lo he cambiado e igual se queda pegado, tratare de hacer un ejemplo,
para publicarlo y ver si asi, me pueden dar alguna idea o descubrir
algo que desconosca.

Nadie utiliza esta libreria con Harbour ?? o que me cuenten si funciona mal,
para estar mas informado. Gracias,
Carito