datastrucclass.~pas

SMGSession,一个短信网关接口代码

{*******************************************************}
{                                                       }
{              荆鹏亿信分公司SP系统                     }
{　　　　　　　　　　　　　　 　　　　　　　　　        }
{               数据结构类公共单元                      }
{                                                       }
{         程序员：宋伟华    2004.1.17                   }
{                                                       }
{  版权 (c)  2003-2004 荆鹏软件开发有限公司　　　　　　 }
{                                                       }
{*******************************************************}

unit DataStrucClass;

interface
uses
  Winsock,IdGlobal,SysUtils,Dialogs,Windows;

type
  {Message Head}
  TCUSequenceNum=packed record
    SourceNodeNo:Cardinal;
    Time:Cardinal;
    Count:Cardinal;
  end;

  TJPCUMsgHead=packed record
    MsgLen:Cardinal;
    ComID:Cardinal;
    SequenceNum:TCUSequenceNum;
  End;

  TJPCMMsgHead=packed record
    MsgLen:Cardinal;
    ComID:Cardinal;
    SeqNum:Cardinal;
  end;

  {Bind命令的消息体}
  TCusJPCUBind=packed record
    LoginType:byte;
    UserName:array[0..15] of char;
    PassWord:array[0..15] of char;
    Reserve:array[0..7] of char;
  End;

  TJPCUBind=packed record
    MsgHead:TJPCUMsgHead;
    MsgBody:TCusJPCUBind;
  End;

  TCusJPCMBind=packed record
    SourAdd:array[0..5] of char;
    AuthSour:array[0..15] of char;
    Ver:byte;
    TimeStamp:Cardinal;
  end;

  TJPCMBind=packed record
    MsgHead:TJPCMMsgHead;
    MsgBody:TCusJPCMBind;
  end;

  {Bind_Resp消息}
  TCusJPCUResp=Packed record
    Result:Byte;
    Reserve:array[0..7] of char;
  End;

  TJPCUResp=packed record
    MsgHead:TJPCUMsgHead;
    MsgBody:TCusJPCUResp;
  end;


  TJPCUBindResp=TJPCUResp;


  TCusJPCMBindResp=packed record
    Status:Cardinal;
    AuthISMG:array[0..15] of char;
    Ver:byte;
  end;

  TJPCMBindResp=packed record
    MsgHead:TJPCMMsgHead;
    MsgBody:TCusJPCMBindResp;
  end;

  {UnBind消息}
  TJPCUUnBind=TJPCUMsgHead;
  TJPCUUnbindResp=TJPCUMsgHead;

  TJPCMUnBind=TJPCMMsgHead;
  TJPCMUnBindResp=TJPCMMsgHead;

  {移动Submit数据包的定义}
  TCusJPCMSMGSubmit=Packed Record
    MsgId:array[0..7] of Char;
    PKTotal:byte;
    PKNum:byte;
    IsReport:byte;
    MsgLevel:byte;
    SerID:array[0..9] of char;
    FeeUserType:Byte;
    FeeUser:array[0..31] of char;
    FeeUserNoType:byte;
    TP_PId:byte;
    TP_udhi:byte;
    MsgFmt:byte;
    SendSPID:array[0..5] of char;
    FeeType:array[0..1] of char;
    FeeVal:array[0..5] of char;
    ValidTime:array[0..16] of char;
    SendTime:array[0..16] of char;
    SrcId:array[0..20] of  char;
    AcptPhoneCnt:byte;
    AcptPhoneLst:string;
    AcptPhoneNoType:byte;
    MsgLen:Byte;
    MsgCon:string;
    LinkID:array[0..19] of char;
  End;

  TJPCMSMGSubmit=Packed record
    MsgHead:TJPCMMsgHead;
    MsgBody:TCusJPCMSMGSubmit;
  End;

  {变形}
  TCusCMSubmit=Record
    MsgId:string;
    PKTotal:byte;
    PKNum:byte;
    IsReport:byte;
    MsgLevel:byte;
    SerID:string;
    MTFlg,
    MoFlg,
    FeeUserType:Byte;
    FeeUser:string;
    FeeUserNoType:byte;
    TP_PId:byte;
    TP_udhi:byte;
    MsgFmt:byte;
    SendSPID:string;
    FeeType:string;
    FeeVal:string;
    ValidTime:string;
    SendTime:string;
    SrcId:string;
    AcptPhoneCnt:byte;
    AcptPhoneLst:string;
    AcptPhoneNoType:byte;
    MsgLen:Byte;
    MsgCon:string;
    LinkID:string;
  End;

  TCMSendSubmit=record
    MsgHead:TJPCMMsgHead;
    MsgBody:TCusCMSubmit;
  end;

  TCusJPCMSMGSubmitResp=packed record
    MsgID:array[0..7] of char;
    Result:Cardinal;
  end;

  TJPCMSMGSubmitResp=packed record
    MsgHead:TJPCMMsgHead;
    MsgBody:TCusJPCMSMGSubmitResp;
  end;

  TCusJPCMSubmitResp=record
    msgID:string;
    result:cardinal;
  end;

  TJPCMSubmitResp=record
    msgHead:TJPCMMsgHead;
    msgBody:TCusJPCMSubmitResp;
  end;

  {联通Submit格式}
  TCusJPCUSMGSubmit=Packed record
    SPNum:array[0..20] of  char;
    AcountNum:array[0..20] of char;
    AcptPhoneCnt:byte;
    AcptPhoneNo:string;
    CorpID:array[0..4] of char;
    SerType:array[0..9] of  char;
    FeeType:byte;
    FeeVal:array[0..5] of Char;
    GivenVal:array[0..5] of char;
    AgentFlg:byte;
    MorelatetoMTFlg:byte;
    Priority:byte;
    SMDestoryTime:array[0..15] of Char;
    SMSendTime:array[0..15] of Char;
    ReportFlg:byte;
    TpPid:byte;
    Udhi:byte;
    MsgCoding:byte;
    MsgType:byte;
    MsgLen:Cardinal;
    MsgContent:string;
    Reserve:array[0..7] of Char;
  End;

  TJPCUSMGSubmit=Packed record
    MsgHead:TJPCUMsgHead;
    MsgBody:TCusJPCUSMGSubmit;
  End;

  TJPCUSMGSubmitResp=TJPCUResp;


  {联通Deliver}
  TCusJPCUDeliver=packed record
    SurPhone:array[0..20] of char;
    SPID:array[0..20] of char;
    TP_pid:byte;
    TP_udhi:byte;
    MsgFmt:byte;
    MsgLen:Cardinal;
    MsgCon:string;
    Reserve:array[0..7] of char;
  end;

  TJPCUDeliver=packed record
    MsgHead:TJPCuMsgHead;
    MsgBody:TCusJPCUDeliver;
  end;

  {联通DeliverResp}
  TJPCUDeliverResp=TJPCUResp;

  {联通Report}
  TCusJPCUReport=packed record
    SubSeqNum:TCUSequenceNum;
    RptType:byte;
    AcptPhone:array[0..20] of char;
    Stat:byte;
    ErrCode:byte;
    Reserve:array[0..7] of char;
  end;

  TJPCUReport=packed record
    MsgHead:TJPCUMsgHead;
    MsgBody:TCusJPCUReport;
  end;

  TJPCUReportResp=TJPCUResp;

  {移动Deliver}
  TCusJPCMSMGDeliver=packed record
    MsgID:array[0..7] of char;
    DestID:array[0..20] of char;
    SerID:array[0..9] of char;
    TP_pid:byte;
    TP_udhi:byte;
    MsgFmt:byte;
    SrcTrmID:array[0..31] of char;
    SrcTrmType:byte;
    IsReport:byte;
    MsgLen:byte;
    MsgCon:string;
    LinkID:array[0..19] of char;
  end;

  TJPCMSMGDeliver=packed record
    MsgHead:TJPCMMsgHead;
    MsgBody:TCusJPCMSMGDeliver;
  end;

  TCusJPCMSMGDeliverResp=packed record
    MsgID:array[0..7] of char;
    Result:Cardinal;
  end;

  TJPCMSMGDeliverResp=packed record
    MsgHead:TJPCMMsgHead;
    MsgBody:TCusJPCMSMGDeliverResp;
  end;

  {移动Report}
  TJPCMReportCon=packed record
    MsgID:array[0..7] of char;
    Status:array[0..6] of char;
    SubmitTime:array[0..9] of char;
    DoneTime:array[0..9] of char;
    DestTrmID:array[0..31] of char;
    SMSCSeq:Cardinal;
  end;