Retrieves the next error from the error stack.
Certain conditions can be specified by the first two parameters for the retieval of an error.
Kernel.bdh
GetNextError( out nCustomSeverity : number optional, in nFacility : number optional, in nSeverityFlags : number optional, out sAddInformation : string optional, in nAddInfoSize : number optional, out nLine : number optional, out sFilename : string optional, in nFileNameSize : number optional ) : number;
error code. 0 if no error could be found.
Parameter | Description |
---|---|
nCustomSeverity | Receives the custom level of severity. If the custom level was not set, then the original severity of the error is returned. |
nFacility | If this parameter is > 0 then the facility of the returned error must match. |
nSeverity |
Optional: Severity of the error that is raised if the verification fails. Can be one of the following values:
|
sAddInformation | Specifies the buffer to receive additional information. |
nAddInfoSize | Specifies the length of the buffer, which receives the additional information. |
nLine | Receives the line number in the script where the error occured. |
sFilename | Specifies the buffer to receive the script file name. |
nFileNameSize | Specifies the length of the buffer, which receives the script file name. |
dclfunc function PrintErrorStack var sError : string; sErrorNumber : string; sFacility : string; sSeverity : string; nResult : number; x : number; y : number; begin // get last error x := GetLastError(); sErrorNumber := String(GetErrorCode(x)); sFacility := String(GetErrorFacility(x)); sSeverity := String(GetErrorSeverity(x)); Print("Last Error: (Error Nr.: " + sErrorNumber + ", Facility: " + sFacility + ", Severity: " + sSeverity + ")"); Print(" = " + GetErrorMsg(x)); // get error stack WebVerifyTitle("Buy It"); WebVerifyContent("Html", 3, "Right", WEB_VER_FLAG_CONTENT_SMALLER, SEVERITY_ERROR, true, nResult); WebPageUrl ("http://mycompany.com/frame/framea.html"); x := GetFirstError(y, 0, 0, sError); while x <> 0 do Print("Stack: " + String(x) + "; " + sError + "; " + String(y)); Print(" = " + GetErrorMsg(x)); x := GetNextError(y, 0, 0, sError); end; end PrintErrorStack;