FiveTech Software tech support forums

From this, I understand that when an error occurs, you want MyFunc() should be executed first and then invoke the FWH ErrorDialog.

Yes, that's exactly what I wanted. Thank you, Rao !

In case we do not like FWH provided ErrorDialog and like to display our own ErrorDialog, we can do this: #include "fivewin.ch"function Main()   SetErrorDialog( { |e, aStack, cErrLogText, cErrLogFile | ;  ...

In case, we want to take some action after the FWH's ErrorDialog() is executed, we can do like this: #include "fivewin.ch"function Main()   SetPostErrorAction( { |cLogFile, e| MyFunc( cLogFile, e ) } ...

... e ) } ) From this, I understand that when an error occurs, you want MyFunc() should be executed first and then invoke the FWH ErrorDialog. We can achieve this without modifying errsysw.prg Please try this sample: #include "fivewin.ch"function Main()  ...

function ErrorDialog( e ) is static so you have to modify errsysw.prg to make it public or entirely replace FWH errsysw.prg with one of your own

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 ) } )

... Terminated at: 2024-02-26 14:12:18 Unrecoverable 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) ...

... than it will crash my HB_FUNC() Unrecoverable error 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 ...

... REGQUERYVALUEEX(0) Called from GETCPU(546) in .\source\function\ERRSYSW.PRG 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 TDIALOG:_AGRADCOLORS(142) in ../../../tobject.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 ...

... => ENUMCHILDWINDOWS( 0 ) Called from: .\source\function\GETTASKS.PRG => 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 ...

... DIALOGBOXINDIRECT( 0 ) Called from: .\source\classes\DIALOG.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( ...

... DIALOGBOXINDIRECT( 0 ) Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 304 ) Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 448 ) Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 24 ) Called from: => __ERRRT_SBASE( 0 ) Called from: ../../../tobject.prg ...

... DIALOGBOXINDIRECT( 0 ) Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 304 ) Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 448 ) Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 24 ) Called from: => LEN( 0 ) Called from: .\source\classes\XBROWSE.PRG ...

... DIALOGBOXINDIRECT( 0 ) Called from: .\source\classes\DIALOG.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( ...