用delphi编写小灵通短信－－－希望高手来指定指定 ( 积分: 100 )

kaga · 2005-11-23

现在网上小灵通短信发送接收程序都是用C/C++或是JAVA写的，就看不到用Delphi写的，前阵子承蒙lichenbin,vvyan等富翁帮助，写了一点小片断，虽然解决了发送和接收的问题，但总是不稳定，经常会出现异常情况。因此，希望有能力的开发人员能够多加指点。 本人将前阵子写的程序附上，希望各位富翁能够大力帮助，谢谢！    考虑到各富翁不一定有环境测试，请跟我联系，对于能够为大家作出贡献的富翁，请提前预约，本人将尽可能地提供调试环境（宽带自装哦^_^）。 我的QQ: 79451849 请注明：小灵通短信调试。

kaga · 2005-11-23

现在网上小灵通短信发送接收程序都是用C/C++或是JAVA写的，就看不到用Delphi写的，前阵子承蒙lichenbin,vvyan等富翁帮助，写了一点小片断，虽然解决了发送和接收的问题，但总是不稳定，经常会出现异常情况。因此，希望有能力的开发人员能够多加指点。 本人将前阵子写的程序附上，希望各位富翁能够大力帮助，谢谢！    考虑到各富翁不一定有环境测试，请跟我联系，对于能够为大家作出贡献的富翁，请提前预约，本人将尽可能地提供调试环境（宽带自装哦^_^）。 我的QQ: 79451849 请注明：小灵通短信调试。

kaga · 2005-11-23

----------------------------------------------- { uSMGWAPI.PAS 该文件主要将DLL的函数导入进来, 另外，还定义了一些结构供调用，如有不妥，或有更好的方式，敬请各位修改指正，谢谢！ } unit uSMGWAPI; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, ComCtrls, Buttons,  ExtCtrls,IniFiles; type  //---- 接收短信结构 ----------------------  PDeliverResp=^TDeliverResp;  TDeliverResp= packed record     sMsgID : PChar;     nIsReport : Integer;     nMsgFormat : Integer;     sRecvTime : PChar;     sSrcTermID : PChar;     sDestTermID : PChar;     nMsgLen : Integer;     sMsgContent : PChar;  end;  //---- 群发短信结构 ------------------------  pSendBatchResp = ^TSendBatchResp;  TSendBatchResp = packed record      sMsgID : PChar;      nErrorCode : Integer;      sPhoneNo : PChar;  end;  //------------------------------------------

kaga · 2005-11-23

function InitSMGPAPI(P

Char):integer;stdcall;external 'SMGWAPI.dll';  function SMGPDeliver(const nTimeout : Integer; out DeliverResp : TDeliverResp):Integer;stdcall;external 'SMGWAPI.DLL';  function SMGPSendSingle(                          const nNeedReply : integer;  //是否要求返回状态报告（0=不要求，1=要求）                          const nMsgLevel : integer;    //优先级别，（0－3，0表示最低优先级）                        const  sServiceID : PChar; //业务类型                          const nMsgFormat : Integer; //短消息格式（参照附录短消息格式表）网关不做判定, 透明传输                          const sFeeType : pchar; //资费类别，参照附录短消息参数表                          const  sFeeCode : pchar; //资费代码（以分为单位）                          const  sFixedFee : pchar; //包月费/封顶费（以分为单位）                          const  sValidTime : pchar; //存活有效期，格式遵循SMPP3.3协议                          const  sAtTime : pchar; //定时发送时间，格式遵循SMPP3.3协议                          const  sChargeTermID : PChar; //计费号码                                 sDestTermID : PChar; //短消息接收号码                          const sReplyPath : PChar;  //用户回复号码－－新增                              nMsgLen : Integer; //消息长度                          const sMsgContent : PChar; //短消息内容（nMsgLen=0时表示存放短消息的文件名）                             sMsgID : PChar; //返回的短消息标识                          var nErrorCode : Integer; //错误代码（参照附录错误代码表）                          const nMsgType : Integer //短消息类型，参照附录短消息参数表                          //sSrcTermID : PChar //短消息发送号码。新版API已经删除                         &nbsp

:Integer;stdcall;external 'SMGWAPI.dll';

kaga · 2005-11-23

function SMGPSendBatch( nNeedReply : Integer; nMsgLevel : Integer; sServiceID : PChar; nMsgFormat : Integer; sFeeType : PChar; sFeeCode : PChar; sFixedFee : PChar; sValidTime : PChar; sAtTime : PChar; sChargeTermID : PChar;  //计费号码,填空 sDestTermIDFile : PChar; // 保存用于接收消息目的号码的文件 sReplyPath : PChar;    //用户回复号码 nMsgLen : Integer; sMsgFile : PChar; sMsgIDFile : PChar;  // 保存短消息标识或者错误代码的文件 nMsgType : Integer ) : Integer; stdcall; external 'SMGWAPI.DLL';

kaga · 2005-11-23

//function CMPPActiveTest(dwRetry:word)   :integer;stdcall;external 'SMGWAPI.dll';  function GetSendBatchResp(sMsgIDFile : PChar;nPos : Integer;SendBatchResp : PSendBatchResp):Integer;stdcall;external 'SMGWAPI.DLL';    function SMGPDisconnect    :integer;stdcall;external 'SMGWAPI.dll'; implementation end.

kaga · 2005-11-23

{ 单条群发程序，采用多线程编程方式，但在实际测试中，感觉不是很好，一旦执行后，程序界面基本上还是不能动，另外，一旦最小化后，再复原，则会在屏幕中空白一段时间，不知道那位大侠有办法解决；不要让他独占CPU 文件名： uThrSendMsg.pas } unit uThrSendMsg; interface uses  Classes,ADOINT,ADODB,ActiveX,SysUtils,StrUtils,Forms; type   TThrSendMsg = Class(TThread)   private     FCur : Integer;     FCodeList : TStrings;     FErrorList : TStrings;     FCount : Integer;     FMsgContent : String;     FDestTermID : String;     FFilename : String;     FReplyPath : String;     procedure SendMessage;     procedure UpdateCaption;   protected     procedure Execute;override;   public     constructor Create(sFilename : String; strMsgContent:String; strReplyPath : String);overload;     destructor Destroy;override;   end; implementation uses   uMsgServer,uSMGWAPI; { TThrSendMsg }

kaga · 2005-11-23

constructor TThrSendMsg.Create(sFilename : String; strMsgContent:String; strReplyPath : String); begin  //当前处理的序号  FCur := 0;  FFilename := sFilename;  sFilename := sFilename +'.txt';  FCodeList := TStringList.Create;  FErrorList := TStringList.Create;    FCodeList.LoadFromFile(sFilename);  FReplyPath := strReplyPath;  FMsgContent := strMsgContent;  FreeOnTerminate := True;  inherited Create(False); end;

kaga · 2005-11-23

destructor TThrSendMsg.Destroy; begin  SynChronize(UpdateCaption);    FCodeList.Free;  inherited; end; procedure TThrSendMsg.Execute; var  i : Integer; begin  FCount := FCodeList.Count;  While (FCur< FCount) do  begin     if not Terminated then     begin        Application.ProcessMessages;        FDestTermID := FCodeList.Strings[FCur];        Synchronize(sendmessage);     end;     Inc(FCur);     if FErrorList.Count >=100 then     begin       for i := 0  to 99  do         FCodeList.Add(FErrorList.strings);       FCount := FCount + 100;       FErrorList.Clear;     end;     sleep(20);  end; end;

kaga · 2005-11-23

procedure TThrSendMsg.SendMessage; var     nNeedReply : Integer;     nMsgLevel : Integer;     sServiceID : PChar;     nMsgFormat : Integer;     sFeeCode : PChar;     sFeeType : PChar;     sFixedFee : PChar;     sValidTime : PChar;     sAtTime : PChar;     sChargeTermID : PChar;     sDestTermID : PChar;     sReplyPath : PChar;     nMsgLen : Integer;     sMsgContent : PChar;     sMsgID : PChar;     nErrorCode : Integer;     nMsgType : Integer; begin     nNeedReply := 0;//不要求返回状态报告     nMsgLevel := 3;     sServiceID := PChar('HELP');     nMsgFormat := 15;     sFeeCode := PChar('');     sFeeType := PChar('');     sFixedFee := PChar('');     sValidTime := PChar('');     sAtTime := PChar('');     sChargeTermID := PChar('0571123456789');     //对方号码需要临时输入     sDestTermID := PChar(FDestTermID);     sReplyPath := PChar('1186565');         //输入值     nMsgLen := Length(PChar(FMsgContent));     sMsgContent := PChar(FMsgContent);     GetMem(sMsgID,11);     nErrorCode := 0;     nMsgType := 3;     try       if uSMGWAPI.SMGPSendSingle(nNeedReply,                                nMsgLevel,                                sServiceID,                                nMsgFormat,                                sFeeType,                                sFeeCode,                                sFixedFee,                                sValidTime,                                sAtTime,                                sChargeTermID,                                sDestTermID,                                sReplyPath,                                nMsgLen,                                sMsgContent,                                sMsgID,                                nErrorCode,                                nMsgType                               &nbsp

= 0 then         frmServer.memLog.Lines.Add(sDestTermID +'：OK  ; sMsgID 为【 '+            sMsgID +' 】；nErrorCode 为【'+IntToStr(nErrorCode) +' 】')       else begin         //插入error.Log         frmServer.memLog.Lines.Add(sDestTermID +'：Fail; sMsgID 为【 '+             sMsgID +' 】；nErrorCode 为【'+             IntToStr(nErrorCode) +' 】');                 FErrorList.Add(sDestTermID);       end;           except on E : Exception do        frmServer.memLog.Lines.Add('Error :  '+ e.message);     end; end;

kaga · 2005-11-23

procedure TThrSendMsg.UpdateCaption; begin  frmServer.memLog.Lines.Add('已经全部发送完毕:'+ DateTimeToStr(now));  frmServer.memLog.Lines.SaveToFile('Send_'+FFilename+'.Log'); end; end.

kaga · 2005-11-23

主界面程序中： // 初始化 procedure TfrmServer.ActInitExecute(Sender: TObject); var  iniFile : String; begin  iniFile := './smgpc.ini';  if uSMGWAPI.InitSMGPAPI(PChar(iniFile))= 0 then    memLog.Lines.Add('初始化成功')  else    memLog.lines.Add('初始化失败');      _Stop := False;   end; //线程群发按钮动作 procedure TfrmServer.btnThreadSendClick(Sender: TObject); var  //SendMsg : TThrSendMsg;  //ErrorList : TStrings;  strMsgContent,sFilename : String; begin  strMsgContent := Trim(mem_msg.Lines.Text);  //----------------------------------------  sFilename := cboArea.Items.Strings[cboArea.ItemIndex];    memLog.Lines.Add('开始群发：'+DateTimetoStr(now));    // SendMsg 定义为 SendMsg : TThrSendMsg;  SendMsg := TThrSendMsg.Create(sFilename,strMsgContent,strReply);     end;

kaga · 2005-11-23

接收程序还没有写好，希望富翁能够用线程来接收，尽量不要影响界面动作。

kaga · 2005-11-23

我这里还有有动态链接库和配置文件，还有开发的文档说明，如果大家有需要的话，可以发邮件给我：e-bus@126.com  注明：小灵通短信程序

340340 · 2005-11-23

偶要一份：sadero@163.com 谢谢

RJU · 2005-11-23

单条群发程序，采用多线程编程方式，但在实际测试中，感觉不是很好，一旦执行后，程序界面基本上还是不能动，另外，一旦最小化后，再复原，则会在屏幕中空白一段时间，不知道那位大侠有办法解决；不要让他独占CPU 在线程中适当的地方增加 Application.ProcessMessages;可以让主线程响应用户的动作和重画窗口

kaga · 2005-11-30

smgpapi.h 文件; ----------------------------------------------------------------- /******************************************************************** ModuleName: SMGW Client API FileName: smgpapi.h DESCRIPTION:    The Function ProtoType And Struct Definition Of API       History:                                                         Date       Version Modifier Activies 2002/02/27 1.0 Zhang Jiebin        Create 2002/10/18 3.5 Li Jianfu          Modify ********************************************************************/ #ifndef _SMGP_API_H_ #define _SMGP_API_H_ /*#define SMGP_CLIENT_VERSION10*/ #ifdef SMGP_API_EXPORTS #define SMGPAPI_EXPORTS int __stdcall #else #define SMGPAPI_EXPORTS int #endif #ifdef _WIN32  #pragma pack(push,1) #elif defined _AIX  #pragma options align=packed #elif defined _HPUX  #pragma pack 1 #else  #pragma pack (1) #endif /* Send Batch Message Responce Which Is Written In File */ typedef struct { char sMsgID[10+1]; int nErrorCode; char sPhoneNo[21+1]; }SendBatchResp; /* Query Message Responce Struct */ typedef struct { int nMT_TLMsg; int nMT_TLusr; int nMT_Scs; int nMT_WT; int nMT_FL; int nMO_Scs; int nMO_WT; int nMO_FL; }QueryResp; /* Receive Message Responce Struct */ #ifdef SMGP_API_EXPORTS /*DLL VERSION*/ typedef struct { unsigned int nIsReport; unsigned int nMsgFormat; unsigned int nMsgLength; char sMsgID[10+1]; char sRecvTime[14+1]; char sSrcTermID[21+1]; char sDestTermID[21+1]; char sMsgContent[252+1];    char        sReserve[8+1]; }DeliverResp; typedef struct { unsigned int nSerialNo; /*消息头中的流水号*/ unsigned int nStatus; unsigned int nMsgType;    unsigned int nMsgFormat; unsigned int nDesMode; unsigned int nKeySerialNo; unsigned int nIIType; unsigned int nMsgLength; char sMsgID[20+1]; char sSrcTermID[21+1]; char sDestTermID[21+1];    char sSessionID[20+1];    char sServiceID[10+1]; char sCpID[8+1]; char        sTermID[9+1];    char        sICCardID[15+1]; char sMsgContent[254+1]; }TransactionRecv; #else /*NOT DLL VERSION*/ typedef struct { char sMsgID[10+1]; unsigned int nIsReport; unsigned int nMsgFormat; char sRecvTime[14+1]; char sSrcTermID[21+1]; char sDestTermID[21+1]; unsigned int nMsgLength; char sMsgContent[252+1];    char        sReserve[8+1]; }DeliverResp; typedef struct { unsigned int nSerialNo; /*消息头中的流水号*/ unsigned int nStatus; char sMsgID[20+1]; unsigned int nMsgType;    unsigned int nMsgFormat; char sSrcTermID[21+1];    char sDestTermID[21+1];    char sSessionID[20+1];    char sServiceID[10+1]; char sCpID[8+1]; unsigned int nDesMode; char        sTermID[9+1];    char        sICCardID[15+1]; unsigned int nKeySerialNo; unsigned int nIIType; unsigned int nMsgLength; char sMsgContent[254+1]; }TransactionRecv; #endif /*SMGP_API_EXPORTS*/ #ifdef _WIN32  #pragma pack(pop) #elif defined _AIX  #pragma options align=reset #elif defined _HPUX  #pragma pack 4 #else  #pragma pack () #endif #ifdef __cplusplus extern "C"{ #endif /******************************************************************** The Function Prototype ********************************************************************/ /******************************************************************** FunctionName: InitSMGPAPI DESCRIPTION:    Must call this initiate function before calling others SMGP API functions if standard c is used, param sINIFile must be specfied.       Input: sINIFile：The address of init file name Output: None Return: 0=OK, 1=fail History:                                                         Date       Version Modifier Activies *******************************************************************/ SMGPAPI_EXPORTS InitSMGPAPI(const char *sINIFile); /******************************************************************** FunctionName: SMGPSendSingle DESCRIPTION:    Send a short message to single user,if succeed, message id is filled in sMsgID.if fail, error code is filled in nErrorCode.   Input: nNeedReply:Need reply the status?0:no,1:yes nMsgLevel:Message level:0:the lowest, 1:normal, 2:above normal 3:the highest sServiceID:Server type nMsgFormat:Message format sFeeType:Fee type sFeeCode:Fee code sValidTime:Valid time,format following smpp3.3 sAtTime:The time of sending,format following smpp3.3 sChargeTermID

aying User number sDestTermID:Reveive Message number sReplyPath:User reply number nMsgLen:Message length sMsgContent:Message Content Output: sMsgID:If succeed, message id is filled in sMsgID nErrorCode:If fail, error code is filled in nErrorCode Return: 0=OK, 1=fail History:                                                         Date       Version Modifier Activies *******************************************************************/ SMGPAPI_EXPORTS SMGPSendSingle( const int nNeedReply, const int nMsgLevel, const char *sServiceID, const int nMsgFormat, const char *sFeeType, const char *sFeeCode, const char *sFixedFee, const char *sValidTime, const char *sAtTime, const char *sChargeTermID, const char *sDestTermID, const char *sReplyPath, const int nMsgLen, const char *sMsgContent,char *sMsgID, int *nErrorCode,const int nMsgType,const char *sReserve); /******************************************************************** FunctionName: SMGPSendBatch DESCRIPTION:    Send a short message to multiple users,if succeed, message id is filled in sMsgID.if fail, error code is filled in nErrorCode.   If nMsgLen is 0, then sMsgFile is the filename which contains   message content, if not, then sMsgFile contains the message.   If Both of them are 0, SMGPSendBatch fail. Input: nNeedReply:Need reply the status?0:no,1:yes nMsgLevel:Message level:0:the lowest, 1:normal, 2:above normal 3:the highest sServiceID:Server type nMsgFormat:Message format sFeeType:Fee type sFeeCode:Fee code sValidTime:Valid time,format following smpp3.3 sAtTime:The time of sending,format following smpp3.3 sChargeTermID

aying User number sDestTermID:Reveive Message number sReplyPath:User reply number nMsgLen:Message length sMsgFile:The file which contains the message content or message Content,see description. sMsgIDFile:The file name which save the all message id or error code. Output: None Return: 0=OK, 1=fail History:                                                         Date       Version Modifier Activies *******************************************************************/ SMGPAPI_EXPORTS SMGPSendBatch( const int nNeedReply, const int nMsgLevel, const char *sServiceID, const int nMsgFormat, const char *sFeeType, const char *sFeeCode,const char *sFixedFee, const char *sValidTime, const char *sAtTime, const char *sChargeTermID, const char *sDestTermIDFile, const char *sReplyPath, const int nMsgLen, const char *sMsgFile, const char *sMsgIDFile,const int nMsgType,const char *sReserve); /******************************************************************** FunctionName: GetSendBatchResp DESCRIPTION:    Give a MSGID file which is created by Batch send,   specify position of the record, then get response from the file. each field of the param SendBatchResp will filled. nPos start from 0 Input: sMsgIDFile:The file name which save the all message id or error code. Output: pSendBatchResp:The message id and error code Return: 0=OK, 1=fail History:                                                         Date       Version Modifier Activies *******************************************************************/ SMGPAPI_EXPORTS GetSendBatchResp(char *sMsgIDFile, int nPos, SendBatchResp *pSendBatchResp); /******************************************************************** FunctionName: SMGPDeliver DESCRIPTION:    Get ShortMessage from SMGW Input: nTimeout:how many seconds the function keep waiting short message, 0 means wait forever. Output: pDeliverResp:the delivered short message is filled in pDeliverResp Return: 0=OK, 1=fail History:                                                         Date       Version Modifier Activies *******************************************************************/ SMGPAPI_EXPORTS SMGPDeliver(const int nTimeoutIn, DeliverResp *pDeliverResp); /******************************************************************** FunctionName: CMMPActiveTest DESCRIPTION:    See if the SMGW is available Input: Output: nErrorCode:Response error code,0 is ok Return: 0=OK, 1=fail History:                                                         Date       Version Modifier Activies *******************************************************************/ SMGPAPI_EXPORTS SMGPActiveTest(int *nErrorCode); /******************************************************************** FunctionName: SMGPRecvTransaction DESCRIPTION:    Get Electric Transation ShortMessage from SMGW Input: nTimeout:how many seconds the function keep waiting short message, 0 means wait forever. Output: pTransactionRecv:the received electric transaction short message is filled in pTransactionRecv Return: 0=OK, 1=fail History:                                                         Date       Version Modifier Activies *******************************************************************/ SMGPAPI_EXPORTS SMGPRecvTransaction(const int nTimeoutIn, TransactionRecv *pTransactionRecv); /******************************************************************** FunctionName: SMGPSendTransactionResp DESCRIPTION:    Support Electric Transaction.                Send a short message to single user,if succeed, message id is filled in sMsgID.if fail, error code is filled in nErrorCode.   Input: nSerialNo,                nStatus,            sMessageID, nMsgType,            nNeedReport,sFeeType,            sFeeCode, sFixedFee,            nMsgFormat, sSrcTermID,                sChargeTermID, sDestTermID,                sSessionID, sServiceID,            sCpID, nDesMode,            nAckDesMode, const char *sTermID,            sICCardID, nKeySerialNo,                nIIType,nMsgLength,            sMsgContent Output: nErrorCode:If fail, error code is filled in nErrorCode Return: 0=OK, 1=fail History:                                                         Date       Version Modifier Activies *******************************************************************/ SMGPAPI_EXPORTS SMGPSendTransactionResp( const int nSerialNo, const int nStatus, const char *sMessageID, const int nMsgType, const int nNeedReport, const char *sFeeType, const char *sFeeCode, const char *sFixedFee, const int nMsgFormat, const char *sSrcTermID,    const char *sChargeTermID, const char *sDestTermID,    const char *sSessionID, const char *sServiceID, const char *sCpID, const int nDesMode, const int nAckDesMode, const char *sTermID, const char *sICCardID, const int nKeySerialNo,    const int nIIType, const int nMsgLength, const char *sMsgContent); #ifdef __cplusplus } #endif #endif   /* _SMGP_API_H_ */ -----------------------------------------------------------------

kaga · 2005-11-30

smgpdef.h文件 －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ /****************************************************************** ModuleName: SMGW Client API FileName: smgpdef.h DESCRIPTION:    SMGP Protocol Message Definition       History:                                                         Date       Version Modifier Activies 2002/02/27 1.0 Zhang Jiebin Create 2002/10/18 3.5 Li Jianfu   Modify ********************************************************************/ #ifndef _SMGP_DEFINE_H_ #define _SMGP_DEFINE_H_ #ifdef _WIN32  #pragma pack(push,1) #elif defined _AIX  #pragma options align=packed #elif defined _HPUX  #pragma pack 1 #else  #pragma pack (1) #endif /******************************************************************** The Macro Definition ********************************************************************/ /* The SMGW Client Version */ #define SMGP_CLIENT_VERSION 0x13 /*#define SMGP_CLIENT_VERSION10_OK*/ /* The Maximal Length Of Short Message */ #define MAX_SM_LEN 252 #define MAX_SM_CUT_NUM 100 /* The Maximal Length Of Electric Transaction Short Message */   #define MAX_ESM_LEN 254 /*The Maximal number of DestTermID*/ #define MAX_DEST_TERM_NUM                       100 /* The Short Message Request ID */ #define REQUEST_ID_LOGIN 0x00000001 #define REQUEST_ID_LOGIN_RESP 0x80000001 #define REQUEST_ID_SUBMIT 0x00000002 #define REQUEST_ID_SUBMIT_RESP 0x80000002 #define REQUEST_ID_DELIVER 0x00000003 #define REQUEST_ID_DELIVER_RESP 0x80000003 #define REQUEST_ID_ACTIVE_TEST 0x00000004 #define REQUEST_ID_ACTIVE_TEST_RESP 0x80000004 #define REQUEST_ID_EXIT 0x00000006 #define REQUEST_ID_EXIT_RESP 0x80000006 #define REQUEST_ID_QUERY 0x00000007 #define REQUEST_ID_QUERY_RESP 0x80000007 /*Support Electric Transaction*/ #define REQUEST_ID_TRANSACTION 0x00000016 #define REQUEST_ID_TRANSACTION_RESP 0x80000016 /* Need Reply Yes Or No */ #define NEED_REPLY_YES 1 #define NEED_REPLY_NO 0 #define NEED_REPLY_MAX                          128 #define NEED_REPLY_MIN                          0 /* Need Report Yes Or No */ #define NEED_REPORT_YES 1 #define NEED_REPORT_NO 0 /* nMsgFormat Macro */ #define MSG_FORMAT_ASCII 0 #define MSG_FORMAT_WRITE_CARD 3 #define MSG_FORMAT_BINARY 4 #define MSG_FORMAT_UCS2 8 #define MSG_FORMAT_GB 15 #define MSG_FORMAT_PASSWORD 100 /* Fee Type Macro */ #define FEE_FREE "0" #define FEE_BY_ITEM "1" #define FEE_BY_MONTH "2" #define FEE_BY_MAXINUM "3" /* Login Mode */ #define LOGIN_SEND_MODE 0 #define LOGIN_RECV_MODE 1 #define LOGIN_TRANSMIT_MODE 2 /* Submit Priority */ #define SUBMIT_PRIORITY_LOWEST 0 #define SUBMIT_PRIORITY_NORMAL 1 #define SUBMIT_PRIORITY_ABOVE_NORMAL 2 #define SUBMIT_PRIORITY_HIGHEST 9 /* Message Status */ #define MESSAGE_STATUS_DELIVERED 0 #define MESSAGE_STATUS_EXPIRED 1 #define MESSAGE_STATUS_DELITED 2 #define MESSAGE_STATUS_UNDELIVERABLE 3 #define MESSAGE_STATUS_ACCEPTED 4 #define MESSAGE_STATUS_UNKNOW 5 /* SMGP Error Code */ #define SMGP_ERROR_CODE_OK 0 #define SMGP_ERROR_CODE_INVALIDE_PACKET 1 #define SMGP_ERROR_CODE_LOGIN_FAIL 2 #define SMGP_ERROR_CODE_INVALID_PRIORITY 3 #define SMGP_ERROR_CODE_INVALID_FEETYPE 4 #define SMGP_ERROR_CODE_INVALID_FEECODE 5 #define SMGP_ERROR_CODE_INVALID_MSGFORMAT 6 #define SMGP_ERROR_CODE_INVALID_VALIDTIME 7 #define SMGP_ERROR_CODE_INVALID_ATTIME 8 #define SMGP_ERROR_CODE_INVALID_SRCTERMID 9 #define SMGP_ERROR_CODE_INVALID_DESTTERMID 10 #define SMGP_ERROR_CODE_INVALID_LEN 11 #define SMGP_ERROR_CODE_INVALID_DESTSMGW 12 #define SMGP_ERROR_CODE_INVALID_DESTSRCSMGW 13 #define SMGP_ERROR_CODE_INVALID_FWDDESTTERMID 14 #define SMGP_ERROR_CODE_CHANGEPASSWORD_FAIL 15 #define SMGP_ERROR_CODE_RESERVERD 16 /* API Error Code */ #define SMGP_API_OK                             0 #define SMGP_API_ERROR_MSG_FORMAT               3 #define SMGP_API_ERROR_MSG_LENGTH               4 #define SMGP_API_ERROR_MSG_FEECODE              5 #define SMGP_API_ERROR_SERVICE_ID               7 #define SMGP_API_ERROR_SYSTEM_BUSY              8 #define SMGP_API_ERROR_CP_NUMBER                10 #define SMGP_API_ERROR_CONTENT_FORMAT           11 #define SMGP_API_ERROR_FEE_TYPE                 12 #define SMGP_API_ERROR_VALID_TIME               13 #define SMGP_API_ERROR_AT_TIME                  14 #define SMGP_API_ERROR_CHARGE_TERM_ID           15 #define SMGP_API_ERROR_DEST_TERM_ID             16 #define SMGP_API_ERROR_DEST_TERM_ID_FILE        17 #define SMGP_API_ERROR_MSG_FILE                 18 #define SMGP_API_ERROR_CONNECT_GW               20 #define SMGP_API_ERROR_AUTHID                   21 #define SMGP_API_ERROR_SEND_QUEUE_OVER          23 #define SMGP_API_ERROR_COMMAND_ID               25 #define SMGP_API_ERROR_SEQUENSE_ID              26 #define SMGP_API_ERROR_VERSION                  29 #define SMGP_API_ERROR_MSG_TYPE                 30 #define SMGP_API_ERROR_PRIORITY                 31 #define SMGP_API_ERROR_TIME_TYPE                35 #define SMGP_API_ERROR_QUERY_TYPE               38 #define SMGP_API_ERROR_ROUTE                    39 #define SMGP_API_ERROR_FIXED_FEE                40 #define SMGP_API_ERROR_SRC_TERM_ID              46 #define SMGP_API_ERROR_SYSTEM                   99 /* SMGP Length */ #define SMGP_MSG_HEAD_LENGTH (UINT32)(sizeof(SMGP_Head)) #define SMGP_LOGIN_MSG_LENGTH (UINT32)(sizeof(SMGP_Login)) #define SMGP_SUBMIT_MSG_LENGTH (UINT32)(sizeof(SMGP_Submit)) #define SMGP_SUBMIT_BATCH_MSG_LENGTH (UINT32)(sizeof(SMGP_Submit_Batch)) #define SMGP_EXIT_MSG_LENGTH (UINT32)(sizeof(SMGP_Head)) #define SMGP_DELIVER_RSP_MSG_LENGTH (UINT32)(sizeof(SMGP_DeliverResp)) /*Support Electric Transaction*/ #define SMGP_TRANSACTION_MSG_LENGTH (UINT32)(sizeof(SMGP_Transaction)) #define SMGP_TRANSACTION_RSP_MSG_LENGTH (UINT32)(sizeof(SMGP_TransactionResp)) /* SMGP Submit Message Type */ #define SMGP_SUBMIT_CANCEL_SUBSCRIBE 1 #define SMGP_SUBMIT_SUBSCRIBE_REQUEST 2 #define SMGP_SUBMIT_REQUEST 3 #define SMGP_SUBMIT_SUBSCRIBE 4 #define SMGP_SUBMIT_EXCHANGE 5 #define SMGP_SUBMIT_QUERY 6 /******************************************************************** The Struct Definition ********************************************************************/ /* SMGP Message Head */ typedef struct { unsigned int nPacketLength; /* 4 bytes */ unsigned int nRequestId; /* 4 bytes */ unsigned int nSequenceId; /* 4 bytes */ }SMGP_Head; /* SMGP Message Login */ typedef struct { SMGP_Head msgHead; /* 12 bytes */ char sUser[8]; /* 11 bytes */ char sAuthenMD5[16]; /* 16 bytes */ unsigned char nLoginMode; /* 1 bytes */ unsigned int nTimeStamp; /* 4 bytes */ unsigned char nVersion; /* 1 bytes */ }SMGP_Login; /* SMGP Message Login Resp*/ typedef struct { SMGP_Head msgHead; /* 12 bytes */ unsigned int nResult; /* 4 bytes */ }SMGP_LoginResp; /* SMGP Message Submit*/ typedef struct { SMGP_Head msgHead; /* 12 bytes */ unsigned char nMsgType; /* 1 bytes */ unsigned char nNeedReport; /* 1 bytes */ unsigned char nPriority; /* 1 bytes */ char sServerId[10]; /* 10 bytes */ char sFeeType[2]; /* 2 bytes */ char sFeeCode[6]; /* 6 bytes */ char sFixedFee[6]; /* 6 bytes */ unsigned char nMsgFormat; /* 1 bytes */ char sValidTime[17]; /* 17 bytes */ char sAtTime[17]; /* 17 bytes */ char sReplyPath[21]; /* 21 bytes */ char sChargeTermId[21]; /* 21 bytes */ unsigned char nDestTermIdCount; /* 1 bytes */ char sDestTermId[21]; /* 21 * 100 bytes */ unsigned char nMsgLength; /* 1 bytes */ char sMsgContent[MAX_SM_LEN]; /* MAX_SM_LEN bytes */    char            pReserve[8];            /* 8 bytes */ }SMGP_Submit; /* SMGP Message Submit*/ typedef struct { SMGP_Head msgHead; /* 12 bytes */ unsigned char nMsgType; /* 1 bytes */ unsigned char nNeedReport; /* 1 bytes */ unsigned char nPriority; /* 1 bytes */ char sServerId[10]; /* 10 bytes */ char sFeeType[2]; /* 2 bytes */ char sFeeCode[6]; /* 6 bytes */ char sFixedFee[6]; /* 6 bytes */ unsigned char nMsgFormat; /* 1 bytes */ char sValidTime[17]; /* 17 bytes */ char sAtTime[17]; /* 17 bytes */ char sReplyPath[21]; /* 21 bytes */ char sChargeTermId[21]; /* 21 bytes */ unsigned char nDestTermIdCount; /* 1 bytes */ char sDestTermId[21*MAX_DEST_TERM_NUM]; /* 21 * 100  bytes */ unsigned char nMsgLength; /* 1 bytes */ char sMsgContent[MAX_SM_LEN]; /* MAX_SM_LEN bytes */    char            sReserve[8]; }SMGP_Submit_Batch; /* SMGP Message Submit Resp*/ typedef struct { SMGP_Head msgHead; /* 12 bytes */ char sMsgId[10]; /* 10 bytes */ unsigned int nResult; /* 4 bytes */ }SMGP_SubmitResp; /* SMGP Message Deliver*/ typedef struct { SMGP_Head msgHead; /* 12 bytes */ char sMsgId[10]; /* 10 bytes */ unsigned char nIsReport; /* 1 bytes */ unsigned char nMsgFormat; /* 1 bytes */ char sRecvTime[14]; /* 14 bytes */ char sSrcTermId[21]; /* 21 bytes */ char sDestTermId[21]; /* 21 bytes */ unsigned char nMsgLength; /* 1 bytes */ char sMsgContent[MAX_SM_LEN]; /* MAX_SM_LEN bytes */ }SMGP_Deliver; /* SMGP Message Deliver Resp*/ typedef struct { SMGP_Head msgHead; /* 12 bytes */ char sMsgId[10]; /* 10 bytes */ unsigned int nResult; /* 4 bytes */ }SMGP_DeliverResp; /* SMGP Message Active Test*/ /* Empty Body */ /* SMGP Message Active Test Resp */ /* Empty Body */ /* SMGP Message Transaction: Support Electric Transaction*/ typedef struct { SMGP_Head msgHead; /* 12 bytes */ unsigned int nStatus; /* 4 bytes */ char            sMessageID[20];         /* 20 bytes */ unsigned char nMsgType;    /* 1 bytes */ unsigned char nMsgFormat; /* 1 bytes */ char            sSrcTermID[21];         /* 21 bytes */ char            sDestTermID[21];        /* 21 bytes */    char            sSessionID[20];         /* 20 bytes */ char            sServiceID[10];         /* 10 bytes */ char            sCpID[8];               /* 8 bytes */ unsigned char   nDesMode;               /* 1 bytes */ char            sTermID[9];             /* 9 bytes */ char            sICCardID[15];          /* 15 bytes */ unsigned char   nKeySerialNo;           /* 1 bytes */    unsigned char   nIIType;                /* 1 bytes */ unsigned short  nMsgLength;             /* 2 bytes */ char sMsgContent[MAX_ESM_LEN]; /* MAX_ESM_LEN bytes */ }SMGP_Transaction; /* SMGP Message Transaction: Support Electric Transaction*/ typedef struct { SMGP_Head msgHead; /* 12 bytes */ unsigned int nStatus; /* 4 bytes */ char            sMessageID[20];         /* 20 bytes */ unsigned char nMsgType;    /* 1 bytes */ unsigned char nNeedRport;    /* 1 bytes */    char            sFeeType[2];            /* 2 bytes */ char            sFeeCode[6];            /* 6 bytes */ char            sFixedFee[6];           /* 6 bytes */ unsigned char nMsgFormat; /* 1 bytes */ char            sSrcTermID[21];         /* 21 bytes */    char            sChargeTermID[21];      /* 21 bytes */ char            sDestTermID[21];        /* 21 bytes */    char            sSessionID[20];         /* 20 bytes */ char            sServiceID[10];         /* 10 bytes */ char            sCpID[8];               /* 8 bytes */ unsigned char   nDesMode;               /* 1 bytes */ unsigned char   nAckDesMode;            /* 1 bytes */ char            sTermID[9];             /* 9 bytes */ char            sICCardID[15];          /* 15 bytes */ unsigned char   nKeySerialNo;           /* 1 bytes */    unsigned char   nIIType;                /* 1 bytes */ unsigned short  nMsgLength;             /* 2 bytes */ char sMsgContent[MAX_ESM_LEN]; /* MAX_ESM_LEN bytes */ }SMGP_TransactionResp; /* SMGP Message Forward*/ typedef struct { SMGP_Head msgHead; /* 12 bytes */ char sDestSMGWNo[6]; /* 6 bytes */ char sSrcSMGWNo[6]; /* 6 bytes */ unsigned char nSMType; /* 1 bytes */ unsigned char nNeedReport; /* 1 bytes */ unsigned char nPriority; /* 1 bytes */ char sMsgSrc[6]; /* 6 bytes */ char sServerId[10]; /* 10 bytes */ char sFeeType[2]; /* 2 bytes */ char sFeeCode[6]; /* 6 bytes */ unsigned char nMsgFormat; /* 1 bytes */ char sValidTime[17]; /* 17 bytes */ char sAtTime[17]; /* 17 bytes */ char sReplyPath[21]; /* 21 bytes */ char sDestTermId[21]; /* 21 bytes */ unsigned char nMsgLength; /* 1 bytes */ char sMsgContent[MAX_SM_LEN]; /* MAX_SM_LEN bytes */ }SMGP_Forward; /* SMGP Message Forward Resp*/ typedef struct { SMGP_Head msgHead; /* 12 bytes */ char sMsgId[10]; /* 10 bytes */ unsigned int nResult; /* 4 bytes */ }SMGP_ForwardResp; /* SMGP Message Exit*/ /* Empty Body */ /* SMGP Message Exit Resp*/ /* Empty Body */ /* SMGP Message Status Report */ typedef struct { SMGP_Head msgHead; /* 12 bytes */ char sMsgId[10]; /* 10 bytes */ char sSubmitDate[14]; /* 14 bytes */ char sDoneDate[14]; /* 14 bytes */ char sStatus[7]; /* 7 bytes */ char sErr[3]; /* 3 bytes */ }SMGP_StatusReport; /* SMGP Message Change Passward */ typedef struct { char sOldPassward[15]; /* 15 bytes */ char sNewPassward[15]; /* 15 bytes */ }SMGP_ChangePassward; /*SMGP MSGID*/ typedef struct {    char sGwCode[30]; char sTime[30]; char sSequenceNo[30]; }SMGP_MsgID; /******************************************************************** The Function Definition ********************************************************************/ int SMGPPackHeadMsg(unsigned int nPacketLength, unsigned int nRequestId, SMGP_Head *pSMGPHead); int SMGPPackLoginMsg(char nLoginMode,SMGP_Login *pLoginMsg); #ifdef SMGP_CLIENT_VERSION10_OK int SMGPPackSubmitMsg( const int nNeedReply, const int nMsgLevel, const char *sServiceID, const int nMsgFormat, const char *sFeeType, const char *sFeeCode, const char *sValidTime, const char *sAtTime, const char *sChargeTermID, const char *sDestTermID, const char *sReplyPath, const int nMsgLen, const char *sMsgContent, const char *sReserve,                        SMGP_Submit *pSubmit); #else int SMGPPackSubmitMsg( const int nNeedReply, const int nMsgLevel, const char *sServiceID, const int nMsgFormat, const char *sFeeType, const char *sFeeCode, const char *sValidTime, const char *sAtTime, const char *sChargeTermID, const char *sDestTermID, const char *sReplyPath, const int nMsgLen, const char *sMsgContent, const int nMsgType, const char *sFixCode, const char *sReserve,                        SMGP_Submit *pSubmit); #endif #ifdef SMGP_CLIENT_VERSION10_OK int SMGPPackSubmitBatchMsg( const int nNeedReply, const int nMsgLevel, const char *sServiceID, const int nMsgFormat, const char *sFeeType, const char *sFeeCode, const char *sValidTime, const char *sAtTime, const char *sChargeTermID, const int  nDestTermIDCount,  const char *sDestTermID, const char *sReplyPath, const int nMsgLen, const char *sMsgContent, const char *sReserve,                        SMGP_Submit_Batch *pSubmit); #else int SMGPPackSubmitBatchMsg( const int nNeedReply, const int nMsgLevel, const char *sServiceID, const int nMsgFormat, const char *sFeeType, const char *sFeeCode, const char *sValidTime, const char *sAtTime, const char *sChargeTermID, const int  nDestTermIDCount, const char  *sDestTermID, const char *sReplyPath, const int nMsgLen, const char *sMsgContent, const int nMsgType, const char *sFixCode, const char *sReserve,                        SMGP_Submit_Batch *pSubmit); #endif int SMGPPackExitMsg(SMGP_Head *pSMGPExit); int SMGPPackDeliverRspMsg( SMGP_DeliverResp *pDeliverRsp, unsigned int nSequense, char *sMsgId, unsigned int nResult); int SMGPPackActiveTestMsg(SMGP_Head *pActiveTest); /*Support Electric Transaction*/ int SMGPPackTransactionRespMsg(const int nSerialNo,const int nStatus, const char *sMessageID, const int nMsgType, const int nNeedReport, const char *sFeeType, const char *sFeeCode, const char *sFixedFee, const int nMsgFormat, const char *sSrcTermID,    const char *sChargeTermID, const char *sDestTermID,    const char *sSessionID, const char *sServiceID, const char *sCpID, const int nDesMode, const int nAckDesMode, const char *sTermID, const char *sICCardID, const int nKeySerialNo,    const int nIIType, const int nMsgLength, const char *sMsgContent,SMGP_TransactionResp *pTransResp); #ifdef _WIN32  #pragma pack(pop) #elif defined _AIX  #pragma options align=reset #elif defined _HPUX  #pragma pack 4 #else  #pragma pack () #endif #endif /* #define _SMGP_DEFINE_H_ */ －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

zqw0117 · 2005-11-30

typedef struct { char sMsgID[10+1]; unsigned int nIsReport; unsigned int nMsgFormat; char sRecvTime[14+1]; char sSrcTermID[21+1]; char sDestTermID[21+1]; unsigned int nMsgLength; char sMsgContent[252+1];    char        sReserve[8+1]; }DeliverResp; 你的翻译少了最后一项 char        sReserve[8+1]; 另外，不要用packed record，直接用record就可以了

用delphi编写小灵通短信－－－希望高手来指定指定 ( 积分: 100 )

kaga

Unregistered / Unconfirmed

kaga

Unregistered / Unconfirmed

kaga

Unregistered / Unconfirmed

kaga

Unregistered / Unconfirmed

kaga

Unregistered / Unconfirmed

kaga

Unregistered / Unconfirmed

kaga

Unregistered / Unconfirmed

kaga

Unregistered / Unconfirmed

kaga

Unregistered / Unconfirmed

kaga

Unregistered / Unconfirmed

kaga

Unregistered / Unconfirmed

kaga

Unregistered / Unconfirmed

kaga

Unregistered / Unconfirmed

kaga

Unregistered / Unconfirmed

340340

Unregistered / Unconfirmed

RJU

Unregistered / Unconfirmed

kaga

Unregistered / Unconfirmed

kaga

Unregistered / Unconfirmed

zqw0117

Unregistered / Unconfirmed

Similar threads