rtxs应用开发指南

《rtxs应用开发指南》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、RTXS应用开发指南Stepbystep腾讯科技（深圳）有限公司版权所有侵权必究目录1、开发前准备32、创建应用工程31).创建一个新工程32).编写代码43、使用方法61).注册及启动应用62).显示下行短信73).测试上行短信74).停止及注销应用83、使用方法81、开发前准备需要安装如下文件：RTXServer2006正式版，RTXServer2006SDK；•应用生命周期的四部曲：注册应用启动应用停止应用注销应用以下的示例将开发一个“模拟短信网关”的应用，通过介绍开发短信网关，来讲解应用的一般开发过程。2、创建应用工程创建

2、应用工程前，先打开VB的“工程”à“引用”,把RTXSAPI1.0TypeLibrary打上钩，然后在VB中创建一个工程。1).创建一个新工程通过VB创建一个新工程，然后在窗体上添加相应的按钮及文本框。图1.1创建一个工程2).编写代码‘首先在“通用”声明一个RTXSAPISmsObj事件，当服务器收到自来客户端的SMS信息会响应该事件。DimWithEventsSmsObjAsRTXSAPISmsObj‘声明一个RTXSAPISmsObj事件。‘为该事件编写相应代码，当接收到客户端发来的SMS时，将消息显示到文档框中,并返回信息

3、给客户端“信息已发送成功。PrivateSubSmsObj_OnSendSmsMessage(ByValszSenderAsString,ByValszSmsSenderAsString,ByValszRecvMobilesAsString,ByValszMsgAsString,ByValszCookieAsString)txtRecvSmsMsg.Text=szSender+szSmsSender+szRecvMobiles+szMsg+szCookieSmsObj.ReSendSmsMessageszSender,szCook

4、ie,""&""EndSub‘在Form_Load添加以下代码：PrivateSubForm_Load()Setrootobj=CreateObject("RTXSAPIRootObj.RTXSAPIRootObj")‘创建root对象SetSmsObj=rootobj.CreateAPISmsObj‘创

5、建Sms对象SmsObj.AppAction=AA_COPY‘表示消息采用复制的方式SmsObj.AppPriority=0EndSub‘注册应用添加代码如下：PrivateSubRegApp_Click()OnErrorGoToerrHandlerSmsObj.AppGUID=txtGuid.TextSmsObj.AppName=txtAppName.TextSmsObj.ServerIP=txtSvrIP.TextSmsObj.ServerPort=txtSvrPort.TextSmsObj.RegisterAppMsgBox

6、"注册成功"errHandler:IfErr.Number<0thenMsgBox"Error#"&Str(Err.Number)&Chr(13)&Err.DescriptionEndifEndSub‘启动应用添加代码如下：PrivateSubStartApp_Click()OnErrorGoToerrHandlerSmsObj.StartApp"",4MsgBox"启动成功"errHandler:IfErr.Number<0thenMsgBox"Error#"&Str(Err.Number)&Chr(13)&Err.Descri

7、ptionEndifEndsub‘停止应用添加代码如下：PrivateSubStopApp_Click()OnErrorGoToerrHandlerSmsObj.StopAppMsgBox"停止成功"errHandler:ifErr.Number<0thenMsgBox"Error#"&Str(Err.Number)&Chr(13)&Err.DescriptionEndifEndSub‘注销应用添加代码如下：PrivateSubUnRegApp_Click()OnErrorGoToerrHandlerSmsObj.AppGUID=

8、txtGuid.TextSmsObj.ServerIP=txtSvrIP.TextSmsObj.ServerPort=txtSvrPort.TextSmsObj.UnRegisterAppMsgBox"注销成功"errHandler:IfErr.N