constvalueut.pas

delphi的XMPRPC通讯例子

unit ConstValueUt;

interface
const
      CT_SVR_Version:string='版本号:2.0';
      CT_FSF_Conut:integer=7;
      //------------------界面相关的常量----------------//
      CT_ChildName:array[0..13] of string=('Reg','Modify','Check','Lose','Rereg','Fee','UnLost','ModGroup','Unreg','Charge','Restore','Print','Delay','Batchreg');
      CT_ChildName_CN:array[0..13] of string=('办证','修改','年检','挂失','补卡','充值','解挂','权限','注销','消费','恢复','打印','延期','批量办证');
      CT_MOD_NOTPB1:array[0..6] of string=('cbIDType1','edtUserName','Label1','Label3','RBRead','RBClean','RBClose');
      //------------------------------------------------//

      //------------------系统相关常量------------------//
      CR_SVR_ChargeNoGroup:string='NO_GROUP';
      CT_SVR_ItemLth:integer=255;
       //res_type 0-发送 1 接收 2 XMLRPC 3系统内部
      CT_SVR_resType:array[0..3] of string =('发送','接收','XMLRPC','系统内部');
      CT_SVR_ErrCode:array[0..1] of string =('0','37');
      CT_SVR_DICT:array[0..11] of string=('group','education','protitle','profession','country','province','nation','idtype','status','item','price','company');
      CT_SVR_DICT_CN:array[0..11] of string=('用户组','教育列表','职称列表','职业列表','国家列表','省市列表','民族列表','证件类型列表','用户状态列表','用户权限列表','收费列表','单位列表');
      CT_SVR_ItemType:array[0..5] of string=('其他','系统','认证','门禁','收费','分馆');
      CT_SVR_OPType:array[0..12] of string=('注册','更改','年检','挂失','注销','解挂','补卡','权限','修改图片','充值','消费','恢复','延期');
      CT_SVR_DecodeType:array[0..1] of string=('time','value');
      CT_SVR_MemoInfo:array[0..4] of string=('未知','正常','初始化','免费','收费');
      CT_SVR_RES_Login:array[0..7] of string=('成功','读者余额不足','读者余额在警戒值下','读者未刷卡','非法读者','连接一卡通服务器错误','服务器逻辑错误','非管理主机');
      //------------------------------------------------//

      //------------------插件相关的常量----------------//
      CT_FunctionInfo:array[0..3] of string=('getDllInfo','getDllVersion','getDllType','getAttribute');
      CT_FunctionName:array[0..1] of string=('PlugSetup','PlugRun');
      CT_FunctionType:array[0..3] of string=('image','card','operation','print');
      //------------------------------------------------//

      //------------服务器连接报错码(客户端定义)---------//
      CT_SVR_ERR_SUCCEED:integer=1000;
      CT_SVR_ERR_DISCONNECT:integer=1001;
      CT_SVR_ERR_OVERDUESESSION:integer=1002;
      CT_SVR_ERR_NORESULT:integer=1003;
      CT_SVR_ERR_DECODEERR:integer=1004;
      //------------------------------------------------//

      //-------------服务器连接报错码解析---------------//
      CT_SVR_ERRCONTENT:array[1000..1005] of string=('连接成功','无法连接服务器','过期会话','无返回代码','解码失败','未知错误');
      //------------------------------------------------//

implementation

end.