zrdatastru.pas

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

{*******************************************************}
{                                                       }
{              荆鹏亿信分公司SP系统                     }
{　　　　　　　　　　　　　　 　　　　　　　　　        }
{              中润数据结构定义单元                     }
{                                                       }
{         程序员：宋伟华    2004.2.05                   }
{                                                       }
{  版权 (c)  2003-2004 荆鹏软件开发有限公司　　　　　　 }
{                                                       }
{*******************************************************}
unit ZRDataStru;

interface

uses
  Windows,SysUtils,winsock;

type

  TZRMsgHead=packed record
    MsgLen,
    MsgID,
    SeqNum:Cardinal;
  end;

  {Connect}
  TZRConnectBody=packed record
    LoginName:array[0..11] of char;
    LoginPwd:array[0..11] of char;
  end;

  TZRConnect=packed record
    MsgHead:TZRMsgHead;
    MsgBody:TZRConnectBody;
  end;

  TZRConnectResp=packed record
    MsgHead:TZRMsgHead;
    Stat:byte;
  end;

  {Submit}
  TZRSubmitBody=packed record
    SPNum,
    FeePhone,
    SendPhone,
    AcptPhone,
    MsgType,
    SerID:string;
    MoFlg:byte;
    ExpireTime,
    AtTime:string;
    RptFlg:byte;
    MsgLen:Cardinal;
    MsgCon,
    Reserve:string;
  end;

  TZRSubmit=packed record
    MsgHead:TZRMsgHead;
    MsgBody:TZRSubmitBody;
  end;

  TZRSubRespBody=packed record
    Stat:byte;
    MsgID:cardinal;
  end;

  TZRSubmitResp=packed record
    MsgHead:TZRMsgHead;
    MsgBody:TZRSubRespBody;
  end;

  {Deliver}
  TZRDeliverBody=packed record
    SpNum,
    SendPhone:string;
    MsgLen:Cardinal;
    MsgCon,
    Reserve:string;
  end;

  TZRDeliver=packed record
    MsgHead:TZRMsgHead;
    MsgBody:TZRDeliverBody;
  end;

  TZRDeliverResp=TZRMsgHead;

  {Report}
  TZRReportBody=packed record
    SubRespMsgID:Cardinal;
    Stat:byte;
  end;

  TZRReport=packed record
    MsgHead:TZRMsgHead;
    MsgBody:TZRReportBody;
  end;

  TZRReportResp=TZRMsgHead;

  {ActiveTest}
  TZRActiveTest=TZRMsgHead;
  TZRActiveTestResp=TZRMsgHead;

  ZRStandard=class
    public
      class procedure MsgHead(var MsgHead:TZRMsgHead);
      class procedure Bind(var BindStru:TZRConnect);
  end;

implementation

{ TZRStandard }

class procedure ZRStandard.Bind(var BindStru: TZRConnect);
begin
  MsgHead(BindStru.MsgHead);
end;

class procedure ZRStandard.MsgHead(var MsgHead: TZRMsgHead);
begin
  MsgHead.MsgLen:=htonl(MsgHead.MsgLen);
  MsgHead.MsgID:=htonl(MsgHead.MsgID);
  MsgHead.SeqNum:=htonl(MsgHead.SeqNum);
end;

end.