Page 1 of 1

RMCHART ocx con Harbour32 ??

Posted: Mon May 06, 2019 1:45 pm
by 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

Re: RMCHART ocx con Harbour32 ??

Posted: Mon May 06, 2019 5:12 pm
by cnavarro
Prueba asi y a ver qué te dice

Code: Select all

METHOD Activate()

::oChart := ::oControl

RETURN NIL
 

Re: RMCHART ocx con Harbour32 ??

Posted: Tue May 07, 2019 2:48 am
by 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

Re: RMCHART ocx con Harbour32 ??

Posted: Wed May 08, 2019 8:33 pm
by 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 _.

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