请做过移动CMPP程序的来帮忙 紧急 在线等 ( 积分: 100 )

正在写一个CMPP的客户端程序，模拟网关测试一切正常，实际连接过去发送短信的时候总是返回-201，经检查为“未知错误”，不知道什么原因了，我调用的时移动提供的 cmppapi.dll 2.0，发送短信的函数封装如下：
function CMPP_Submit(conn_id: integer; var p_msg_id: int64; msg_level: byte; service_id: pchar;
msg_format: byte; msg_src, fee_type, fee_code, valid_time, at_time: pchar;
tp_pid, udhi, fee_user_type: byte; charge_mobile, src_mobile: pchar;
user_num: byte; dest_mobiles, msg: pchar; msg_len: integer; need_response: byte): integer; stdcall;

implements
function CMPP_Submit; external CMPP_API name 'CMPP_Submit';


调用:
n := CMPP_Submit(cnnID, AMsgID, 0, PChar(DMSys.ConnectParam.ServiceNo), 15,
PChar(DMSys.ConnectParam.CompNo), PChar(DMSys.ConnectParam.FeeType),
PChar(DMSys.ConnectParam.FeeCode), '', '', 0, 0, DMSys.ConnectParam.ChargeType,
PChar(DMSys.ConnectParam.ChargeNum), '0',
1, PChar(edtRecieveMobil.Text),
PChar(s), Length(s), DMSys.ConnectParam.IsReport);

正在写一个CMPP的客户端程序，模拟网关测试一切正常，实际连接过去发送短信的时候总是返回-201，经检查为“未知错误”，不知道什么原因了，我调用的时移动提供的 cmppapi.dll 2.0，发送短信的函数封装如下：
function CMPP_Submit(conn_id: integer; var p_msg_id: int64; msg_level: byte; service_id: pchar;
msg_format: byte; msg_src, fee_type, fee_code, valid_time, at_time: pchar;
tp_pid, udhi, fee_user_type: byte; charge_mobile, src_mobile: pchar;
user_num: byte; dest_mobiles, msg: pchar; msg_len: integer; need_response: byte): integer; stdcall;

implements
function CMPP_Submit; external CMPP_API name 'CMPP_Submit';


调用:
n := CMPP_Submit(cnnID, AMsgID, 0, PChar(DMSys.ConnectParam.ServiceNo), 15,
PChar(DMSys.ConnectParam.CompNo), PChar(DMSys.ConnectParam.FeeType),
PChar(DMSys.ConnectParam.FeeCode), '', '', 0, 0, DMSys.ConnectParam.ChargeType,
PChar(DMSys.ConnectParam.ChargeNum), '0',
1, PChar(edtRecieveMobil.Text),
PChar(s), Length(s), DMSys.ConnectParam.IsReport);

我想很少有人能帮你解决
没有办法帮你调试
我写的目前还没有发现你的问题

我的封装函数及调用没有错误吧？
搞得我很没有自信了。

应该没有错误，说实话参数太多，搞这个东西真的很累，一点错误就得找半天

这个与防火墙设置等有什么关系没有？
如果没什么关系的话，我干脆不用他的API了，自己从底层写算了。耽搁了几天了，确实很麻烦。

自己写吧，我就是自己从底层写的

唉，我怕不是因为程序的问题，是因为防火墙等设置的问题。

自己从底层写最好,一切都好控制,用移动DLL,我总感觉问题多