RTX二次開發筆記1

在客戶端，一個rtx用戶給另一個rtx用戶發送消息！

   我的解決方案：在rtx服務端部署一個 wcf服務 或 webservice 服務，然后程序在客戶端調用服務就行。

 

1,C#版 (服務端需要4個DLL)

    Interop.RTXCAPILib.dll

    Interop.RTXClient.dll

    Interop.RTXSAPILib.dll

    Interop.RTXServerApi.dll

   下載地址： http://good.gd/1936542.htm

 

服務端: (需引用上述4個dll)

[csharp]  view plain copy

 

public string RTX_SendIM(string sSender, string sPwd, string sMsg, string sSessionID, string sReceiver)
{
    string sErr = "";
    try
    {
        RTXSAPILib.RTXSAPIRootObj RootObj = new RTXSAPIRootObj();     //創建根對象

        RootObj.SendIM(sSender, sPwd, sReceiver, sMsg, sSessionID);
    }
    catch (Exception ex)
    {
        sErr = ex.Message;
    }
    return sErr;
}

客戶端：

[csharp]  view plain copy

 

private void btnWCF_Click(object sender, EventArgs e)
{
    AAA.Service se = new AAA.Service();

    if (cboWcfAddress.Text != "")
        se.Url = cboWcfAddress.Text;

    Guid id = Guid.NewGuid();
    string sessionId = "{" + id.ToString() + "}";
    string sErr = se.RTX_SendIM(txtSender.Text, txtSenderPwd.Text, txtMsg.Text, sessionId, txtReceiver.Text);
    if (!string.IsNullOrEmpty(sErr))
        MessageBox.Show(sErr);
}

2, vb6版 (客戶端需要安裝 SOAPToolKit )

   下載地址： http://good.gd/1936572.htm

服務端就利用C#方案中的服務端

客戶端：

[vb]  view plain copy

 

Private Sub btnSendWcf_Click()
    On Error GoTo ERR

    Dim sGuid As String
    sGuid = CreateObject("Scriptlet.TypeLib").Guid

    Dim soapClient As New SoapClient30
    Dim text As String

    soapClient.MSSoapInit cboWcfAddress.text & "?wsdl"

    text = soapClient.RTX_SendIM(txtSender.text, txtSenderPwd.text, txtMsg.text, sGuid, txtReceiver.text)
    If (text <> "") Then
        MsgBox text
    End If


    Exit Sub

ERR:
    MsgBox ERR.Description
End Sub

 

備注：

調用WCF服務與調用WebService服務的方法一樣！

如果1個rtx用戶要給多個rtx用戶發送即時消息，txtReceiver 中的內容用；（分號）隔開即可！

 

轉載：http://blog.csdn.net/tf576776047/article/details/8845894

 

程序員的基礎教程：菜鳥程序員