cmpp.pas

华为cmpp短信网关编程

//文件名称：YiDong_Cmpp.pas
//文件标识：tYD_Cmpp类
//当前版本：1.0
//作    者：邵青山,李朔刚
//mail: [e-mail] [e-mail]
//完成日期：2003年5月27日
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 组合包 ISMG to SP
    tCmpp_Deliver_Resp_ItoS = Packed Record
        Head    :tCMPP_HEAD_tag;
        Body    :tCMPP_DELIVER_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;
    // CMPP_CONNECT_RESP 组合包 ISMG to SP
    tCmpp_Connect_Resp_ItoS = Packed Record
        Head    :tCMPP_HEAD_tag;
        Body    :tCMPP_CONNECT_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.