cmpptype.pas

Delphi写的CMPP短信协议控件

unit CMPPTYPE;

interface
uses
  Windows, Messages, SysUtils, Classes, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient,SMSPUBLIC,SGIPTYPE,IdHash;

TYPE
  TArrayMsg=Array[0..255] of Char;

  TCMPPMsgHeader=record
    Total_Length:LongWord;
    Command_ID:LongWord;
    Sequence_ID:LongWord;
  end;
  PCMPPMsgHeader=^TCMPPMsgHeader;
  TCMPP_Connect=record
    Source_Addr:String[6];
    AuthenticatorSP:T4x4LongWordRecord;
    Version:Byte;
    TimeStamp:longWord;
  end;
  PCMPP_Connect=^TCMPP_Connect;
  TCMPP_Connect_REP=record
    Status:Byte;
    AuthenticatorISMG:T4x4LongWordRecord;
    Version:Byte;
  end;
  PCMPP_Connect_REP=^TCMPP_Connect_REP;
  TCMPP_Submit=record
    Msg_id:int64;
    Pk_total:Byte;
    Pk_number:Byte;
    Registered_Deliver:Byte;
    Msg_level:Byte;
    Fee_UserType:Byte;
    Service_id:String[10];
    Fee_terminal_id:String[21];
    TP_pid:Byte;
    TP_udhi:Byte;
    Msg_src:String[6];
    FeeType:String[2];
    FeeCode:String[6];
    Valid_Time:String[17];
    At_Time:String[17];
    Src_terminal_id:String[21];
    DestUsr_tl:Byte;
    Dest_terminal_id:String;
    Msg_Length:Byte;
    case Msg_Fmt:Byte of
        0,15:(Msg_Content_Str:String[170]);
        3,4,8:(Msg_Content_array:TArrayMsg);
  end;
  PCMPP_Submit=^TCMPP_Submit;
  TCMPP_Submit_Rep=Record
    Msg_Id:int64;
    Result:Byte;
  end;
  PCMPP_Submit_Rep=^TCMPP_Submit_Rep;
  TCMPP_Query=Record
    Time:String[8];
    Query_Type:Byte;
    Query_Code:String[10];
  end;
  PCMPP_Query=^TCMPP_Query;

  TCMPP_Query_Rep=record
    Time:String[8];
    Query_Type:Byte;
    Query_Code:String[10];
    MT_TLMsg:LongWord;
    MT_Tlusr:LongWord;
    MT_Scs:LongWord;
    MT_WT:LongWord;
    MT_FL:LongWord;
    MO_Scs:LongWord;
    MO_WT:LongWord;
    MO_FL:LongWord;
  end;
  PCMPP_Query_Rep=^TCMPP_Query_Rep;

  TCMPP_Report=record
    Msg_id:int64;
    Stat:String[7];
    Submit_Time:String[10];
    Done_Time:String[10];
    Dest_terminal_id:String[21];
    SMSC_Sequence:LongWord;
  end;
  PCMPP_Report=^TCMPP_Report;

  TCMPP_Deliver=record
    Msg_Id:LongWord;
    Destnation_id:String[21];
    Service_id:String[10];
    TP_pid:Byte;
    TP_udhi:Byte;
    Msg_Fmt:Byte;
    Src_terminal_id:String[21];
    Msg_Length:Byte;
    Case Registered_Deliver:Byte of
        0:(Msg_Content:TChararray);
        1:(Msg_Report:TCMPP_Report);

  end;
  PCMPP_Deliver=^TCMPP_Deliver;

  TCMPP_Deliver_Rep=record
    Msg_id:Int64;
    Result:Byte;
  end;
  PCMPP_Deliver_Rep=^TCMPP_Deliver_Rep;
implementation

end.