RTX IM API 调用实例

【实例截图】

【核心代码】

下载根对象VB示例工程, 下载根对象.NET示例工程

Dim RootObj As RTXSAPIRootObj '声明一个RTXSAPIRootObj变量 

Private Sub Command1_Click()

RootObj.ServerIP = txtIP.Text '设置服务器IP
RootObj.ServerPort = txtPort.Text ' 设置服务器端口，默认为8006

On Error Resume Next
txtResult.Text = RootObj.QueryUserState(txtUserName.Text) '查询用户状态
If (Err.Number <> 0) Then 
txtResult.Text = "Error # " & Err.Number & Chr(13) & Err.Description
End If 

End Sub

Private Sub Form_Load()

Set RootObj = CreateObject("RTXSAPIRootObj.RTXSAPIRootObj") ' 创建根对象

End Sub  

相关代码：

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
using RTXSAPILib;
using System.Runtime.InteropServices;


namespace RootObj
{
    public partial class GetEnterpriseInfofrm : Form
    {
        RTXSAPILib.RTXSAPIRootObj RootObj;  //声明一个根对象

        public GetEnterpriseInfofrm()
        {
            InitializeComponent();
            RootObj = new RTXSAPIRootObj();     //创建根对象

        }

        private void btnGetEnterpriseInfo_Click(object sender, EventArgs e)
        {
            try
            {
                RootObj.ServerIP = txtSvrIP.Text; //设置服务器IP
                RootObj.ServerPort = Convert.ToInt16(txtSvrPort.Text); //设置服务器端口
                txtResult.Text = RootObj.GetEnterpriseInfo(); //获取企业信息
            }
            catch (COMException xe)
            {
                MessageBox.Show(xe.Message);
            }
        }
    }
}