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

Estimado José,

Prueba a hacer:

ErrorBlock( { | oError | .F. } ) // Prueba con .T. también

... 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 way to create custom error handling in ...

... nOptionLOCAL bSaveError, oError   IF oTab:IsKindOf( "TFOLDEREX" )* #define Use_SEQUENCE#ifdef Use_SEQUENCE      bSaveError := ERRORBLOCK()      ERRORBLOCK( { | e | BREAK( e ) } )      BEGIN SEQUENCE#endif      nOption := oTab:nOption      FOR ...

... Startup, is "last Chance" to retry ... but most it is "too late" :( at Runtime i do use BEGIN SEQUENCE and a "new" Errorblock. depend on "oError" you can try to "react" on it LOCAL oError, bError   bError := ERRORBLOCK( { | oErr | BREAK( ...

... solution. If connection is not reconnected when it ask again for something, it give me another fatal error and quit. Is there any way to implement ErrorBlock for mysql in general? I tried this: main: ErrorBlock( { | oError | GetErrorInfo( oError ) } ) ********************function ...

... != 0 hb_zebra_destroy( ::hData ) oError := ErrorNew() oError:SubSystem = "TCODEBARS" oError:SubCode = nError oError:Severity = 2 Eval( ErrorBlock(), oError ) endif RETURN nil #pragma BEGINDUMP #include <hbapi.h> #include <windows.h> HB_FUNC( CREATECOMPATIBLEBITMAP ) // hDC, ...

Tim, Are you calling ErrorBlock( { | oError | MyErrorSystem( oError ) } ) from your main PRG ? function MyErrorSystem() is a function provided in your own errsysw.prg In the source dir. there are 2 errorsys prg's. one is more extended ...

Tim,

Are you calling ErrorBlock( { | oError | MyErrorSystem( oError ) } ) from your main PRG ?

function MyErrorSystem() is a function provided in your own errsysw.prg

Haz un DIR *.log /od en la carpeta donde tienes el ejecutable y haber si tienes alguno y en él tienes grabado el error irrecuparable (irrecuperable porque no pasó por el control de errores standard)

... por el controlador de errores de FiveWin, solo se sale y no dice nada. Intento cachar el error con este código, pero aun así se sale y no pasa por ErrorBlock. Alguna idea ? bDefErrHandler:=ErrorBlock( { | o | ErrorGuardaPoliza( o ) } ) Trabajo con FWH701 y xHarbour 0.99.71 (Simplex) de antemano ...

Hola. usando harbour y Fwh la ultima. Me arroja estos errores: [1]:iLink32.Exe -Gn -q -aa -Tpe -x @testMaria.bcl Error: Unresolved external 'WinMain' referenced from X:\HARB\BCC7\LIB\C0W32.OBJ Error: Unresolved external '_hb_vmProcessSymbols' referenced from X:\PROYECTOS\TEST\MARIA\OBJ\MARIA.OBJ Err...

Don, Harbour uses function ErrorBlock( bNewErrorBlock ) --> bPreviousErrorBlock to set/retrieve the errorblock. As it uses a codeBlock as the param there is no way to retrieve the used function from the codeBlock. Anyhow, you can use ...

hm ... where does those sign come from ... :o i have to disable BBCode [code=fw] oActiveX:Settings:AutoStart := .T. bOldError := ERRORBLOCK( { | e | BREAK( e ) } ) BEGIN SEQUENCE oActiveX:URL := cPlayFile [/code]this Way Video start from 0:00 but you can change it to [code=fw] oActiveX:Settings:AutoStart ...

How to load the debug?

I tried with some explanations that I saw in the forum but when I compile with the / b option the following error message appears: Unrecoverable Error 9002 - No errorblock () is error

who can help me?