gsm modem开发库使用手册.txt

喜欢工业短信 modem的朋友福音 喜欢工业短信 modem的朋友福音

深圳市威尔西科技开发有限公司
开发包文件： 
Mysms.dll（Release 版） 
Mysms.lib（Release 版） 
开发包版本： 
5.0.0.0 
开发环境： 
MS VC 6.0 
Windows9.x/2000/NT 
使用环境： 
VC、VB、Jave、Delphi 等
VC 开发说明： 
// 需要添加以下代码连接短信息开发库
#pragma comment(lib,"Mysms.lib") 
_declspec(dllexport) BOOL _stdcall InitModem(int comport, int baud); 
_declspec(dllexport) BOOL _stdcall SendSms(int comport, int baud, char* sMessage, char* 
sSendTo, BOOL bEnglishSm, BOOL bAlertSm, BOOL bSR); 
_declspec(dllexport) BOOL _stdcall ReadSms(int comport, int baud, int nIndex, char* sMessage, 
char* sFrom, char* sTime, BOOL bDel); 
GSM MODEM 开发库使用手册
开发包流程示意图
-1- _declspec(dllexport) BOOL _stdcall Dail(int comport, int baud, char* sTo, char* sFile); 
_declspec(dllexport) BOOL _stdcall HangUp(int comport, int baud); 
_declspec(dllexport) BOOL _stdcall SendAtCommand(int comport, int baud, char* sCmd, char* 
sEcho, int nLen); 
_declspec(dllexport) BOOL _stdcall SendWapPush(int comport, int baud, char* strMessage, char* 
strUrl, char* strSendTo); 
初始化设备
//初始化设备
InitModem(端口号，波特率); 
发送信息
SendSms(端口号，波特率，内容，对方号码，英文信息，免提信息，状态报告); 
SendSms(3, 115200, "hi", "86139*******", FALSE, FALSE)) 
英文信息可容纳160 个英文字母，但不能发送中文。若要发送免提信息，则不能使用英文信
息标志。
读取信息
ReadSms(int 端口号, int 波特率, int 信息编号, char* 短信内容, char* 对方号码, char* 接受
时间BOOL 读取后是否删除) 
信息编号一般取值范围1-25，一般应用可轮询前5 条(信息编码1-5)信息即可
振铃
Dail(int 端口, int 波特率, char* 对方号码, char * 音频文件) 
挂机
HangUp(int 端口, int 波特率) 
发送AT 指令
SendAtCommand（int 端口，int 波特率，char * AT 指令, char * 返回字符缓冲区, int 缓冲区
长度） 
发送WapPush 
SendWapPush(int comport, int baud, char* strMessage, char* strUrl, char* strSendTo) 
VB 代码片断： 
Private Declare Function InitModem Lib "Mysms.dll" (ByVal comport As Long, ByVal Baud As 
Long) As Boolean 
Private Declare Function SendSms Lib "Mysms.dll" (ByVal comport As Long, ByVal Baud As 
Long, ByVal sMessage As String, ByVal sTo As String, ByVal bEnglish As Boolean, ByVal bAlert 
As Boolean, ByVal bSr As Boolean) As Boolean 
发布： 
确保Mysms.dll 发布在系统目录或者当前目录
-2- 

Private Declare Function ReadSms Lib "Mysms.dll" (ByVal comport As Long, ByVal Baud As 
Long, ByVal Index As Long, ByVal sMessage As String, ByVal sFrom As String, ByVal bDel As 
Boolean) As Boolean 
Private Sub Reader_Click() 
Dim Port 
Dim Baud 
Dim iIndex 
Dim Result 
Dim sMessage As String * 255 
Dim sFrom As String * 255 
Port = 1 
Baud = 115200 
iIndex = 3 
Result = ReadSms(Port, Baud, iIndex, sMessage, sFrom, False) 
MsgBox (sMessage) 
End Sub 
Private Sub SENDER_Click() 
Dim Port 
Dim Baud 
Dim Result 
Port = 1 
Baud = 115200 
Result = InitModem(Port, Baud) 
Result = SendSms(Port, Baud, "你好, VB 调用有DLL 测试", "13651478222", False, False, False) 
End Sub 
要点： 
1、InitModem 函数用来监测和初始化GSM/GPRS MODEM 设备，使之处于正确的工作状
态，用户设计程序时在程序初始化时调用此函数检测和初始化设备即可。
2、串口和GSM/GPRS 设备是串行设备，用户再多线程/进程中不能同时对一个GSM/GPRS 
设备进行操作，必须使用互斥元或者临界点对GSM/GPRS 设备访问。
3、本开发库使用Block（阻塞）操作模式，用户设计程序时一般须将收发信息函数调用放
入专门的工作线程/进程。
4、Char * 字符缓冲区的使用。本开发库多处使用char * 字符缓冲区，用户在调用函数时
需为字符缓冲分配号空间，并清零初始化和赋值。例如：调用SendSms 函数中需要char 
* sTo 作为参数之一，则用户需要首先为sTo 申请足够大的字符空间，然后为sTo 字符串
赋值，并将sTo 缓冲区的指针作为参数带入SendSms 函数。
-3-