基于RTXS应用开发指南.doc

文档介绍：RTXS 应用开发指南
Step by step
腾讯科技(深圳)有限公司
版权所有侵权必究
目录
1、开发前准备 3
2、创建应用工程 3
1). 创建一个新工程 3
2). 编写代码 4
3、使用方法 6
1). 注册及启动应用 6
2). 显示下行短信 7
3). 测试上行短信 7
4). 停止及注销应用 8
3、使用方法 8
1、开发前准备
需要安装如下文件:
RTXServer2006正式版,
RTXServer2006 SDK ;
应用生命周期的四部曲:
注册应用
启动应用
停止应用
注销应用
以下的示例将开发一个“模拟短信网关”的应用,通过介绍开发短信网关,来讲解应用的一般开发过程。
2、创建应用工程
创建应用工程前,先打开VB的“工程”à “引用”, 把RTXSAPI Type Library打上钩,然后在VB中创建一个工程。
1). 创建一个新工程
通过VB创建一个新工程,然后在窗体上添加相应的按钮及文本框。
创建一个工程
2). 编写代码
‘首先在“通用”声明一个RTXSAPISmsObj事件,当服务器收到自来客户端的SMS信息会响应该事件。
Dim WithEvents SmsObj As RTXSAPISmsObj ‘声明一个RTXSAPISmsObj事件。
‘为该事件编写相应代码,当接收到客户端发来的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
szSender, szCookie, "<Result>" & "<Item Mobile=" & """" & szRecvMobiles & """" & " ess=" & """" & "0" & """" & " Result=" & """" & "信息已经成功发送" & """" & "/></Result>"
End Sub
‘在Form_Load添加以下代码:
Private Sub Form_Load()
Set rootobj = CreateObject("") ‘创建root对象
Set SmsObj = ‘创建Sms对象
= AA_COPY ‘表示消息采用复制的方式
= 0
End Sub
‘注册应用添加代码如下:
Private Sub RegApp_Click()
On Error GoTo er