gj手机短信接口控件v7.2smsgate ocx开发说明书

1、Smsgate 控件（OCX）开发说明书一、Smsgate 控件的属性属性值名称说明CommPort端（串）连接或 GSM 模块的串，默认为 1，须按你电脑的实际设置Settings端口连接速率字符串，默认为：9600,n,8,1 ，要与相一致。在不能连接时，才考虑尝试不同的连接参数！多数是用默认的9600,n,8,1 就可以。常用的可能值有：9600,n,8,1（常用） ；19200,n,8,1（常用） ；2400,n,8,1； 38400,n,8,1 ；56000,n,8,157600,n,8,1 ； 15200,n,8,1SmsService当地的中心号码字符串，默认为：“”广州移动的中

2、心号码。请严格按以上格式设置本属性（如果不知当地的中心号码，可联络当地移动或公司）ReadAndDel后是否删除信息成功后是否删除信息（默认是 true，即删除）IsBusy端口当前状态端口当前状态（Ture 表示忙，False 表示闲）sn控件码未时，发出的中带有“未”字样二、Smsgate 控件的事件命令值名称说明OnRecvMsg收到新信息收到新信息时控件产生该事件（自动接收新信息 RevAuto 为开时才有效），请在本事件中用 NewMsg 方法收到的新信息内容进，然后进行处理，如存入数据库等，详见 ReadMsg 及 RevAuto；收到新信息时，控件持续产生本事件，直到用NewMs

3、g 方法读出内容OnRevReport有发送收到发送时控件产生该事件（当发送信息时要求时才会产生本事件，见 Sendsms 方法），请在本事件中用 NewReport 方法获得的内容，详见 NewReport 方法OnCall有打进参数：PhoneNo来电的号码当前被叫时，产生本事件，可在本事件中读 PhoneNo 的值获得来电号码OnSusChange端口状态发生了变化当端口状态发生变化（即 IsBusy 属性值发生变化）时产生该事件（一般不需用到本事件，留作扩展）三、Smsgate 控件的方法命令值参数方法名称说明Connect调用方法：smsgate1. connect(waittime

4、)参数说明：waittime 等待回应的时间（秒）连接（初始化）1、成功返回“y”，否则返回失败原因2、必须在发信息等操作前先使用本方法进行连接及系统初始化3、在 waittime 设定的时间内，如果 没回应，就当连接不成功；如用数据线连接，可设 waittime 小些，如 8 ，即 8 秒；如用红外连接，建议设大些，如 18，即 18 秒，因为红外的反馈慢些。ClosePort调用方法：smsgate1. ClosePort参数说明：无参数关闭端口关闭端口并资源Link调用方法：smsgate1. Link参数说明：无参数测试当前的连接是否正常1、正常返回 True，否则返回 False2、

5、这个方法是用于在运行中，定期检查连接是否还在正常状态中3、在连接不稳定时（如红外连接时）可定时检查设备连接状态Sendsms调用方法：Sendsms (Msg,Mobile,S_report)参数说明：Msg：(字符串) 发送的内容 Mobile： (字符串) 对方号码 S_repor：(数字型)是否需发送S_repor=1 时有发送S_repor=0 时无发送PV ： 是否带有效期发信息1、 成功返回“y”，否则返回发送失败的原因2、 如果设备正忙，无法发送，返回“B”3、 发送的内容（Msg）超 70 字自动分割成多条；4、 当 PV 为 false 时，当发出时对方关机，该信息对方将收不

6、到，当 PV 为 Ture 时(默认)，只要对方在两天内开机都会收到！5、 有些地方同一卡连续发送太多时会临时发不出，一般把 PV设为 false 就可以解决这个问题！SendAsc2调用方法：SendAsc2 (AscMsg,Mobile,S_report)参数说明：同 Sendsms发二进制数据(仅高级用户使用)1、 功返回“y”，否则返回发送失败的原因2、如果设备正忙，无法发送，返回“B”2、 发送的数据长度超 140 字自动分割成多条；3、 AscMsg 必须为二进制数据4、 二进制数据的接口方法同普通，控件已自动识别ReadMsg调用方法：Smsgate1. ReadMsg (why

7、re)参数说明：whyre =0 读 未读信息 whyre =1 读 已读信息 whyre =2 读 所有信息中信息1、 成功即返回所读信息的字符串，否则返回“n”2、 如 ReadAndDel 属性为 true 时，成功后删除该信息3、 返回多条信息的字符串组成格式及调用方法见附二DelSms调用方法：Smsgate1. DelSms(del_which)参数说明：del_which=1 删除已读信息del_which=2 删除所有信息删除中指定信息1、 成功返回“y”，否则返回“n”NewMsg调用方法：Smsgate1. NewMsg参数说明：无读出自动接收到的新信息内容1、 返回新信息

8、的内容（内容的格式同 ReadMsg 方法返回的，见附二）2、 注意：本方法仅应用于 OnRecvMsg 事件中才有效NewReport调用方法：Smsgate1. NewReport参数说明：无获得发送的内容1、 返回发送的内容（见附三）2、注意：本方法仅应用于 OnRevReport 事件中才有效RevAuto调用方法：Smsgate1. RevAuto参数说明：无开启自动接收新信息功能1、成功返回“y”，否则“n”2、注意：当运行本方法后，请于“OnRecvMsg”事件中接收新信息RevAutoClose调用方法：Smsgate1. RevAutoClose参数说明：无关闭自动接收新信息

9、功能1、 成功返回“y”，否则“n”2、 运行本方法后，将不再产生OnRecvMsg 和OnRevReport 事件CallPhone调用方法： Smsgate1.CallPhone(PhoneNO,WaitTime)参数说明：PhoneNO目标号码WaitTime等待回应时间打1、 返回：OK 对方已接；BUSY占线 NO未接通2、 WaitTime为秒，3、 举例：a= Smsgate1.CallPhone(“”,20)HangUpCall调用方法：Smsgate1. HangUpCall参数说明：无挂断当前呼叫1、 返回 True / False2、 本方法一般和 OnCall事件配合使

10、用四、Smsgate 控件的一些其它方法（部分不支持以下方法，如下方法参考，不具通用性）小技巧：如想在你的程序界面上显示上述每个方法的进程，请在程序中把控件的宽（width）设定为大于 600 的长条，控件的外观将变成一进程指示条，运行时将显示每个方法的实时进程，非常直观！当然，如不想显示，把该控件属性设为不可见即可！命令值参数方法名称说明ReadNB调用方法：Smsgate1. ReadNB(pb_why)参数说明：pb_why=“me” 读中簿pb_why=“sm” 读中簿pb_why=“rc” 读中已接pb_why=“mc” 读中未接读中簿或通讯资料1、成功返回相关资料，否则返回空字符；

11、2、返回资料格式及分割方式同接收信息 ReadMsgM_m调用方法：Smsgate1. M_m参数说明：无读型号1、成功返回型号，否则返回空字符M_imei调用方法：smsgate1. M_imei参数说明：无参数读IMEI 码1、成功返回IMEI 码，否则返回空字符M_调用方法：smsgate1. M_参数说明：无参数取得生产厂商1、成功返回生产厂商名称，否则返回空字符AnswerCall调用方法：Smsgate1. AnswerCall参数说明：无接听当前呼叫1、 返回 True / False2、 本方法一般和 OnCall事件配合使用【附一】：开发举例第一步：先设置好“CommPort

12、”和“Smsservice”属性，有必要时更改 settings 属性值例如：mPort=2Smsgate1. Smsservice =”Smsgate1. Settings =”19200,n,8,1”a = Me.Smsgate1.Connect第二步：连接第三步：发信息a=.Smsgate1.sendsms(“测试内容”, “”, 1)第四步：收信息（有两种收信息的方式）A、手工B、自动： a = Me.Smsgate1.ReadMsg(4)中所有信息新信息： 在 OnRecvMsg 事件中取得新收到的信息（前提是先运行了 RevAuto，否则不会产生 OnRecvMsg 事件）Priv

13、ate Sub Smsgate1_OnRecvMsg() MsgBox 有新信息啦！A= Me.Smsgate1.NewMsg 自动接收到的信息内容存放在 NewMsg 属性中-对 A 进行处理，如存入数据等，a 的格式见附二End Sub第五步：获得发送的反馈A、在 OnRevReport 事件中，使用 NewReport 方法获得发送内容Private Sub Smsgate1_OnRevReport() a=Smsgate1.NewReport-对 A 进行处理，如存入数据等，a 的格式见附三End Sub第六步： 删除中信息（有两种方式）A、B、手工删除： a = DelSms(1)自

14、动删除：把 ReadAndDel 属性设为 true,这样控件在接收到信息后，自动删除的信息【附二】：收信息举例（适用于 ReadMsg 及 NewMsg 方法）当调用 msgstr = Smsgate1. ReadMsg (whyre) 或 msgstr =Smsgate1. NewMsg 时，msgstr 变量（内容）的组成结构如下：msgstr= 号码 1 chr(2) 内容 1 chr(2) 时间 1 chr(1)号码 2 chr(2) 内容 2 chr(2) 时间 2chr(1) 号码 3 chr(2)内容 3 chr(2) 时间3。即每条信息之间用 ASCII 码的 chr$(1)

15、进行间隔，信息内的“时间”、“信息内容”、“时间”字段之间用 chr$(2)进行间隔；在不同语言中用相关命令进行分割即可（如VB 中用 split）VB 中调用及分割资料举例如下：=详细的分解收到信息并存入数据库的源码 in=Private Sub Smsgate1_OnRecvMsg()在 OnRecvMsg 事件中使用 NewMsg 方法获得收到的内容dim msgstrmsgstr = Smsgate1. NewMsg messageall = Split(msgstr, Chr(1)定义变量 msgstr，用于信息字符串把本次收到的内容（已读信息）赋予变量 msgstr对 msgstr

16、 变量用 chr(1)进行分割成每条For Each onemkkk = 0essageall取出每条短息内容 onem（包括，内容，时间）meVV = Split(onem, Chr(2)对每条内容用chr(2)进行分解为每个详细值，依次为“号码”、“内容”、“时间”For Each icckkk = kkk + 1eVV分别取出，内容，时间If kkk = 1 Then If kkk = 2 Then If kkk = 3 ThenNextmoble = iccmsg = icc times = icc取出取出号码 (moble)内容 (msg)取出该信息的收到时间(times)rs.ad

17、dnew rs(moble) = moble rs(moble) = msg rs(moble) = timesrs.UpdateNext在数据库中增加一新保存End Sub= =详细的分解收到信息并存入数据库的源码end=【附三】：读的发送举例Private Sub Smsgate1_OnRevReport()在 OnRevReport 事件中使用NewReport 方法获得的内容strReport=Smsgate1.NewReport对 strReport 进行处理End SubStrReport 的如下：内容+ chr$(1)+发出时间+ chr$(1)+反馈时间（chr$(1) 为 A

18、SCII 码）例如：StrReport 的是：已发送至：chr$(1)2005-8-20 22:58:25chr$(1)2005-8-20 22:59:25发出时间：指发出的时间反馈时间：指对方收到的时间多条一起的话，每条之间用 chr$(2)分隔【附四】：常见问题（1）、无法接通，什么原因？回答：一般有如下原因：A、 端选择不正确，B、 C、 D、E、用 USB 的数据线连接时，驱程无正确安装Settings 的速率与不一致，请用不同的速率试下NOKIA用数据线连接时，没安装的驱程红外连接时，有时反应较慢，在控件规定的时间内未能接通，一般试多几次就接通了（2）、我使用控件已正常发出信息，但无法中已存在的信息，什么原因？回答：本控件存满时（一般卡格式是一致的，而的原理是：新信息先到达，然后本控件再从中信息。而收到新信息时，会先存