//文件名稱：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.