FiveTech Software tech support forums

... aVars )

METHOD Save() INLINE aClone( ::aVars )
METHOD Restore( aVars ) INLINE ::aVars := aClone( aVars )

#ifdef __HARBOUR__
ERROR HANDLER OnError( uParam1 )
#else
ERROR HANDLER OnError( cMsg, nError )
#endif

ENDCLASS

/*
* TPublic:New()
*/
METHOD New( lAutomatic ) CLASS TPublic // [WA ...

... data is paste-ready, .F. otherwise.

Usage Example: (Primarily used internally to determine if pasting functionality should be enabled)

103. OnError()

Description: Default error handler method for the TXBrowse class. This method is called when an error occurs within the browse control ...

... format (internal method).

Parameters: None

Return Value: LOGICAL - .T. if paste-ready, .F. otherwise.

Usage Example: (Internal use only)

61. OnError()

Description: Default error handler for the TXBrowse class (internal method).

Parameters: None

Return Value: None

Usage Example: (Internal ...

... Destroy()`**: Destroys the ActiveX control and releases resources.
- **Returns**: The result of the parent class's `Destroy` method.

- **`OnError( ... )`**: Error handler for method calls on the ActiveX control.
- **Parameters**: Variable arguments depending on the error.
- **Returns ...

... yourself or do you prefer me to send it to you ? For what C compiler ?

The fix:
in harbour/contrib/hbwin/olecore.c

HB_FUNC( WIN_OLEAUTO___ONERROR )
...
if ((HB_ISBYREF(1)) || HB_ISARRAY(1))
lOleError = HB_VTBL( pDisp )->Invoke( HB_THIS_( pDisp ) dispid, HB_ID_REF( IID_NULL ),
LOCALE_USER ...

... En consecuencia se optimiza la ejecución del código.

Espero que funcione, yo no lo he probado.
Si es así podrás eliminar "ERROR HANDLER OnError( )" y el METHOD OnError().


Difiero un poco de esta optimizacion ...
Efectivamente si debe de ser mas rapida ...
Pero Solo sirve si vas a ...

Tampoco puedes poner el código del Method OnError?
Lo digo, porque si hay un error en este metodo, la aplicación entra en "bucle" y se congela.

... cortado.

Como puedo hacer que el programa advierta al usuario que se perdió la conexión y que pueda cerrar el programa sin que se 'congele'.

xBrowse tiene el metodo OnError( ), para atrapar errores, pero no logra atrapar este.

Alguna sugerencia.

De antemano, gracias.

Rolando
Cochabamba, Bolivia.

... lo primero, ponerle una data xCargo, que tendrían que tener todos los objetos, incluso las sillas y las mesas

Cuarto. Mi clase se basa en el OnError, lo cual me parece muy chapucero, y quizá lento.

Con un EXTEND CLASS HBObject WITH DATA xCargo al inicio de tu main, todos los objetos que ...

... es que vayas a hacer gran diferencia. El peso es que al buscar el mensaje no lo ha encontrado , luego el motor de objetos busca por el metodo Onerror, y lo ejecuta. No es para tanto.
Considera además que esa propiedad de los objetos de poder adaptarse es una gran ventaja, esa introspección te ...

... si acaso subirla a Github y allí ir desarrollandola, aunque yo nunca lo he usado.

Tercero. Por favor, lo primero, ponerle una data xCargo, que tendrían que tener todos los objetos, incluso las sillas y las mesas

Cuarto. Mi clase se basa en el OnError, lo cual me parece muy chapucero, y quizá lento.

Al utilizar OnError hace que la clase se 'cae' cada vez que se declara un nuevo miembro, similar a lo que hace TDataBase

oRecord:Nuevo produce un error en tiempo de ejecución pero no 'se nota' ya que el error 'se recupera' devolviendo el valor get o put solicitado

La llamada a la funcion __clsAddMsg ...

Marcelo,

Yo tengo una similar.
El sistema de funcionamiento de la clase, basado en el gestor de errores, podría ser lento. No he hecho prueba de tiempos.

La novedad de la clase de Quim es que no utiliza el OnError. Ahí radica su bondad.

Saludos

... Class "TPublic" not declared for me
thod: Release()'
.\prg\TPUBLIC.PRG(262) Error E0019 #error: 'Class "TPublic" not declared for me
thod: IsDef( cName )'
.\prg\TPUBLIC.PRG(279) Error E0019 #error: 'Class "TPublic" not declared for me
thod: OnError( uParam1 )'

** error 1 ** deleting .\obj\TPUBLIC.OBJ

... y en este valor guardo el nombre de la columna en Español.
La sustitución de oBrw:Debe por oBrw:aCols[ nCol ], se realiza en el METHOD OnError( uParam1 ) como indicó Antonio.
En este método se llama al METHOD oCol( u ) y este es el que con un aScan busca el nombre "u" entre los cHeader ...