Acabo de instalar FWH 1204, y estoy pasando los programas que tenía en versión 806 a esta nueva versión.
He tenido que hacer varios cambios, como:
// oHoja:= oExcel:Get( "ActiveSheet" ) cambiado por:
oHoja:= oExcel:ActiveSheet
// oExcel:Get( "ActiveWorkbook" ):Save() cambiado por:
oExcel:ActiveWorkbook:Save()
curDrive() cambiado por:
hb_curDrive()
GetCurDir() ahora devuelve también la letra de la unidad
Un campo blob de sqlite devuelve una array en lugar de una cadena como antes.
oRs:ActiveConnection(oCon) cambiado por:
oRs:ActiveConnection:=oCon
etc.
Todo lo he podido solucionar con ayuda de este magnífico foro, pero me he quedado atrancado con el RMChart usado como activeX.
Obtengo este error:
Error description: (DOS Error -2147352570) WINOLE/1009 No exported method: GET
Args:
[ 1] = C REGION
[ 2] = N 1
En esta línea:
- Code: Select all Expand view
oChart:Region( 1 ):Caption:Titel := "Center of Gravity Limits"
Este es el código que uso.
- Code: Select all Expand view
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 ) )
// ::oChart := TOleAuto():New( ActXPdisp( ::oControl:oOleAuto:__hObj ) ) // fwh1204
RETURN NIL
Utilizo fwh 1204 con harbour 2012.05.31 y bcc582
Muchas gracias por adelantado,
Alvaro
