f_GetErrorInfo()获取系统错误信息函数

/* ======================================================= */

// 名称：f_GetErrorInfo()

// 中文名称：(数据获取)获取系统错误信息函数

// 作用：错误信息反馈

// 参数：ERROR aerr_Info

// 返回值：STRING //返回空字符串表示无错误

// 原作者：偶

// 备注：不需要再使用了系统标准的Error变量，返回空字符串表示没有错误

/* ======================================================= */

IF IsNull(aerr_Info) THEN RETURN "Error对象为空" //NULL

IF NOT IsValid(aerr_Info) THEN RETURN "Error对象没有实例化" //NON ISVALID

IF aerr_Info.Number=0 THEN RETURN ""

STRING ls_ErrMessage

STRING ls_ErrText

CHOOSE CASE aerr_Info.Number

CASE 1

//By Zero

ls_ErrMessage="数学错误，出现被零除"

CASE 2

//Null Object Reference

ls_ErrMessage="程序中引用了空对象"

CASE 3

//Array Boundary Exceeded

ls_ErrMessage="数组出现越界访问"

CASE 4

//Enumerated Value Is Out Of Range For Function

ls_ErrMessage="枚举值超出函数范围"

CASE 5

//Negative Value Encountered In Function

ls_ErrMessage="函数中遇到否定值"

CASE 6

//Invalid DataWindow Row/Column Specified

ls_ErrMessage="数据窗口中存在非法的行或列"

CASE 7

//Unresolvable External When Linking Reference

ls_ErrMessage="链接调用时，出现不可确认的外部对象引用"

CASE 8

//Reference Of Array With Null Subscript

ls_ErrMessage="引用带有空下标的数组"

CASE 9

//DLL Function Not Found In Current Application

ls_ErrMessage="当前应用程序中没有找到动态链接库的函数"

CASE 10

//Unsupported Argument Type In DLL Function

ls_ErrMessage="出现DLL库函数不支持的参数类型"

CASE 11

//Object File Is Out Of Date And Must Be Converted To Current Version

ls_ErrMessage="对象文件已过期，必须转换为当前的PowerBuilder版本"

CASE 12

//DataWindow Column Type Does Not Match GetItem Type

ls_ErrMessage="数据窗口列类型与GetItem函数的类型不匹配"

CASE 13

//Unresolved Property Reference

ls_ErrMessage="未知的属性引用"

CASE 14

//Error Opening DLL Library For External Function

ls_ErrMessage="为外部函数调用而打开动态链接库时发生错误"

CASE 15

//Error Calling External Function Name

ls_ErrMessage="错误调用外部函数"

CASE 16

//Maximum String Size Exceeded

ls_ErrMessage="字符串长度超越了最大限制"

CASE 17

//DataWindow Referenced In DataWindow Object Does Not Exist

ls_ErrMessage="数据窗口控件中引用的数据窗口对象不存在"

CASE 18

//Function Does Not Return Value

ls_ErrMessage="必须返回值的函数没有返回值"

CASE 19

//Cannot Convert Name In Any Variable To Name

ls_ErrMessage="不能将任意变量中的数据类型转换为其他数据类型"

CASE 20

//Database Command Has Not Been Successfully Prepared

ls_ErrMessage="没有成功地准备好数据库命令"

CASE 21

//Bad Runtime Function Reference

ls_ErrMessage="引用了错误的运行时函数"

CASE 22

//Unknown Object Type

ls_ErrMessage="未知的对象类型"

CASE 23

//Cannot Assign Object Of Type Name To Variable Of Type Name

ls_ErrMessage="不能将对象赋给变量，两种类型不能赋值"

CASE 24

//Function Call Does Not Match Its Definition

ls_ErrMessage="函数调用与其定义不匹配"

CASE 25

//Double Or Real Expression Has Overflowed

ls_ErrMessage="DOUBLE或者REAL表达式溢出"

CASE 26

//Field Name Assignment Not Supported

ls_ErrMessage="不支持对某种数据类型的字段的赋值"

CASE 27

//Cannot Take A Negative To A Noninteger Power

ls_ErrMessage="不能计算一个负数的非整数次方"

CASE 28

//VBX Error

ls_ErrMessage="某种数据类型的变量引起VBX错误"

CASE 29

//Nonarray Expected In Any Variable

ls_ErrMessage="ANY数据类型变量必需是非整组类型"

CASE 30

//External Object Does Not Support Data Type Name

ls_ErrMessage="外部对象不支持这种数据类型"

CASE 31

//External Object Data Type Name Not Supported

ls_ErrMessage="这种数据类型不支持外部对象"

CASE 32

//Name Not Found Calling External Object Function Name

ls_ErrMessage="调用外部对象函数时，未找到函数名"

CASE 33

//Invalid Parameter Type Calling External Object Function Name

ls_ErrMessage="调用外部对象函数时，参数类型不合法"

CASE 34

//Incorrect Number Of Parameters Calling External Object Function Name

ls_ErrMessage="调用外部对象函数时，使用不正确的参数个数"

CASE 35

//Error Calling External Object Function Name

ls_ErrMessage="错误调用外部对象函数"

CASE 36

//Name Not Found
Accessing External Object Property Name

ls_ErrMessage="访问外部对象属性时，未找到名称"

CASE 37

//Type Mismatch
Accessing External Object Property Name

ls_ErrMessage="访问外部对象属性时，类型不匹配"

CASE 38

//Incorrect Number Of Subscripts
Accessing External Object Property Name

ls_ErrMessage="询问外部对象属性时，下标数目不正确"

CASE 39

//Error Accessing External Object Property Name

ls_ErrMessage="错误访问外部对象属性"

CASE 40

//Mismatched Any Data Types In Expression

ls_ErrMessage="与表达式中的数据类型不匹配"

CASE 41

//Illegal Any Data Type In Expression

ls_ErrMessage="表达式中有不合法的数据类型"

CASE 42

//Specified Argument Type Differs From Required Argument Type At Runtime In DLL Function Name

ls_ErrMessage="在DLL库函数中，运行时所指定的参数类型与所要求的参数类型不相同"

CASE 43

//Parent Object Does Not Exist

ls_ErrMessage="父对象不存在"

CASE 44

//Function Has Conflicting Argument Or Return Type In Ancestor

ls_ErrMessage="祖先的函数中发生具有冲突的参数及返回类型"

CASE 45

//Internal Table Overflow; Maximum Number Of Objects Exceeded

ls_ErrMessage="内部表溢出；对象的最大数目已经超越允许值"

CASE 46

//Null Object Reference Can Not Be Assigned Or Passed To A Variable Of This Type

ls_ErrMessage="空对象引用不能被赋值或传递给同类型的变量"

CASE 47

//Array Expected In Any Variable

ls_ErrMessage="变量需要数组值"

CASE 48

//Size Mismatch In Array To Object Conversion

ls_ErrMessage="数组的大小与对象的转换不匹配"

CASE 49

//Type Mismatch In Array To Object Conversion

ls_ErrMessage="数组的类型与对象的转换不匹配"

CASE 50

//Distributed Service Error

ls_ErrMessage="分布式服务错误" //PB7以上会触发一个EAServer异常

CASE 51

//Bad Argument List For Function/Event

ls_ErrMessage="函数或事件的参数不合法"

CASE 52

//Distributed Communications Error

ls_ErrMessage="分布式通讯错误" //PB7以上会触发一个EAServer异常

CASE 53

//Requested Server Not Active

ls_ErrMessage="被请求的服务器没有激活"

CASE 54

//Server Not Accepting Requests

ls_ErrMessage="服务器未接受请求"

CASE 55

//Request Terminated Abnormally

ls_ErrMessage="请求意外中断"

CASE 56

//Response To Request Incomplete

ls_ErrMessage="非完整的相应请求"

CASE 57

//Not Connected

ls_ErrMessage="未进行连接或者连接不成功"

CASE 58

//Object Instance Does Not Exist

ls_ErrMessage="对象实例不存在"

CASE 59

//Invalid Column Range

ls_ErrMessage="不合法的列范围"

CASE 60

//Invalid Row Range

ls_ErrMessage="不合法的行范围"

CASE 61

//Invalid Conversion Of Number Dimensional Array To Object

ls_ErrMessage="将任意类型数组不合法的转换成对象"

CASE 62

//Server Busy

ls_ErrMessage="服务器忙"

CASE 63

//Function/Event With No Return Value Used In Expression

ls_ErrMessage="在表达式中函数或者事件中没有返回值"

CASE 64

//Object Array Expected In Left Side Of Assignment

ls_ErrMessage="赋值语句左边需要对象数组"

CASE 65

//Dynamic Function Not Found,Possible Causes Include:Pass By Value/Reference Mismatch

ls_ErrMessage="动态函数没有找到，可能是因为值传递或者引用传递不匹配"

CASE 66

//Invalid Subscript For Array Index Operation

ls_ErrMessage="数组索引使用了非法的下标"

CASE 67

//Null Object Reference Can Not Be Assigned Or Passed To An Autoinstantiate

ls_ErrMessage="空的对象引用不能赋值或者传递给一个自动实例化对象"

CASE 68

//Null Object Reference Can Not Be Passed To External DLL Function Name

ls_ErrMessage="空的对象引用不能传递给外部动态链接库函数"

CASE 69

//Function Name Can Not Be Called From A Secured Runtime Session

ls_ErrMessage="安全实时对话模式中不能调用该函数"

CASE 70

//External DLL Function Name Can Not Be Called From A Secured Runtime Session

ls_ErrMessage="安全实时对话模式中不能调用外部动态链接库函数"

CASE 71

//General Protection Fault Occurred

ls_ErrMessage="发生一般的保护性错误"

CASE 72

//Name Failed With An Operating System Error Code Of Number

ls_ErrMessage="字段发生一个操作系统级错误"

CASE 73

//Reference Parameters Can Not Be Passed To An Asynchronous Shared/Remote Object Method

ls_ErrMessage="引用型参数不能传递给一个异步的共享或者远程对象方法"

CASE 74

//Reference Parameters Can Not Be Passed To A Shared Object Method

ls_ErrMessage="引用型参数不能传递给一个共享对象的方法"

CASE 75

//The Server Has Forced The Client To Disconnect

ls_ErrMessage="服务器已经强制客户端断开连接" //PB7以上,EAServer会触发一个异常

CASE 76

//Passing Null As A Parameter To External Function Name

ls_ErrMessage="给外部函数传递了一个空值参数"

CASE 77

//Object Passed To Shared/Remote Object Method Is Not A Nonvisual User Object

ls_ErrMessage="对象传递给共享或者远程对象的方法必须是一个不可视的用户对象"

CASE 78

//Listen Can Only Be Done In Enterprise Version Of
PowerBuilder

ls_ErrMessage="监听只能在企业版的PowerBuilder中使用"

CASE 79

//The Argument To Name Must Be An Array

ls_ErrMessage="参数必须是一个数组"

CASE 80

//The Server Has Timed Out The Client Connection

ls_ErrMessage="客户端尝试连接的时间已经超出服务器设置的限制时间" //PB7以上,EAServer会触发一个异常

CASE 81

//Function Argument File Creator Must Be A Four Character String

ls_ErrMessage="函数参数文件创建者必须是一个四个字符的字符串" //只会出现在Source Control模式下

CASE 82

//Function Argument File Type Must Be A Four Character String

ls_ErrMessage="函数参数文件类型必须是一个四个字符的字符串" //只会出现在Source Control模式下

CASE 83

//Attempt To Invoke A Function Or Event That Is Not Accessible

ls_ErrMessage="试图调用一个不可存取的函数或事件"

CASE 84

//Wrong Number Of Arguments Passed To Function/Event Call

ls_ErrMessage="在函数或者事件中传递的参数个数错误"

CASE 85

//Error In Reference Argument Passed In Function/Event Call

ls_ErrMessage="在函数或者事件中传递的引用型参数错误"

CASE 86

//Ambiguous Function/Event Reference

ls_ErrMessage="引用不明确的函数或者事件"

CASE 87

//The Connection To The Server Has Been Lost

ls_ErrMessage="与服务器的连接已经丢失" //PB7以上,EAServer会触发一个异常

CASE 88

//Cannot Ask For ClassDefinition Information On Open Painter:Name

ls_ErrMessage="不能在打开的画笔中查询类定义信息"

CASE 89

//PowerBuilder 5.0 Style Proxy Objects Are Not Supported.Copy The New Style Proxy That Was Generated At Migration Time

ls_ErrMessage="5.0中的类型代理对象不支持，拷贝移植时产生的新的类型代理" //PB5和PB6的代码升级到PB7以上会发生该错误

CASE 90

//Cannot Assign Array Of Type Name To Variable Of Type Array Of Name

ls_ErrMessage="这两种数据类型的数组不能赋值"

CASE 91

//Cannot Convert Any In Any Variable To Name.Possible Cause Uninitialized Value

ls_ErrMessage="不能将任意类型变量转变成变量名所在的空间，其原因可能是变量未初始化"

CASE 92

//Required Property Name Is Missing

ls_ErrMessage="必要的属性名丢失"

CASE 93

//CORBA User Exception:Exceptionname

ls_ErrMessage="CORBA组件的调用者抛出了一个异常" //只会在EAServer中出现,一般要自己限制

CASE 94

//CORBA System Exception:Exceptionname

ls_ErrMessage="CORBA组件自身抛出了一个异常" //只会在EAServer中出现,一般要自己限制

CASE 95

//CORBA Objects May Not Be Created Locally

ls_ErrMessage="CORBA组件不能在本地创建实例" //只会在EAServer中出现,一般要自己限制

CASE 96

//Exception Thrown Has Not Been Handled

ls_ErrMessage="抛出的异常没有被处理"

CASE 97

//Cannot Save Name Because Of A Circular Reference Problem

ls_ErrMessage="不能保存一个被嵌套引用的对象" //只会出现在程序中修改PBL或者PBD的情况下

/*

Cannot save name because of a circular reference problem. Possible causes:

无法保存的原因可能是如下几种情况之一：

1.This o b j e c t references another class, which in turn references this o b j e c t.

对象引用了其他对象，被引用对象处于修改状态

2.Some other circular reference is pointing back to this o b j e c t, causing a deadlock condition.

某些其他对象正在使用此对象，产生死锁

Suggested actions:

//不翻译

1.Temporarily remove the circular reference from the referenced o b j e c t.

//不翻译

2.Make your required changes to this o b j e c t to refer to that o b j e c t.

//不翻译

3.Add back the circular reference you removed in step 1.

//不翻译

4.Perform a full rebuild (recommended).

//不翻译

*/

CASE 98

//Obsolete Object Reference

ls_ErrMessage="使用了已被废弃的函数" //例如在EAServer上使用了GetStateStatus()函数,DataWindow的DBErrorCode()和DBErrorMessage()函数

CASE 99

//Error calling method of a PBNI o b j e c t

ls_ErrMessage="错误的调用PBNI的对象函数" //只会在使用了PBNI下才会出现

CASE 100

//Error loading library containing a PBNI o b j e c t

ls_ErrMessage="PBNI对象不存在于当前指定的DLL中，无法载入"

CASE 101

//Error unloading library containing a PBNI o b j e c t

ls_ErrMessage="PBNI对象不存在于当前指定的DLL中，无法释放"

CASE 102

//Error creating a PBNI o b j e c t

ls_ErrMessage="创建PBNI对象出错" //不清楚，可能是自动实例化

CASE 103

//Error destroying a PBNI o b j e c t

ls_ErrMessage="销毁PBNI对象出错" //同上，还有可能是对象没有先执行创建操作

CASE 104

//Error calling PowerBuilder system function functionname

ls_ErrMessage="系统函数名错误" //测试不出来

CASE 105

//Executing a HALT statement in a server component is strictly forbidden

ls_ErrMessage="不要在一个服务组件中使用HALT语句"

CASE 106

//Function is reserved or not yet implemented

ls_ErrMessage="函数尚未处于执行状态"

CASE 107

//Argument is out of range

ls_ErrMessage="参数越界"

CASE 108

//Not enough memory to execute the operation

ls_ErrMessage="内存不足" //测试不出来

CASE 109

//Cannot assign a null value to array variables

ls_errMessage="无法指向一个空的数组"

CASE ELSE

//Unkown Error

ls_ErrMessage="未知错误"

END CHOOSE

ls_ErrText+="~r~n"

ls_ErrText+="系统错误日志(Error Log)"+"~r~n~r~n"

ls_ErrText+="出错时间(Error Time)："+String(Now(),"YYYY年MM月DD日 HH时MM分SS秒")+"~r~n"

ls_ErrText+="出错编号(Error Number)："+String(aerr_Info.Number)+"~r~n"

ls_ErrText+="出错对象(Error Object)："+aerr_Info.Object+"~r~n"

ls_ErrText+="出错事件(Error Event)："+aerr_Info.ObjectEvent+"~r~n"

ls_ErrText+="出错行数(Error Line)："+String(aerr_Info.Line)+"~r~n"

ls_ErrText+="出错信息(Error Text)："+ls_ErrMessage+"~r~n"

IF aerr_Info.Object<>aerr_Info.WindowMenu THEN

CHOOSE CASE Lower(Left(aerr_Info.WindowMenu,2))

CASE "m_"

ls_ErrText+="出错菜单(Error Menu)："+aerr_Info.WindowMenu+"~r~n"

CASE "w_","ws"

ls_ErrText+="出错窗口(Error Window)："+aerr_Info.WindowMenu+"~r~n"

// CASE "f_","sf"

// ls_ErrText+="出错函数(Error Function)："+aerr_Info.WindowMenu+"~r~n"

CASE ELSE

ls_ErrText+="出错控件(Error Control)："+aerr_Info.WindowMenu+"~r~n"

END CHOOSE

END IF

ls_ErrText+="详细原因(Error Message)："+aerr_Info.Text

RETURN ls_ErrText