RTXS S
应用 开发指南
Step by step
腾讯科技（深圳）有限公司
所有
侵权必究
目 目
录 录
1 、开发前准备 ......................................................................................................... 错误!未定义书签。
2 、创建应用工程 ..................................................................................................... 错误!未定义书签。
1). 创建一个新工程 ............................................................................... 错误! 未定义书签。
2). 编写代码 ........................................................................................... 错误! 未定义书签。
3 、使用方法 ............................................................................................................. 错误!未定义书签。
1). 注册及启动应用 ............................................................................... 错误! 未定义书签。
2). 显示下行短信 ................................................................................... 错误! 未定义书签。
3). 测试上行短信 ................................................................................... 错误! 未定义书签。
4). 停止及注销应用 ............................................................................... 错误! 未定义书签。
3 、使用方法 ............................................................................................................. 错误!未定义书签。
1 、开发前准备 需要安装如下文件：
RTXServer2006 正式版，
RTXServer2006 SDK ；
• 应用生命周期的四部曲：
注册应用 启动应用 停止应用 注销应用
以下的示例将开发一个 “模拟短信网关” 的应用，通过介绍开发短信网关，来讲解应用的一般开发过程。
2 、创建应用 工程 创建应用工程前，先打开 VB 的 “工程” “引用”, 把 RTXSAPI 1.0 Type Library 打上钩 ，然后在 VB 中创建一个工程。
1).
创建一个新工程
通过 VB 创建一个新工程，然后在窗体上添加相应的按钮及文本框。
图 图 1.1 创建一个工程
2 2 ).
编写代码
‘ 首先在“通个 用”声明一个 RTXSAPISmsObj 事件，当服务器收到自来客户端的 SMS 信息会响应该事件。
Dim WithEvents SmsObj As RTXSAPISmsObj
‘ 声明一个 RTXSAPISmsObj 事件。
‘ 为该事件编写相应代码，当接收到客户端发来的 的 S SMS 时，将消息显示到文档框中, , 并返回信息给客户端“信息已发送成功 。
Private Sub SmsObj_OnSendSmsMessage(ByVal szSender As String, ByVal szSmsSender As String, ByVal szRecvMobiles As String, ByVal szMsg As String, ByVal szCookie As String)
= szSender + szSmsSender + szRecvMobiles + szMsg + szCookie
dSmsMessage szSender, szCookie, "<Result>" & "<Item Mobile=" & """" & szRecvMobiles & """" & " bSuccess=" & """" & "0" & """" & " Result=" & """" & " 信息已经成功发送 " & """" & "/></Result>"
End Sub
‘在 在 Form_Load 添加以下代码：
Private Sub Form_Load()
Set rootobj = CreateObject("PIRootObj")
‘ 创建 root 对象
Set SmsObj = eAPISmsObj
‘ 创建 Sms 对象
tion = AA_COPY
‘ 表示消息采用复制的方式
iority = 0
End Sub
‘ 注册应用添加代码如下：
Private Sub RegApp_Click()
On Error GoTo errHandler
ID =
me =
rIP =
rPort =
terApp MsgBox " 注册成功 "
errHandler: If r<0 then MsgBox "Error # " & Str(r) & Chr(13) & iption End if
End Sub
‘ 启动应用添加代码如下：
Private Sub StartApp_Click()
On Error GoTo errHandler
App "", 4 MsgBox " 启动成功 "
errHandler: If r<0 then MsgBox "Error # " & Str(r) & Chr(13) & iption End if
End sub
‘ 停止应用添加代码如下：
Private Sub StopApp_Click()
On Error GoTo errHandler pp MsgBox " 停止成功 "
errHandler: if r< 0 then MsgBox "Error # " & Str(r) & Chr(13) & iption
End if
End Sub
‘ 注销应用添加代码如下：
Private Sub UnRegApp_Click()
On Error GoTo errHandler
ID =
rIP =
rPort =
isterApp MsgBox " 注销成功 "
errHandler: If r<0 then MsgBox "Error # " & Str(r) & Chr(13) & iption
End if
End Sub
‘ 发送按钮添加代码如下：
Private Sub SmsToRTX_Click()
On Error GoTo errHandler
oSmsMessage , , ,
errHandler: If r<0 then MsgBox "Error # " & Str(r) & Chr(13) & iption
End if
End Sub
3 、使用方法 该示例程序有两个功能，把客户端发来的 SMS 信息显示出来，模拟手机上行短信给 RTX 客户端。
1).
注册及启动应用
使用 ”应用” 前必须先注册和启动应用，注册应用有四个属性必填，分别是AppGUID、AppName、ServerIP、ServerPort。AppGUID 可以通过 guidgen 生成，应用名必须为.Sms。
图 图 1.2 填写各参数
2 2 ).
显示 下行短信
启动应用成功之后在 RTX 客户端发一条手机短信，此时应用即可获取该信息并把它显示出来。.
图 图 1.3 获取 RTX 下行短信
3 3 ).
测试 上 行短信
上行短信必须填写 szMobile、szReceiver、szMsg、szRecvID 这四个参数。填写完之后点击“发送”，客户端即可收到手机上行短信。
图 图 1.4 显示手机上行短信
4 4 ).
停止及注销应用
停止应用时，AppServer 会向 ConnServer 发送应用停止的命令。注册应用时生成配置文件将依然保留，除非重新注册，否则下次启动时还将按此配置运行；注销应用时，AppServer 将删除保存应用属性的配置文件。应用一旦注销，将不能再次启动。
3、 、 后语
到此已经向您介绍如何开发服务器“应用”，如果您需要开发其他的应用，可以参考该示例，需要更详细文档请查看《RTX Server SDK 帮助》。
相关热词搜索： 指南 开发 RTXS