case ntohl(CMPP_CONNECT_RESP_tag.Status) of
0:
R_mem.Lines.Add('连接返回内容：状态=' + inttostr(ntohl(CMPP_CONNECT_RESP_tag.Status)) + '正确.');
1:
R_mem.Lines.Add('连接返回内容：状态=' + inttostr(ntohl(CMPP_CONNECT_RESP_tag.Status)) + '消息结构错.');
2:
R_mem.Lines.Add('连接返回内容：状态=' + inttostr(ntohl(CMPP_CONNECT_RESP_tag.Status)) + '非法源地址.');
3:
R_mem.Lines.Add('连接返回内容：状态=' + inttostr(ntohl(CMPP_CONNECT_RESP_tag.Status)) + '认证错.');
4:
R_mem.Lines.Add('连接返回内容：状态=' + inttostr(ntohl(CMPP_CONNECT_RESP_tag.Status)) + '版本太高.');
5:
R_mem.Lines.Add('连接返回内容：状态=' + inttostr(ntohl(CMPP_CONNECT_RESP_tag.Status)) + '其他错误.');
end;
*****************************

case ntohl(CMPP_SUBMIT_RESP_tag.Result) of
0:
R_mem.Lines.Add('发送短信返回内容：状态=' + inttostr(ntohl(CMPP_SUBMIT_RESP_tag.Result)) + '正确.');
1:
R_mem.Lines.Add('发送短信返回内容：状态=' + inttostr(ntohl(CMPP_SUBMIT_RESP_tag.Result)) + '消息结构错.');
2:
R_mem.Lines.Add('发送短信返回内容：状态=' + inttostr(ntohl(CMPP_SUBMIT_RESP_tag.Result)) + '命令字错.');
3:
R_mem.Lines.Add('发送短信返回内容：状态=' + inttostr(ntohl(CMPP_SUBMIT_RESP_tag.Result)) + '消息序号重复.');
4:
R_mem.Lines.Add('发送短信返回内容：状态=' + inttostr(ntohl(CMPP_SUBMIT_RESP_tag.Result)) + '消息长度错.');
5:
R_mem.Lines.Add('发送短信返回内容：状态=' + inttostr(ntohl(CMPP_SUBMIT_RESP_tag.Result)) + '资费代码错.');
6:
R_mem.Lines.Add('发送短信返回内容：状态=' + inttostr(ntohl(CMPP_SUBMIT_RESP_tag.Result)) + '超过最大信息长.');
7:
R_mem.Lines.Add('发送短信返回内容：状态=' + inttostr(ntohl(CMPP_SUBMIT_RESP_tag.Result)) + '业务代码错.');
8:
R_mem.Lines.Add('发送短信返回内容：状态=' + inttostr(ntohl(CMPP_SUBMIT_RESP_tag.Result)) + '流量控制错.');
9:
R_mem.Lines.Add('发送短信返回内容：状态=' + inttostr(ntohl(CMPP_SUBMIT_RESP_tag.Result)) + '本网关不负责服务此计费号码.');
10:
R_mem.Lines.Add('发送短信返回内容：状态=' + inttostr(ntohl(CMPP_SUBMIT_RESP_tag.Result)) + 'Src_Id错误.');
11:
R_mem.Lines.Add('发送短信返回内容：状态=' + inttostr(ntohl(CMPP_SUBMIT_RESP_tag.Result)) + 'Msg_src错误.');
12:
R_mem.Lines.Add('发送短信返回内容：状态=' + inttostr(ntohl(CMPP_SUBMIT_RESP_tag.Result)) + 'Fee_terminal_Id错误.');
13:
R_mem.Lines.Add('发送短信返回内容：状态=' + inttostr(ntohl(CMPP_SUBMIT_RESP_tag.Result)) + 'Dest_terminal_Id错误.');
14:
R_mem.Lines.Add('发送短信返回内容：状态=' + inttostr(ntohl(CMPP_SUBMIT_RESP_tag.Result)) + '其他错误.');

end;

本文转自94cool博客园博客，原文链接：http://www.cnblogs.com/94cool/archive/2010/04/27/1722393.html，如需转载请自行联系原作者