FiveTech Software tech support forums

Dear Jimmy, Fixed! :-) Effectively it was a Harbour bug. Now it is working fine. Do you build Harbour 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_IS...

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

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.

... 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 :D 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 instancies ...

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

... lo primero, ponerle una data xCargo, que tendrían que tener todos los objetos, incluso las sillas y las mesas :D 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 ...

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

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

Fernando,

Aunque Rao es el gran expero de XBrowse, en mi opinión se está usando el METHOD OnError( uParam1 ) CLASS TXBrowse

Prueba a poner un MsgInfo() ahí y debería llamarse en esos casos

... INLINE (::nArea)->(RecCount()) METHOD Fin() INLINE (::nArea)->(DBCloseArea()) METHOD SetFocus() INLINE (Select(::cAlias)) ERROR HANDLER OnError( uParam1 ) ENDCLASS //---------------------------------------------------------------------------// METHOD New( cAlias ) CLASS TDb local n, ...

... "C", 40, 0}) dbcreate("Comname1.dbf", tmpdbf) dbusearea(.T., Nil, "Comname1", Nil, Nil, .F.) Append Blank onerror("APPEND") Replace Company1 With "ABC Co." Replace Direct1 With ".\data" Append Blank onerror("APPEND") ...

... .f. local oc1desp local time1:= 1 local newref1:= "N" DEFINE FONT oFont NAME "Arial" SIZE 0, -11 BOLD select tax3 append blank onerror("APPEND") replace recnum1 with mrecnum1 replace recnum with mrecnum replace desp with mdesp goto top return nil ******************************************** ...