?? cmpp.~pas
字號:
//文件名稱:YiDong_Cmpp.pas
//文件標識:tYD_Cmpp類
//當前版本:1.0
unit cmpp;
interface
Uses
CMPP_Protocol;
Type
////////////////////////////////////////////////////////////////////////////
// 發送短信隊列
tSendQueue = tCMPP_SUBMIT_tag;
// 接收短信隊列
tDeliverQueue = Packed Record
Head :tCMPP_DELIVER_HEAD_tag;
Body :tCMPP_DELIVER_tag
end;
// 接收狀態回報隊列
tReportQueue = Packed Record
Head :tCMPP_DELIVER_HEAD_tag;
Body :tCMPP_Report_tag;
end;
{**************************************************************************}
{由于發送時包頭和包體需要一塊發送,下列為組合成一體的協議結構}
////////////////////////////////////////////////////////////////////////////
// CMPP_CONNECT 組合包 SP to ISMG
tCmpp_Connect_StoI = Packed Record
Head : tCMPP_HEAD_tag;
body : tCMPP_CONNECT_tag;
end;
// CMPP_SUBMIT 組合包 SP to ISMG
tCmpp_Submit_StoI = Packed Record
Head : tCMPP_HEAD_tag;
body : tCMPP_SUBMIT_tag;
end;
// CMPP_ACTIVE_TEST 組合包 SP to ISMG
tCmpp_ActiveTest_StoI = Packed Record
Head :tCMPP_HEAD_tag;
Body :tCMPP_ACTIVE_TEST_tag;
end;
// CMPP_DELIVER_RESP 組合包 SP to ISMG
tCmpp_Deliver_Resp_StoI = Packed Record
Head :tCMPP_HEAD_tag;
Body :tCMPP_DELIVER_RESP_tag;
end;
// CMPP_DELIVER 組合包 ISMG to SP
tCmpp_Deliver_ItoS = Packed Record
Head : tCMPP_HEAD_tag;
body : tCMPP_DELIVER_BODY_tag;
end;
// CMPP_SUBMIT_RESP 組合包 ISMG to SP
tCmpp_SubMit_ItoS = Packed Record
Head : tCMPP_HEAD_tag;
body : tCMPP_SUBMIT_RESP_tag;
end;
// CMPP_CONNECT_RESP 組合包 ISMG to SP
tCmpp_Connect_Resp_ItoS = Packed Record
Head :tCMPP_HEAD_tag;
Body :tCMPP_CONNECT_RESP_tag;
end;
// CMPP_ACTIVE_TEST_RESP 組合包 ISMG to SP
tCmpp_ActiveTest_Resp_ItoS = Packed Record
Head :tCMPP_HEAD_tag;
Body :tCMPP_ACTIVE_TEST_RESP_tag;
end;
////////////////////////////////////////////////////////////////////////////
implementation
function ResultCommandString(var i: Longword): string;
begin
case i of
$1 :Result:='CMPP_CONNECT';
$80000001 :Result:='CMPP_CONNECT_RESP';
$2 :Result:='CMPP_TERMINATE';
$80000002 :Result:='CMPP_TERMINATE_RESP';
$4 :Result:='CMPP_SUBMIT';
$80000004 :Result:='CMPP_SUBMIT_RESP';
$5 :Result:='CMPP_DELIVER';
$80000005 :Result:='CMPP_DELIVER_RESP';
$6 :Result:='CMPP_QUERY';
$80000006 :Result:='CMPP_QUERY_RESP';
$7 :Result:='CMPP_CANCEL';
$80000007 :Result:='CMPP_CANCEL_RESP';
$8 :Result:='CMPP_ACTIVE_TEST';
$80000008 :Result:='CMPP_ACTIVE_TEST_RESP';
$9 :Result:='CMPP_FWD';
$80000009 :Result:='CMPP_FWD_RESP ';
$10 :Result:='CMPP_MT_ROUTE';
$80000010 :Result:='CMPP_MT_ROUTE_RESP';
$11 :Result:='CMPP_MO_ROUTE';
$80000011 :Result:='CMPP_MO_ROUTE_RESP';
$12 :Result:='CMPP_GET_ROUTE';
$80000012 :Result:='CMPP_GET_ROUTE_RESP';
$13 :Result:='CMPP_MT_ROUTE_UPDATE';
$80000013 :Result:='CMPP_MT_ROUTE_UPDATE_RESP';
$14 :Result:='CMPP_MO_ROUTE_UPDATE';
$80000014 :Result:='CMPP_MO_ROUTE_UPDATE_RESP';
$15 :Result:='CMPP_PUSH_MT_ROUTE_UPDATE';
$80000015 :Result:='CMPP_PUSH_MT_ROUTE_UPDATE_RESP';
$16 :Result:='CMPP_PUSH_MO_ROUTE_UPDATE';
$80000016 :Result:='CMPP_PUSH_MO_ROUTE_UPDATE_RESP';
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -