sgiptype.~pas

Delphi写的CMPP短信协议控件

unit SGIPTYPE;
interface
uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, WSocket, WSocketS;
type
     TStatus=(SgipReady,
              SgipConnecting,SgipConnected,
              SgipBinding,SgipBinded,
              SgipSubmiting,SgipSubmited,
              SgipDelivering,SgipDelivered,
              SgipUnBinding,SgipUnBinded,
              SgipReporting,SgipReported,
              SgipUserRpting,SgipUserRpted,
              SgipDisConnecting,SgipDisConnected
              );
     TSrvStatus=(SrvReady,SrvConnecting,SrvConnected,
                 SrvRcving,SrvRcved,SrvSending,SrvSent,SrvDisConnecting,SrvDisConnected);
     TCharArray=array[0..65535] of char;
     PCharArray=^TCharArray;
     TSeq=record
          Source:longword;
          Time:longword;
          Number:longword;
     end;
     TMsgHeader=record
          MsgLength:longword;
          CommandID:longword;
          SeqNumber:TSeq;
     end;
     TNumbers=Array[0..20] of char;
     TReserve=Array[0..7] of char;
     TTimeStr=array[0..15] of char;
     TValues=array[0..6] of char;
     TNames=TTimeStr;
     TBind=record
          loginType:Byte;
          Password:Tnames;
          UserName:Tnames;
          Reserve:TReserve;
     end;
     TUserRpt=record
          SpNo:TNumbers;
          UserNo:TNumbers;
          UserCondition:Byte;
          Reserve:Treserve;
     end;
     TCmd_Resp=record
          Result:Byte;
          Reserve:TReserve;
     end;
     TSubmitA=Record
          SPNo:TNumbers;
          ChargeNo:TNumbers;
          UserCount:Byte;
     end;
     TSubmitB=TNumbers;
     TSubmitC=record
          CorpId:array[0..4]of char;
          SrvType:array[0..9] of char;
          FeeType:Byte;
          FeeValue:array[0..5] of char;
          GivenValue:array[0..5] of char;
          AgentFlag:Byte;
          MOMTFlag:Byte;
          Priority:Byte;
          ExpTime:array[0..15] of char;
          SchTime:array[0..15] of char;
          ReportFlag:Byte;
          TP_PID:Byte;
          TP_UDHI:Byte;
          MsgCoding:Byte;
          MsgType:Byte;
          MsgLength:longword;
     end;
     TSubmitC1=record
          CorpId:array[0..4]of char;
          SrvType:array[0..9] of char;
          FeeType:Byte;
          FeeValue:array[0..5] of char;
          GivenValue:array[0..5] of char;
          AgentFlag:Byte;
          MOMTFlag:Byte;
          Priority:Byte;
          ExpTime:array[0..15] of char;
          SchTime:array[0..15] of char;
          ReportFlag:Byte;
          TP_PID:Byte;
          TP_UDHI:Byte;
          MsgCoding:Byte;
          MsgType:Byte;
          MsgLength:Longword;
     end;
     TSubmitD=TCharArray;
     TSubmitE=TReserve;
     TDeliverA=record
          UserNo:TNumbers;
          SPNo:TNumbers;
          TP_PID:Byte;
          TP_UDHI:Byte;
          MsgCoding:Byte;
          MsgLength:longword;
      end;
      TDeliverB=TCharArray;
      TDeliverC=TReserve;
      TReport=record
          //SPNo:Tnumbers;
          //ChargeNo:Tnumbers;
          SeqNo:TSeq;
          ReportType:Byte;
          UserNo:TNumbers;
          State:Byte;
          ErrorCode:Byte;
          Reserve:TReserve;
      end;
     TNokiaOTA_OPL=record
          infofield:Byte;
          Width:Byte;
          Height:Byte;
          Colours:Byte;
          Image:array[0..125] of Byte;
     end;
     TNokiaOTA_PICMSG=record
          infofield:Byte;
          Width:Byte;
          Height:Byte;
          Colours:Byte;
          Image:array[0..251] of Byte;
     end;
     TNokiaOperatorLogo=record
          Version:Byte;
          MCC:Word;
          MNC:Byte;
          LineFeed:Byte;
          InfoField:Byte;
          Data:TNokiaOTA_OPL;
     end;
     TNokiaPictureMessage=record
          Version:Byte;
          MsgType:Byte;
          ItemLength:Word;
     end;




    { TNokiaPictureMessage=record
          Version:Byte;}

     TCliCmd=(CliBind,CliUnBind,CliSubmit,CliReport,CliDeliver,CliUserRpt,CliNoop);
     TOnConnected=procedure(Sender:Tobject;IP:string;Error:integer) of object;
     TOnDisConnected=Procedure(sender:Tobject;Error:integer) of object;
     TOnResped= procedure (Sender:Tobject;Cmd:TCliCmd;Error:Longword) of object;
     TOnCommand=procedure(Sender:Tobject;Cmd:TCliCmd) of object;



implementation

end.