FiveTech Software tech support forums

Prueba a cambiar esta línea:

__oDatabase := HBClass():New( cClsName, __CLS_PARAM ( cFromClass ) )

así:

__oDatabase := HBClass():New( cClsName, cFromClass )

Y a que se debe que lance el error al cambiar __oDatabase := HBClass():New( cClsName, __CLS_PARAM ( cFromClass ) )por __oDatabase := HBClass():New( cClsName,{ cFromClass } ) ?

Aca el codigo function TMyMSQuery( cCls ) ; return( MyGenClass( cCls, TMSQuery() ) ) The variable __aHCls AAdd( __aHCls, { cClsName, __nClassH } ) the class and handle How free static __aHCls := {} #include "HbClass.ch" function MyGenClass( cClsName, FromClass ) local n, __nClassH, ...

Hola

MIgrando de xHarbour a Habrbour 3.2 tengo problemas con la HBClass, al parecer Harbour no la reconoce

__oDatabase := HBClass():New( cClsName, __CLS_PARAM ( cFromClass ) )

Ya que me arroja lo siguiente

Error: Unresolved external '_HB_FUN___CLS_PARAM' referenced from...

Alguna solucion ?

...  1143  1440  2036  2044                   3884  3887 CCLASSNAME              WINDOW.PRG     2074  2343  2348  2350  4052  4061  4080  4087  4091 CCLSNAME                WINDOW.PRG      528   962   964   974   980 CDATA                  WINDOW.PRG      665  3388  3396  3406  3409  3412  3416  3418 ...

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 , // ...

... supplied as the first parameter 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 ...

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 , // ...

... Have function for create DATAfields function TMyMSQuery( cCls ) ; return( MyGenClass( cCls, TMSQuery() ) ) The variable __aHCls AAdd( __aHCls, { cClsName, __nClassH } ) the class and handle How free static __aHCls := {} #include "HbClass.ch" //---------------------------------------------------------------------------// ...

... DATAfields function TMyMSQuery( cCls ) ; return( MyGenClass( cCls, TMSQuery() ) ) Uso una variable __aHCls a la que le agrego AAdd( __aHCls, { cClsName, __nClassH } ) la clase y su manejador pero no se como liberar esro por que cada vez que llamo a la clase me consume recursos static __aHCls ...