FiveTech Software tech support forums

FWH procedure FWErrorSys() is identical to FWH procedure ErrorSys() that it is automatically called by Harbour.

procedure ErrorSys() invokes function ErrorBlock() to replace the default application errorBlock:

ErrorBlock( { | e | ErrorDialog( e ) } )

... error 9003: Too many recursive error handler calls Called from STR(0) Called from ERRORDIALOG(151) in .\source\function\ERRSYSW.PRG Called from (b)ERRORSYS(23) in .\source\function\ERRSYSW.PRG Called from STR(0) Called from ERRORDIALOG(151) in .\source\function\ERRSYSW.PRG Called from (b)ERRORSYS(23) ...

... App often crash at Start when "Set" Image on TFolderEx() :?: it does fail on "destroy" Image of TFolderEx() ... Called from (b)ERRORSYS(24) in .\source\function\ERRSYSW.PRG Called from (b)FWDELRESOURCE(36) in .\source\function\CHECKRES.PRG Called from ASCAN(0) Called from FWDELRESOURCE(36) ...

En cuanto al tema de interaccion con el usuario por parte del servicio técnico ( se supone que con nosotros ), he integrado en el errorsys un boton para poder enviar a los servidores DISCORD ( gratuitos ) un mensaje e incluso el error.log. A través de la propia aplicación de DISCORD en ...

... 9015: Symbol item expected from hb_vmDo() Called from FWLOGOBITMAP(0) Called from ERRORDIALOG(260) in .\source\function\ERRSYSW.PRG Called from (b)ERRORSYS(24) in .\source\function\ERRSYSW.PRG Called from FWSKINBTNPAINT(136) in .\source\internal\SKINS.PRG Called from WINRUN(0) Called from TWINDOW:ACTIVATE(1114) ...

... Called from GETCPU(546) in .\source\function\ERRSYSW.PRG Called from ERRORDIALOG(218) in .\source\function\ERRSYSW.PRG Called from (b)ERRORSYS(24) in .\source\function\ERRSYSW.PRG Called from (b)ERRORSYS(24) in .\source\function\ERRSYSW.PRG Called from FWSKINBTNPAINT(87) in .\source\internal\SKINS.PRG ...

... Called from TDIALOG:NEW(202) in .\source\classes\DIALOG.PRG Called from ERRORDIALOG(395) in .\source\function\ERRSYSW.PRG Called from (b)ERRORSYS(24) in .\source\function\ERRSYSW.PRG Called from __ERRRT_SBASE(0) in ../../../tobject.prg Called from TDIALOG:ERROR(148) in ../../../tobject.prg ...

... (e.g. alias not valid, variable does not exist, unknown or unregistered symbol, etc.) in a log file for subsequent analyses. I tried to override ERRORSYS procedure or to define a custom ERRORBLOCK but in both way I was not able to obtain the log file. Could someone point out what is the correct ...

Hola no quite nada del errorsys uso el de fivewin, solo hice un intento para probar, en cuanto al hb_out.log directamente no lo crea. Les aclaro que hasta hace un tiempo funcionaba bien tanto en xharbour y en harbour. Para que se den ...

surGom wrote:PD: encontré que había que anular unas lineas del errorsys, compilar el errorsys de fwh, etc pero sigue sin funcionar

No creo que sea buena idea quitar lineas del errorsys.prg usado para el análisis y gestión de errores para solucionar tu problema, simplemente lo estarás "enmascarando"

... y harbour3.2 . Con windows 32 y 64. Uso fwh 2017 y bcc70 Alguna idea del porque del problema PD: encontré que había que anular unas lineas del errorsys, compilar el errorsys de fwh, etc pero sigue sin funcionar

errsysw.prg, modify to taste. I use it to control sending emails with program errors.

Regards, saludos.

hi, i like to use my own ErrorSys where i can include Information of App e.g. Version() i found c:\fwh64\source\function\errsysw.prg c:\fwh64\source\function\errsysw_.prg c:\fwh64\source\function\fwerror.prg which to use :?: --- how to ...

... => GETTASKS( 15 ) Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 250 ) Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 24 ) Called from: => HBMP( 0 ) Called from: .\source\classes\TGDIPLUS.PRG => GRAPHICS:DRAWIMAGE( 158 ) Called from: c:\fwteam\samples\crist.prg ...

... TDIALOG:ACTIVATE( 304 ) Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 448 ) Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 24 ) Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:CHECKSIZE( 1388 ) Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:ADJUST( ...