关闭

HUAWEI SMEIDLL 短讯接口API

1783人阅读 评论(1) 收藏 举报
SMEIDLL提供的功能:
  
  1. 低层链路出现故障时,重连链路,提示上层。
  2. 和SMSC的定时握手。
  3. 提供实现SMPP和内部协议中定义的相关协议的API函数。
  '事件:点击主界面的“初始化”按钮
  
  '功能:初始化套接字,准备连接
  Private Sub cmdInitSocket_Click()
  Dim bRet As Boolean
  Dim ulRet As Long
  Dim iCount As Integer
  
  StatusBar1.Panels(1).Text = ""
  ulRet = IFInitInterface(CodeProtocol + 1, DriverProtocol + 1, _
   Trim(DriverParam))
  fStatusform.ProgressBar1.Value = 100
  Unload fStatusform
  If ulRet <> 0 Then
   MsgBox "初始化套接字成功!"
   StatusBar1.Panels(1).Text = "初始化连接成功"
  Else
   MsgBox "初始化失败!"
   StatusBar1.Panels(1).Text = "初始化连接失败"
  End If
  End Sub

  '事件:点击主界面的“登录服务器”按钮
  
  '功能:登录服务器
  Private Sub cmdLogin_Click()
  Dim bRet As Boolean
  Dim ulRet As Long

  StatusBar1.Panels(1).Text = ""
  ulRet = Login_R(Trim(SystemID), Trim(Password))
  If ulRet <> 0 Then
   MsgBox "登录成功!"
   StatusBar1.Panels(1).Text = "登录成功"
  Else
   MsgBox "登录失败!"
   StatusBar1.Panels(1).Text = "登录失败"
  End If
  End Sub

  '事件:点击主界面的“发送短讯”按钮
  
  '功能:向服务器提交短讯信息
  Private Sub cmdSubmit_Click()
  Dim result As Integer
  Dim UDLen As Long

  StatusBar1.Panels(1).Text = ""
  'Dim UserData As String
  UserData = "test info"
  UDLen = Len(UserData)
  result = SubmitA(OrgTON, OrgNPI, Trim(OrgAddr), DestTON, DestNPI, _
   DestAddr, PRI, RD, RP, SRR, MR, DCS * 4, PID, _
   Trim(Schedule), Trim(Expire), Default_ID, UDHI, UDLen, UserData, SM_ID, FCS)
  If result = 0 Then
   MsgBox "发送成功!"
   StatusBar1.Panels(1).Text = "发送成功"
  Else
   MsgBox "发送失败!"
   StatusBar1.Panels(1).Text = "发送失败"
  End If
  End Sub
  
  
  '事件:点击主界面的“获取消息”按钮
  
  '功能:判断是否有新短讯发来,如果有,则获取该短讯的信息
  Private Sub cmdGetMsg_Click()
  StatusBar1.Panels(1).Text = ""
  GetMsg
  End Sub
  
  '功能: 公共函数。判断是否有新短讯发来;如果有, 则获取该短讯的信息
  Sub GetMsg()
  Dim result As Integer
  HDM_TimeOut = 2000
  result = HasDeliverMessage(HDM_TimeOut)
  If result = 0 Then
   MsgBox "你有新短讯!"
   StatusBar1.Panels(1).Text = "有新短讯"
  Else
   StatusBar1.Panels(1).Text = "无新短讯"
  End If
  If result = 0 Then
   result = GetDeliverSMEx(SM_ID_R, DestTON_R, DestNPI_R, DestAddr_R, OrgTON_R, OrgNPI_R, OrgAddr_R, PRI_R, RP_R, UDHI_R, PID_R, DCS_R, TimeStamp_R, UDLen_R, UserData_R)

   If result = 0 Then
   MsgBox "接收短讯成功!"
   StatusBar1.Panels(1).Text = "接受短讯成功"
   Set fNewSMForm = New frmNewSM
   fNewSMForm.List1.AddItem "短消息的ID:" + CStr(SM_ID_R)
   fNewSMForm.List1.AddItem "目标地址号码类型:" + CStr(DestTON_R)
   fNewSMForm.List1.AddItem "目标地址编码方案:" + CStr(DestNPI_R)
   fNewSMForm.List1.AddItem "目标地址:" + DestAddr_R
   fNewSMForm.List1.AddItem "源地址号码类型:" + CStr(OrgTON_R)
   fNewSMForm.List1.AddItem "源地址编码方案:" + CStr(OrgNPI_R)
   fNewSMForm.List1.AddItem "源地址:" + OrgAddr_R
   fNewSMForm.List1.AddItem "回应路径:" + CStr(RP_R)
   fNewSMForm.List1.AddItem "头结构指示:" + CStr(UDHI_R)
   fNewSMForm.List1.AddItem "协议标志:" + CStr(PID_R)
   fNewSMForm.List1.AddItem "编码方案:" + CStr(DCS_R)
   fNewSMForm.List1.AddItem "提交时间:" + TimeStamp_R
   fNewSMForm.List1.AddItem "短消息的UDL:" + CStr(UDLen_R)
   fNewSMForm.List1.AddItem "正文:" + UserData_R
   fNewSMForm.Show
   Else
   MsgBox "接收短讯失败!"
   StatusBar1.Panels(1).Text = "接收短讯失败"
   End If
  End If
  End Sub

  
  '事件:点击主界面的“定时获取消息”按钮
  
  '功能:启动定时获取短讯的服务
  Private Sub cmdTimerGetMsg_Click()
  StatusBar1.Panels(1).Text = ""
  If Timer1.Enabled = False Then
   Timer1.Enabled = True
   StatusBar1.Panels(1).Text = "启动定时获取短讯服务"
  Else
   Timer1.Enabled = False
   StatusBar1.Panels(1).Text = "关闭定时获取短讯服务"
  End If
  End Sub
  
  '事件:点击主界面的“退出系统”按钮
  
  '功能:退出安装短讯中心的服务器
  Private Sub cmdLogout_Click()
  Call IFExitInterface
  Call Logout
  Unload fMainForm
  End Sub
  模块文件代码:
  'Option Explicit
  '
  '/*******************************************************************************
  'FileName: Export.h
  'Description: 本头文件定义了SMEIDLL提供的所有输出函数的定义?
  'Version : 2.0
  'Date : 98/11/01
  'Others:
  'Function List():
  ' 01. IFInitInterface :初始化动态库
  ' 02. IFSendAndAnswer :基本的发送等待回包函数
  ' 03. IFSetOnRead :设置读回调函数,用于处理非回包数据
  ' 04. IFSetOnError :设置出错回调函数,用于通知上层
  ' 05. IFExitInterface :退出动态库函数
  ' 06. Login :登录函数,使用TRANSMITER命令
  ' 07. Logout :从短讯中心注销
  ' 08. SubmitSM :提交短讯
  ' 09. VPSubmitSM :提交短讯,简化函数
  ' 10. QuerySMStatus :查询短讯状态
  ' 11. QuerySMDetail :查询短讯详细属性,可查询短讯内容
  ' 12. QuerySMS :查询满足条件的短讯
  ' 13. CancelSM :取消短讯
  ' 14. ReplaceSM :替换短讯
  ' 15. AddSubscriber :添加用户
  ' 16. DeleteSubscriber :删除用户
  ' 17. ModifySubscriber :修改用户属性
  ' 18. EnquireSubscriber :查询用户属性
  ' 19. HasDeliverMessage :查询是否有下发短讯
  ' 20. GetDeliverSM :取下发短讯
  ' 21. Login_R :登录函数,使用RECEIVER命令
  ' 22. VPModifySubPassword :修改用户密码
  ' 23. GetErrorString :查询错误代码的描述
  ' 24. SubmitA :增强的SUBMIT函数
  ' 25. VPSubmitA :增强的SUBMIT函数的VP版
  ' 26. GSMConvertTextToData :把ASC字符串变换成指定编码
  ' 27. GSMConvertDataToText :把编码数据变换成ASC字符串
  ' 28. QuerySub
  'History:
  ' 1. author : 张刚
  ' time : 98/11/01
  ' release : 2.0
  'desc: 实现基本功能
  '
  ' 2. author : 张刚
  ' time : 99/06/01
  ' release : 2.1
  ' desc : 优化,修改了一些错误,添加了新函数。
  '
  '*******************************************************************************/
  '
  '#if !defined(__SEMIDLL_EXPORT_H__)
  '#define __SEMIDLL_EXPORT_H__
  '
  '#include "Funback.h"
  '#include "Drv.h"
  '
  '#define IF_TIMEOUT 5000 //发送超时时间
  '
  '//最大的短消息文本长度为255*140=35700
  '#define MAX_SMSIZE 35700 //最大短讯长度
  '
  '#define ACK_SUCCESS 0 //ACK执行正确
  '
  '#define SM_PRI_PRIOR 1 //优先级别
  '#define SM_PRI_DEFAULT 0 //缺省
  '
  '#define SM_DCS_DEFAULT 0x00 //缺省(7位)
  '#define SM_DCS_ASC 0x04 //英文(不被手机支持)
  '#define SM_DCS_CHINA 0x08 //中文(会被转化成UCS2)
  '
  '#define SM_UDHI_DEFAULT 0 //UD是正常字符串
  '#define SM_UDHI_STRUCTURE 1 //UD是结构
  '
  '#define CHINA_ERRSTR 0X40000000 //返回汉字的错误字符串
  '
  '#define SMSCERR_BEGIN 10000
  '
  '
  'Enum DLL_RETURN
  '{
  ' E_SUCCESS = 0, //成功
  '
  ' //IFSendAndAnswer函数的返回值
  ' E_NOT_INITIALIZED, //INTERFACE没有初始化
  ' E_ACK_COMMAND_ERROR, //回包命令字错误
  ' E_NEWMEMORY_ERROR, //分配内存错误
  ' E_OTHER_ERROR, //其他错误
  '
  ' E_SA_BUFF_TOOBIG, //SEND缓冲区太大
  ' E_SA_POCKET_UNINTEGRATE, //SEND包不完整
  ' E_SA_PROTOCOL_ERROR, //协议错
  ' E_SA_PROTOCOL_NO_SUPPORT, //协议不支持该格式
  ' E_SA_CODE_OTHER_ERROR, //编码其他错误
  ' E_SA_TIMEOUT, //传送超时
  ' E_SA_NO_ENOUGH_BUFFER, //接收缓冲区不够大
  ' E_SA_WAITFAILED, //等待失败
  ' E_SA_SEND_FAILED, //发送失败
  '
  ' //SUBMIT函数的返回值
  ' E_SUBMIT_ORGADDR_ERROR, //源地址错误
  ' E_SUBMIT_DESTADDR_ERROR, //目的地址错误
  ' E_SUBMIT_SCHEDULE_ERROR, //参数定时时间错误
  ' E_SUBMIT_EXPIRE_ERROR, //参数超时时间错误
  ' E_SUBMIT_DCS_ERROR, //参数DCS错误
  ' E_SUBMIT_DCS_CONVERT_ERROR, //数据变换错误
  ' E_SUBMIT_UDHI_ERROR, //参数UDHI错误
  ' E_SUBMIT_UD_ERROR, //用户数据错误
  ' E_SUBMIT_OVER_MO, //超过最大提交数
  ' E_SUBMIT_OVER_MT, //超过最大下发数
  ' E_SUBMIT_INVALID_USER, //无效用户,或者用户无权
  ' E_SUBMIT_INVALID_DATA_FORMAT, //无效数据格式
  ' E_SUBMIT_ADDR_ERROR, //地址错误
  ' E_SUBMIT_CREATE_MESSAGE_ERROR, //生成短讯错误
  '
  ' //QuerySMStatus函数返回值
  ' E_QUERYSMSTATUS_SM_NOT_EXIST, //短讯不存在
  ' E_QUERYSMSTATUS_SM_OTHER_ERR, //查询其他错误
  ' E_QUERYSMSTATUS_ADDR_ERROR, //地址错误
  '
  ' //QuerySMDetail函数返回值
  ' E_QUERYSMDETAIL_SM_DETAILS_ZERO, //查询不到此
  ' E_QUERYSMDETAIL_SM_DETAILS_FAIL, //查询失败
  ' E_QUERYSMDETAIL_CONVERT_ERROR, //用户数据编码出错
  ' E_QUERYSMDETAIL_LEN_ERROR, //LEN参数出错
  ' E_QUERYSMDETAIL_SM_ADDR_ERROR, //地址错误
  '
  ' //CancelSM函数返回值
  ' E_CANCELSM_ACK_STATUS_ERROR, //回包的STATUS指示出错
  '
  ' //ReplaceSM函数返回值
  ' E_REPLACESM_ORGADDR_ERROR, //源地址错误
  ' E_REPLACESM_SCHEDULE_ERROR, //定时数据错误
  ' E_REPLACESM_EXPIRE_ERROR, //超时数据错误
  ' E_REPLACESM_DCS_ERROR, //DCS错误
  ' E_REPLACESM_DCS_CONVERT_ERROR, //用户数据编码出错
  ' E_REPLACESM_UD_ERROR, //用户数据错误
  ' E_REPLACESM_SM_WORKING, //短讯正在下发
  ' E_REPLACESM_SM_ADDR_ERROR, //短讯地址错误
  ' E_REPLACESM_SM_INVALID_SOURCE_ADDR, //无效的源地址
  ' E_REPLACESM_SM_NO_SUCH_SM, //没有指定的短讯
  ' E_REPLACESM_SM_INVALID_DATA_TYPE, //无效数据类型
  ' E_REPLACESM_SM_FAIL, //替换失败
  '
  ' E_QUERYSMS_DIR_ERROR, //参数DIR错
  ' E_QUERYSMS_ADDR_ERROR, //参数用户地址错误
  ' E_QUERYSMS_DATETIME_ERROR, //参数开始时间错误
  ' E_QUERYSMS_FINATIME_ERROR, //参数结束时间错误
  ' E_QUERYSMS_NUMBER_ERROR, //参数查询条数错误
  ' E_QUERYSMS_ACK_STATUS_ERROR, //回包的STATUS指示出错
  '
  ' E_ADDSUB_SUBID_ERROR, //参数用户号码错误
  ' E_ADDSUB_SUBNAME_ERROR, //参数用户姓名错误
  ' E_ADDSUB_SUBADDRESS_ERROR, //参数用户地址错误
  ' E_ADDSUB_PASSWORD_ERROR, //参数用户密码错误
  ' E_ADDSUB_USER_ALREADY_EXIST, //用户已经存在
  ' E_ADDSUB_ADD_USER_FAIL, //添加用户失败
  '
  ' E_DELETESUB_SUBID_ERROR, //参数用户号码错误
  ' E_DELETESUB_USER_NOT_EXIST, //用户不存在
  ' E_DELETESUB_USER_DEL_FAIL, //删除用户失败
  '
  ' E_MODIFYSUB_SUBID_ERROR, //参数用户号码错误
  ' E_MODIFUSUB_SUBNAME_ERROR, //参数用户姓名错误
  ' E_MODIFYSUB_SUBADDRESS_ERROR, //参数用户地址错误
  ' E_MODIFYSUB_PASSWORD_ERROR, //参数用户密码错误
  ' E_MODIFYSUB_FAIL, //修改用户失败
  ' E_MODIFYSUB_SUB_NOT_EXIST, //用户不存在
  '
  ' E_ENQUIRESUB_SUBID_ERROR, //参数用户号码错误
  ' E_ENQUIRESUB_USER_NOT_EXIST, //用户不存在
  '
  ' E_ENQUIRELINK_ERROR, //握手失败
  '
  ' E_DLVSM_GETDATA_FAILED, //GETDATA失败
  ' E_DLVSM_DCS_ERROR, //解码出错
  '
  ' E_NO_RIGHT, //没有权限
  '
  ' E_REPLACE_UDHI_ERROR, //REPLACE UDHI invalid
  '
  ' E_QUERYSMDETAIL_INVLDLEN, // QUERYSMDETAIL LEN INVALID
  '
  ' E_PPSCHECKTIMEOUT = 200, //PPS用户鉴权超时
  ' E_PPSUSERCHECKERR, //PPS用户鉴权失败
  ' E_PPSUSERCHECKSENDERR, //PPS用户鉴权发送失败
  ' E_PPSRESULTNOTIFYTIMEOUT, //通知超时
  ' E_PPSRESULTNOTIFYACKERR, //通知客户端返回错误
  ' E_PPSRESULTNOTIFYTMPERR, //通知临时错误
  ' E_PPSRESULTNOTIFYSERIOUSERR, //通知严重错误
  '
  '
  '};
  '/*
  'Enum ROUTE_RETURN
  '{
  ' E_SUCCESS = 0,
  '
  ' //interfacemanager error code
  ' E_ACCESSERR, //接入码错误
  ' E_CALLERERR, //主叫错误 *
  ' E_ACCOUNTERR, //帐号指针不符 *
  ' E_SMTYPEERR, //SmType错误 *
  ' E_NEWACCOUNTFAIL, //生成帐号对象失败 *
  ' E_ACCOUNTNAMEERR, //帐号名错,查无此帐号 *
  ' E_CODETYPEERR, //编码类型错
  ' E_CREATEIFFAIL, //生成IF对象失败
  ' E_BEYONDMAXIFNUM, //超过INTERFACEMANAGER的最大IF数
  ' E_INVALIDIFID, //无效的IF的ID
  ' E_ACCOUNTPASSWORDERR, //帐号的密码错误
  ' E_NORIGHT, //没有权限
  ' E_PIDERR, //PID错误
  ' E_INVALIDROUTETABLE, //无效的ROUTETABLE *
  '
  ' E_CANNOTFINDIF, //通过HDRV不能找到IF *
  ' E_PARAMERR, //参数错
  ' E_STATUSERR, //状态错误
  '
  ' E_NEWIFERR, //生成IF错误
  ' E_NEWDRVERR, //生成DRV错误
  '
  ' //routetable
  ' E_INVALIDACCOUNT, //无效的ACCOUNT *
  '
  ' //account error code
  ' //E_BEYONDACCOUNTMAXIFNUM,
  ' E_INVALIDIF,
  ' //E_ROUTEERR,
  '
  ' E_NOSUBMITRIGHT,
  ' E_NODELIVERRIGHT,
  ' E_CHECKTYPEERR, //鉴权类型错误
  ' E_NUMREPEAT, //号段重复
  ' E_NOTHISNUM, //没有指定的号段
  '
  ' E_PPSCHECKTIMEOUT = 200, //PPS用户鉴权超时
  ' E_PPSUSERCHECKERR, //PPS用户鉴权失败
  ' E_PPSUSERCHECKSENDERR, //PPS用户鉴权发送失败
  ' E_PPSRESULTNOTIFYTIMEOUT, //通知超时
  ' E_PPSRESULTNOTIFYACKERR, //通知客户端返回错误
  ' E_PPSRESULTNOTIFYTMPERR, //通知临时错误
  ' E_PPSRESULTNOTIFYSERIOUSERR, //通知严重错误
  '
  '};
  '*/
  '
  'BOOL WINAPI IFInitInterface(
  ' DWORD dwCodeProtocol, //编码协议
  ' DWORD dwDriverProtocol, //通讯协议
  ' LPCTSTR pDriverParam //通讯参数
  ' );
  '
  Public Declare Function IFInitinterface Lib "smeidll.dll" (ByVal dwCodeProtocol As Long, _
   ByVal dwDriverPorotocol As Long, _
   ByVal pDriverParam As String) As Long
  'int WINAPI IFSendAndAnswer(
  ' LPVOID pSndBuf, //发送缓冲区
  ' int SndSize, //发送缓冲区大小
  ' LPVOID pRevBuf, //接收缓冲区
  ' int* RevSize, //接收缓冲区大小
  ' DWORD timeout //超时时间
  ' );
  '
  Public Declare Function IFSendAndAnswer Lib "smeidll.dll" (pSndBuf As Any, _
   ByVal SndSize As Long, _
   pRevBuf As Any, _
   ByVal RevSize As Long, _
   ByVal timeout As Long) As Long
  'BOOL WINAPI IFSetOnRead(
  ' LP_READ_BACK pReadFun, //回调函数指针
  ' HANDLE hReadUser //回调句柄
  ' );
  '
  Public Declare Function IFSetOnRead Lib "smeidll.dll" (pReadFun As Any, _
   ByVal hReadUser As Long) As Long
  'BOOL WINAPI IFSetOnError(
  ' LP_ERROR_BACK pErrorFun, //回调函数指针
  ' HANDLE hErrorUser //回调句柄
  ' );
  '
  Public Declare Function IFSetOnError Lib "smeidll.dll" (pErrorFun As Any, _
   ByVal hErrorUser As Long) As Long
  'BOOL WINAPI IFExitInterface();
  Public Declare Function IFExitInterface Lib "smeidll.dll" () As Long
  '
  'BOOL WINAPI LoginA(
  ' unsigned long ulBindType, //BIND类型, 0表示BIND_TRANSMITER, 1表示BIND_RECIEVER
  ' LPCTSTR SystemID, //用户标识 char [MAX_SMEI_SYSTEMID]
  ' LPCTSTR Password, //密码 char[MAX_SMEI_PASSWORD]
  ' LPCTSTR system_type, //系统类型 char[13]
  ' unsigned long ulInterface_version, //接口类型
  ' unsigned char ucAddr_TON, //号码类型
  ' unsigned char ucAddr_NPI, //编码方案
  ' LPCTSTR Address_range //地址类型
  ' );
  '
  Public Declare Function LoginA Lib "smeidll.dll" (ByVal ulBindType As Long, _
   ByVal SystemID As String, _
   ByVal Password As String, _
   ByVal system_type As String, _
   ByVal ulInterface_version As Long, _
   ByVal ucAddr_TON As Byte, _
   ByVal ucAddr_NPI As Byte, _
   ByVal Address_range As String) As Long
  
  'BOOL WINAPI Login(
  ' LPCTSTR SystemID, //用户标识 char [MAX_SMEI_SYSTEMID]
  ' LPCTSTR Password //密码 char[MAX_SMEI_PASSWORD]
  ' );
  '
  Public Declare Function Login Lib "smeidll.dll" (ByVal SystemID As String, _
   ByVal Password As String) As Long
  'BOOL WINAPI Login_R(LPCTSTR SystemID, //用户标识 char [MAX_SMEI_SYSTEMID]
  ' LPCTSTR Password //密码 char[MAX_SMEI_PASSWORD]
  ' );
  '
  Public Declare Function Login_R Lib "smeidll.dll" (ByVal SystemID As String, _
   ByVal Password As String) As Long
  'BOOL WINAPI Logout();
  Public Declare Function Logout Lib "smeidll.dll" () As Long
  '
  'int WINAPI SubmitSM(
  ' unsigned char OrgTON, //源地址号码类型
  ' unsigned char OrgNPI, //源地址编码方案
  ' LPCTSTR OrgAddr, //源地址 char[MAX_ADDR_LEN]
  ' unsigned char DestTON, //目标地址号码类型
  ' unsigned char DestNPI, //目标地址编码方案
  ' LPCTSTR DestAddr, //目标地址 char[MAX_ADDR_LEN]
  ' unsigned char PRI, //SM优先级
  ' unsigned char DCS, //数据编码方案
  ' LPCTSTR Schedule, //定时 char[MAX_TIMESTAMP_LEN]
  ' LPCTSTR Expire, //超时时间 char[MAX_TIMESTAMP_LEN]
  ' unsigned long Default_ID, //缺省短消息
  ' unsigned char UDHI, //1表示UD为一个结构,0表示缺省
  ' unsigned long UDLen, //表示UD的长度
  ' LPCTSTR UserData, //用户信息,短消息正文
  ' unsigned long* SM_ID, //返回:短消息ID
  ' unsigned char* FCS //返回:失败原因
  ' );
  '
  Public Declare Function SubmitSM Lib "smeidll.dll" (ByVal OrgTON As Byte, _
   ByVal OrgNPI As Byte, _
   ByVal OrgAddr As String, _
   ByVal DestTON As Byte, _
   ByVal DestNPI As Byte, _
   ByVal DestAddr As String, _
   ByVal PRI As Byte, _
   ByVal DCS As Byte, _
   ByVal Schedule As String, _
   ByVal Expire As String, _
   ByVal Default_ID As Long, _
   ByVal UDHI As Byte, _
   ByVal UDLen As Long, _
   ByVal UserData As String, _
   ByVal sm_id As Long, _
   ByVal FCS As String) As Long
  
  'int WINAPI VPSubmitSM(
  ' LPCTSTR OrgAddr, //源地址 char[MAX_ADDR_LEN]
  ' LPCTSTR DestAddr, //目标地址 char[MAX_ADDR_LEN]
  ' LPCTSTR Schedule, //定时 char[MAX_TIMESTAMP_LEN]
  ' LPCTSTR Expire, //超时时间 char[MAX_TIMESTAMP_LEN]
  ' unsigned long Default_ID, //缺省短消息
  ' LPCTSTR UserData, //用户信息,短消息正文
  ' unsigned long* SM_ID //返回:短消息ID
  ' );
  '
  Public Declare Function VPSubmigSM Lib "smeidll.dll" (ByVal OrgAddr As String, _
   ByVal DestAddr As String, _
   ByVal Schedule As String, _
   ByVal Expire As String, _
   ByVal Default_ID As Long, _
   ByVal UserData As String, _
   ByVal sm_id As Long) As Long
  
  'int WINAPI QuerySMStatus(
  ' unsigned long SM_ID, //短消息ID
  ' unsigned char* OrgTON, //返回:源地址号码类型
  ' unsigned char* OrgNPI, //返回:源地址编码方案
  ' LPTSTR OrgAddr, //返回:源地址 char[MAX_ADDR_LEN]
  ' unsigned char* DestTON, //返回:目标地址号码类型
  ' unsigned char* DestNPI, //返回:目标地址编码方案
  ' LPTSTR DestAddr, //返回:目标地址 char[MAX_ADDR_LEN]
  ' LPTSTR Final_Date, //返回:最后时间 char[MAX_TIMESTAMP_LEN]
  ' unsigned char* SM_Status, //返回:短消息状态
  ' //0 : WAITING_FOR_DELIVER 表示等待发送
  ' //1 : DELIVER_SUCCESS 表示成功发送
  ' //2 : DELIVER_FAIL 表示发送失败
  ' unsigned char* Error_Code //返回:错误代码
  ' );
  Public Declare Function QuerySMStatus Lib "smeidll.dll" (ByVal sm_id As Long, _
   ByVal OrgTON As String, _
   ByVal OrgNPI As String, _
   ByVal OrgAddr As String, _
   ByVal DestTON As String, _
   ByVal DestNPI As String, _
   ByVal DestAddr As String, _
   ByVal Final_Date As String, _
   ByVal SM_Status As Byte, _
   ByVal Error_Code As String) As Long
  
  
  '
  'int WINAPI QuerySMDetail(
  ' unsigned long SM_ID, //短消息ID
  ' unsigned char *OrgTON, //返回:源地址号码类型
  ' unsigned char *OrgNPI, //返回:源地址编码方案
  ' LPTSTR OrgAddr, //返回:源地址 char[MAX_ADDR_LEN]
  ' unsigned char* DestTON, //返回:目标地址号码类型
  ' unsigned char* DestNPI, //返回:目标地址编码方案
  ' LPTSTR DestAddr, //返回:目标地址 char[MAX_ADDR_LEN]
  ' unsigned char* PRI, //返回:SM优先级
  ' unsigned char* DCS, //返回:数据编码方案
  ' LPTSTR Schedule, //返回:定时 char[MAX_TIMESTAMP_LEN]
  ' LPTSTR Expire, //返回:超时时间 char[MAX_TIMESTAMP_LEN]
  ' LPTSTR Final, //返回:最后时间 char[MAX_TIMESTAMP_LEN]
  ' unsigned char* SM_Status, //返回:短消息状态, 返回值定义同QuerySMStatus.
  ' unsigned char* Error_Code, //返回:错误代码
  ' unsigned long Len, //接收短消息长度,User_Data的大小不能小于此数
  ' LPTSTR User_Data //返回:短消息文本
  ' );
  Public Declare Function QuerySMDetail Lib "smeidll.dll" (ByVal sm_id As Long, _
   ByVal OrgTON As String, _
   ByVal OrgNPI As String, _
   ByVal OrgAddr As String, _
   ByVal DestTON As String, _
   ByVal DestNPI As String, _
   ByVal DestAddr As String, _
   ByVal PRI As Byte, _
   ByVal DCS As Byte, _
   ByVal Schedule As String, _
   ByVal Expire As String, _
   ByVal Final As String, _
   ByVal SM_Status As String, _
   ByVal Error_Code As String, _
   ByVal Leng As Long, _
   ByVal User_Data As String) As Long
  '
  'int WINAPI CancelSM(
  ' unsigned long SM_ID //短消息ID
  ' );
  Public Declare Function CancelSM Lib "smeidll.dll" (ByVal sm_id As Long) As Long
  '
  'int WINAPI ReplaceSM(
  ' unsigned long SM_ID, //短消息ID
  ' unsigned char OrgTON, //源地址号码类型
  ' unsigned char OrgNPI, //源地址编码方案
  ' LPCTSTR OrgAddr, //源地址 char[MAX_ADDR_LEN]
  ' LPCTSTR Schedule, //定时 char[MAX_TIMESTAMP_LEN]
  ' LPCTSTR Expire, //超时时间 char[MAX_TIMESTAMP_LEN]
  ' unsigned char DCS, //数据编码方案
  ' unsigned long Default_ID, //缺省短消息
  ' unsigned long UDL,
  ' LPCTSTR UserData //用户信息,短消息正文
  ' );
  '
  Public Declare Function ReplaceSM Lib "smeidll.dll" (ByVal sm_id As Long, _
   ByVal OrgTON As Byte, _
   ByVal OrgNPI As Byte, _
   ByVal OrgAddr As String, _
   ByVal Schedule As String, _
   ByVal Expire As String, _
   ByVal DCS As Byte, _
   ByVal Default_ID As Long, _
   ByVal UDL As Long, _
   ByVal User_Data As String) As Long
  
  'int WINAPI QuerySMS(
  ' unsigned char Dir, //0:按源地址 1:按目标地址
  ' unsigned char TON,
  ' unsigned char NPI,
  ' LPCTSTR Addr,
  ' LPCTSTR DateTime, //开始时间
  ' LPCTSTR FinaTime, //结束时间
  ' unsigned char* Number, //要查询的条数
  ' unsigned char* status,
  ' unsigned long* sm_id
  ' );
  '
  Public Declare Function QuerySMS Lib "smeidll.dll" (ByVal Dir As Byte, _
   ByVal TON As Byte, _
   ByVal NPI As Byte, _
   ByVal Addr As String, _
   ByVal DateTime As String, _
   ByVal FinalTime As String, _
   ByVal Number As String, _
   ByVal status As String, _
   ByVal sm_id As Long) As Long
  'int WINAPI AddSubscriber(
  ' unsigned char TON, //号码类型
  ' unsigned char NPI, //编码方案
  ' LPCTSTR SubID, //用户标识 char[MAX_ADDR_LEN]
  ' LPCTSTR SubName, //用户姓名 char[MAX_ADDR_LEN]
  ' LPCTSTR SubAddress, //用户(通讯)地址 char[MAX_SUB_ADDRESS]
  ' unsigned char MsType, //手机类型
  ' unsigned long Service, //服务级别(未定义)
  ' unsigned char bSM, //是否提供短消息服务
  ' unsigned long OCOS, //最大下发数
  ' unsigned long TCOS, //最大提交数
  ' unsigned short Reserve, //保留
  ' LPCTSTR Password //密码 char [MAX_PASSWORD]
  ' );
  '
  'int WINAPI DeleteSubscriber(
  ' LPCTSTR SubID //用户标识 char[MAX_ADDR_LEN]
  ' );
  '
  'int WINAPI ModifySubscriber(
  ' unsigned char TON, //号码类型
  ' unsigned char NPI, //编码方案
  ' LPCTSTR SubID, //用户标识 char[MAX_ADDR_LEN]
  ' LPCTSTR SubName, //用户姓名 char[MAX_ADDR_LEN]
  ' LPCTSTR SubAddress, //用户地址 char[MAX_SUB_ADDRESS]
  ' unsigned char MsType, //手机类型
  ' unsigned long Service, //服务级别
  ' unsigned char bSM, //是否提供短消息服务
  ' unsigned long OCOS, //最大下发数
  ' unsigned long TCOS, //最大提交数
  ' LPCTSTR Password //密码 char [MAX_PASSWORD]
  ' );
  '
  'int WINAPI EnquireSubscriber(
  ' LPCTSTR SubID, //用户标识
  ' unsigned char* TON, //返回:号码类型
  ' unsigned char* NPI, //返回:编码方案
  ' LPTSTR SubName, //返回:用户姓名 char[MAX_ADDR_LEN]
  ' LPTSTR SubAddress, //返回:用户地址 char[MAX_SUB_ADDRESS]
  ' unsigned long* Service, //返回:服务级别
  ' unsigned char* bSM, //返回:是否提供短消息服务
  ' unsigned long* OCOS, //返回:最大下发数
  ' unsigned long* TCOS, //返回:最大提交数
  ' LPTSTR Password //返回:密码 char [MAX_PASSWORD]
  ' );
  '
  'int WINAPI EnquireLink();
  '
  'int WINAPI HasDeliverMessage(
  ' DWORD dwTimeOut //超时时间,单位毫秒
  ' );
  '
  'int WINAPI GetDeliverSM(
  ' ULONG* sm_ID, //返回:短讯ID
  ' unsigned char* DestTON, //返回:目标地址号码类型
  ' unsigned char* DestNPI, //返回:目标地址编码方案
  ' char* DestAddr, //返回:目标地址
  ' unsigned char* OrgTON, //返回:源地址号码类型
  ' unsigned char* OrgNPI, //返回:源地址编码方案
  ' char* OrgAddr, //返回:源地址
  ' unsigned char* PRI, //返回:优先权
  ' unsigned char* PID, //返回:协议类型
  ' unsigned char* DCS, //返回:编码方案
  ' char* TimeStamp, //返回:下发时间
  ' char* UserData //返回:用户数据
  ' );
  '
  'int WINAPI VPModifySubPassword(
  ' LPCTSTR SubID, //用户标识 char[MAX_ADDR_LEN]
  ' LPCTSTR Password //密码 char [MAX_PASSWORD]
  ' );
  '
  'int WINAPI GetErrorString(
  ' int iErrorNum, //错误代码
  ' int iBuffSize, //缓冲区大小
  ' char* lpszBuff //缓冲区指针
  ' );
  '
  'int WINAPI GetSMStatusString(
  ' DWORD dwStatus, // 状态值
  ' int iBuffLen, // 缓冲区大小
  ' char* lpszBuff // 缓冲区指针
  ' );
  '
  'int WINAPI SubmitA(
  ' unsigned char OrgTON, //源地址号码类型
  ' unsigned char OrgNPI, //源地址编码方案
  ' LPCTSTR OrgAddr, //源地址 char[MAX_ADDR_LEN]
  ' unsigned char DestTON, //目标地址号码类型
  ' unsigned char DestNPI, //目标地址编码方案
  ' LPCTSTR DestAddr, //目标地址 char[MAX_ADDR_LEN]
  ' unsigned char PRI, //SM优先级
  ' unsigned char RD, //当源地址和目的地址相同时,是否替换存在的短消息。
  ' unsigned char RP, //回应路径
  ' unsigned char SRR, //是否需要状态报告
  ' unsigned char MR, //消息索引
  ' unsigned char DCS, //数据编码方案
  ' unsigned char PID, //协议类型
  ' LPCTSTR Schedule, //定时 char[MAX_TIMESTAMP_LEN]
  ' LPCTSTR Expire, //超时时间 char[MAX_TIMESTAMP_LEN]
  ' unsigned long Default_ID, //缺省短消息
  ' unsigned char UDHI, //1表示UD为一个结构,0表示缺省
  ' unsigned long UDLen, //表示UD的长度
  ' LPCTSTR UserData, //用户信息,短消息正文
  ' unsigned long* SM_ID, //返回:短消息ID
  ' unsigned char* FCS //返回:失败原因
  ' );
  '
  'int WINAPI VPSubmitA(
  ' LPCTSTR OrgAddr, //源地址 char[MAX_ADDR_LEN]
  ' LPCTSTR DestAddr, //目标地址 char[MAX_ADDR_LEN]
  ' unsigned char PID, //协议类型
  ' unsigned char DCS, //编码方案
  ' LPCTSTR Schedule, //定时 char[MAX_TIMESTAMP_LEN]
  ' LPCTSTR Expire, //超时时间 char[MAX_TIMESTAMP_LEN]
  ' unsigned long Default_ID, //缺省短消息
  ' LPCTSTR UserData, //用户信息,短消息正文
  ' unsigned long* SM_ID //返回:短消息ID
  ' );
  '
  'int WINAPI GSMConvertTextToData(
  ' LPCSTR pString, //需要变换的源字符串指针
  ' unsigned char nDCS, //指定变换的编码方案
  ' unsigned char* pData, //接收缓冲区指针
  ' unsigned long* nLen //用户数据的大小的指针,此是SUBMIT中UDL字段的长度,不是字节长度
  ' );
  '
  'int WINAPI GSMConvertDataToText(
  ' unsigned char* pData, //编码后的数据
  ' unsigned long nLen, //编码数据的实际大小,此项为协议的UDL项。
  ' unsigned char nDCS, //编码数据的编码方案
  ' unsigned char nUDHI, //协议的UDHI项,是否有结构头。
  ' char* pString //解码的字符串缓冲区指针
  ' );
  '
  'int WINAPI QuerySubscriber(
  ' LPCTSTR SubID, //用户标识
  ' unsigned char* TON, //返回:号码类型
  ' unsigned char* NPI, //返回:编码方案
  ' LPTSTR SubName, //返回:用户姓名 char[MAX_ADDR_LEN]
  ' LPTSTR SubAddress, //返回:用户地址 char[MAX_SUB_ADDRESS]
  ' unsigned char* MsType, //返回:手机类型
  ' unsigned long* Service, //返回:服务级别
  ' unsigned char* bSM, //返回:是否提供短消息服务
  ' unsigned long* OCOS, //返回:最大下发数
  ' unsigned long* TCOS, //返回:最大提交数
  ' LPTSTR Password, //返回:密码 char [MAX_PASSWORD]
  ' LPTSTR RegTime //返回:注册时间 char[20]
  ' );
  '
  'int WINAPI QuerySMStatusA(
  ' unsigned long SM_ID, //短消息ID
  ' unsigned char OrgTON, //源地址号码类型
  ' unsigned char OrgNPI, //源地址编码方案
  ' LPCTSTR OrgAddr, //源地址 char[MAX_ADDR_LEN]
  ' unsigned char* DestTON, //返回:目标地址号码类型
  ' unsigned char* DestNPI, //返回:目标地址编码方案
  ' LPTSTR DestAddr, //返回:目标地址 char[MAX_ADDR_LEN]
  ' LPTSTR Final_date, //返回:最后时间 char[MAX_TIMESTAMP_LEN]
  ' unsigned char* SM_Status, //返回:短消息状态
  ' //0 : WAITING_FOR_DELIVER 表示等待发送
  ' //1 : DELIVER_SUCCESS 表示成功发送
  ' //2 : DELIVER_FAIL 表示发送失败
  ' unsigned char* Error_Code //返回:错误代码
  ' );
  '
  'int WINAPI CancelSMA(
  ' char cService_type, //参见GSM3.39说明
  ' unsigned long SM_ID, //短消息ID
  ' unsigned char OrgTON, //源地址号码类型
  ' unsigned char OrgNPI, //源地址编码方案
  ' LPCTSTR OrgAddr, //源地址 char[MAX_ADDR_LEN]
  ' unsigned char DestTON, //目标地址号码类型
  ' unsigned char DestNPI, //目标地址编码方案
  ' LPCTSTR DestAddr //目标地址 char[MAX_ADDR_LEN]
  ' );
  '
  'int WINAPI ReplaceSMEx(
  ' unsigned long SM_ID,
  ' unsigned char OrgTON,
  ' unsigned char OrgNPI,
  ' LPCTSTR OrgAddr,
  ' LPCTSTR Schedule,
  ' LPCTSTR Expire,
  ' unsigned char SRR,
  ' unsigned char DCS,
  ' unsigned char UDHI,
  ' unsigned long Default_ID,
  ' unsigned long UDLen,
  ' LPCTSTR UserData
  ' );
  '
  'int WINAPI QuerySMDetailEx(
  ' unsigned long SM_ID,
  ' unsigned char* OrgTON,
  ' unsigned char* OrgNPI,
  ' LPTSTR OrgAddr,
  ' unsigned char* DestTON,
  ' unsigned char* DestNPI,
  ' LPTSTR DestAddr,
  ' unsigned char* PRI,
  ' unsigned char* RD,
  ' unsigned char* RP,
  ' unsigned char* UDHI,
  ' unsigned char* SRR,
  ' unsigned char* MR,
  ' unsigned char* PID,
  ' unsigned char* DCS,
  ' LPTSTR Schedule,
  ' LPTSTR Expire,
  ' LPTSTR Final,
  ' unsigned char* SM_Status,
  ' unsigned char* Error_Code,
  ' unsigned long* Len,
  ' LPTSTR User_Data
  ' );
  '
  'int WINAPI GetDeliverSMEx(
  ' ULONG* sm_ID, //返回:短讯ID
  ' unsigned char* DestTON, //返回:目标地址号码类型
  ' unsigned char* DestNPI, //返回:目标地址编码方案
  ' char* DestAddr, //返回:目标地址
  ' unsigned char* OrgTON, //返回:源地址号码类型
  ' unsigned char* OrgNPI, //返回:源地址编码方案
  ' char* OrgAddr, //返回:源地址
  ' unsigned char* PRI, //返回:优先权
  ' unsigned char* RP,
  ' unsigned char* UDHI,
  ' unsigned char* PID, //返回:协议类型
  ' unsigned char* DCS, //返回:编码方案
  ' char* TimeStamp, //返回:下发时间
  ' unsigned long * UDLen,
  ' char* UserData //返回:用户数据
  ' );
  '//2000.12.12 钟CD 增加状态功能
  'int WINAPI GetDeliverSMExEx(
  ' ULONG* sm_ID, //返回:短讯ID
  ' unsigned char* DestTON, //返回:目标地址号码类型
  ' unsigned char* DestNPI, //返回:目标地址编码方案
  ' char* DestAddr, //返回:目标地址
  ' unsigned char* OrgTON, //返回:源地址号码类型
  ' unsigned char* OrgNPI, //返回:源地址编码方案
  ' char* OrgAddr, //返回:源地址
  ' unsigned char* PRI, //返回:优先权
  ' unsigned char* RP,
  ' unsigned char* UDHI,
  ' unsigned char* PID, //返回:协议类型
  ' unsigned char* DCS, //返回:编码方案
  ' char* TimeStamp, //返回:下发时间
  ' unsigned long * UDLen,
  ' char* UserData, //返回:用户数据
  ' unsigned char* StatusReport //返回:状态报告标志,0表示不是状态报告,1:表示为状态报告
  ' );
  '
  '
  '#End If
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:157325次
    • 积分:1627
    • 等级:
    • 排名:千里之外
    • 原创:44篇
    • 转载:13篇
    • 译文:0篇
    • 评论:24条
    最新评论
    友情链接