TS_ErrorCallBack
(Available in 00 TS Base(Base) - TS_Base_2_ErrorSysErrorCallBack)
Purpose
This class is passed to the registered callback function.
Description
The registered function will be called whenever a error is translated to text, The function can update the 'TextValue' property to add information to the translated error message.
Example
FUNCTION MyErrorCallBack1( oErrorCallBack AS TS_ErrorCallBack ) AS VOID PASCAL
IF oErrorCallBack<>NULL_OBJECT
oErrorCallBack:TextValue:="Read"+CRLF+"the"+CRLF+"manual"
END
RETURN
FUNCTION MyErrorCallBack2( oErrorCallBack AS TS_ErrorCallBack ) AS VOID PASCAL
IF oErrorCallBack<>NULL_OBJECT
oErrorCallBack:TextValue:="Hello"+CRLF+"world"
END
RETURN
PROCEDURE RegisterExtraErrorInfos( ) AS VOID PASCAL _INIT1
// No trace command should be applied to 'InitX' procedures, No code containing trace ; ...
// ...command(s) should be called!
IF !glRegisterExtraErrorInfos
glRegisterExtraErrorInfos:=TRUE
TS_ErrorSysRegisterFirstEntryInfo( "FTC, Fast Transaction Controler" )
TS_ErrorSysRegisterFirstEntryInfo( "With error info handle by FDW" )
TS_ErrorSysRegisterFirstEntryInfo( "With OLE fixes from RvdH" )
TS_ErrorSysRegisterErrorCallBack( "ErrorCallBack(1)", @MyErrorCallBack1( ) ; ...
... )
TS_ErrorSysRegisterErrorCallBack( "ErrorCallBack(2)",