head.~pas

delphi 短信下发和接收的demo 程序.可以在windows环境下调用linux提供的接口发送和接收短信

unit head;

interface
type
   Service_Head = record
     Message_Length : string;
     Command_ID : string;
     Sequence1 : string;
   end;

   InterProtocol = record
     GWId:array[0..7] of  char;
     ServiceId:array[0..7] of char;
	 	 Priority :     char;
	 	 MsgId :        string;
     UMsgID:array[0..7] of char;
   end;

   BIND = record
	  	head       : Service_Head;
	    bind_type  : char;      //*--标志绑定类型--*/
      username:array[0..7] of char;//*--用户名--*/
      passwd:array[0..7] of char;		//*---口令----*/
   end;

   BindRESP = record
		  head   :  Service_Head;
	    status :  char; 	//用户帮定是否成功 0:成功 其它失败
   end;

  active_test = record
   head    :    Service_Head;
  end;

  active_test_res = record
		head  :  Service_Head;
  end;

   unbind = record
		head  :  Service_Head;
   end;

  unbind_resp = record
		head  : Service_Head;
  end;

//  m_submit=^SUBMIT;
  SUBMIT = record
		head :    Service_Head		;
    InData:   InterProtocol;
		Pk_total:  byte		;

		Pk_number: byte		;
    Service_Id:array[0..9] of char;//业务标识，是数字、字母和符号的组合
    Fee_UserType   : byte;	//计费用户类型字段：
    										//0：对目的终端MSISDN计费；
    										//1：对源终端MSISDN计费；
    										//2：对SP计费；
    										//3：表示本字段无效，
    										//对谁计费参见Fee_terminal_Id字段。
    Fee_terminal_Id:array[0..31] of char;   //被计费用户的号码，
    										//当Fee_UserType为3时该值有效，
    										//当Fee_UserType为0、1、2时该值无意义。
    Fee_terminal_type : byte;   //被计费用户的号码类型，
    										//0：真实号码；1
    										//：伪码。
	 		Msg_Fmt : byte;		//短信信息格式
      FeeType:array[0..1] of char;		//资费类别：
												//01：对"计费用户号码"免费；
												//02：对"计费用户号码"按条计信息费；
												//03：对"计费用户号码"按包月收取信息费。
      FeeCode:array[0..5]of char;		//资费代码（以分为单位）
      Src_id:array[0..20]of char;     //源号码
      Dest_terminal_Id:array[0..31] of char;//接收短信的MSISDN号码。
		 		Dest_terminal_tpye: byte;	//接收短信的用户的号码类型，0：真实号码；1：伪码。// MorelatetoMtflag
	  		Msg_Length:  byte;			//信息长度
        Msg_Content:array[0..159] of char;	//信息
        LinkID:array[0..19] of char;        //CMPP LinkID
        MasID:array[0..19] of char;         //mas服务器编号
        AppName:array[0..4] of char;      //企业接入应用名称编号
        resvlen   :    integer;            //ems文件长度
        reserve:array[0..255] of char;  //上行:MOURL 下行EMS文件内容
    end;

 // m_submitresp=^SUBMITRESP ;
  SUBMITRESP = record
	head: Service_Head		;
	Result: char		;
  Reserve:array[0..7] of char;
  end;


app_deliver = record
		head :  Service_Head;
		InData: InterProtocol;		//内部数据
    Dest_id:array[0..20] of char; //目的号码
   				Service_Id:array[0..9] of char;   //业务标识
	 Msg_Fmt : char 	;  //短信信息格式
   Src_terminal_Id:array[0..31] of char;//源终端MSISDN号码
  Src_terminal_type: char;//源终端MSISDN类型，0：真实号码；1：伪码。
	Msg_Length : string			;		//短信长度；
				Msg_Content:array[0..159] of char;	//短信内容
				LinkID:array[0..19] of char;      //CMPP
 end;


  App_deliver_resp = record
    head      :  Service_Head;
		Result    :   char;
    Reserve:array[0..7] of char;
  end;
implementation

end.