0

VB で記述された DevLink サンプル コードを使用して Avaya に接続しようとしています。DLOpen が呼び出されると正常に接続されますが、DLRegisterType2CallDeltas() 関数が呼び出されると、結果が 432563542633 のような 2 より大きい数値になり、接続に問題があるように見えます"Bhoo!! 432563542633 "。DevLink のヘルプを読みましたが、DLRegisterType2CallDeltas() の結果として 3 つの値しか言及されていません。成功の場合は 0 、エラーの場合は 1 、 2 です。2より大きい値が何を意味するのか本当にわかりません。何か助けてください。コードは以下のとおりです。

Public Sub StartMonitor(idPbx As Integer, PbxAddress As String, pbxPassword As String)
        Dim PConn As Connection_Parameter.Connection_Status_Paramenter = New Connection_Parameter.Connection_Status_Paramenter

        Try
            PConn.IdPbx = idPbx
            PConn.ErrorLevel = Connection_Enum.ErrorLevel.info
            PConn.StatusMessage = "Connection in progress..."
            PConn.Status = CommsEvent_Enum.CommsEvent_State.DEVLINK_COMMS_OPERATIONAL

            RaiseEvent ConnectionStatus(Me, PConn)
            Dim iRet As Long = DLOpen(New IntPtr(idPbx), PbxAddress, pbxPassword, Nothing, Nothing, oCommsEvent)

            If iRet = 0 Then
                PConn.StatusMessage = "IpOffice is present!!"
                RaiseEvent ConnectionStatus(Me, PConn)
            Else
                PConn.StatusMessage = "IpOffice is present ?? "
                RaiseEvent ConnectionStatus(Me, PConn)
                'Exit Sub
            End If
            PConn.StatusMessage = "Wait connection response..."
            RaiseEvent ConnectionStatus(Me, PConn)
            Do
                Thread.Sleep(100)
                Application.DoEvents()

            Loop While Not bIsConnect And Not bIsInterrupt

            iRet = DLRegisterType2CallDeltas(New IntPtr(idPbx), oCallLogEvent)

            If iRet > 0 Then
                If iRet = 1 Then
                    PConn.ErrorLevel = Connection_Enum.ErrorLevel.warning
                    PConn.StatusMessage = "Error!! Check ip office IP Address or LAN Connection!!!"
                    RaiseEvent ConnectionStatus(Me, PConn)
                End If
                If iRet = 2 Then
                    PConn.ErrorLevel = Connection_Enum.ErrorLevel.warning
                    PConn.StatusMessage = "Error!! CTI License not found...!!!"
                    RaiseEvent ConnectionStatus(Me, PConn)
                End If

                If iRet > 2 Then
                    PConn.ErrorLevel = Connection_Enum.ErrorLevel.ignore
                    PConn.StatusMessage = "Bhoo!! " & iRet.ToString
                    RaiseEvent ConnectionStatus(Me, PConn)
                End If
                'Exit Sub
            Else
                PConn.StatusMessage = "DLRegisterType2CallDeltas is OK"
                RaiseEvent ConnectionStatus(Me, PConn)
            End If

        Catch ex As Exception
            Throw
        Finally
            PConn = Nothing

        End Try
    End Sub
4

1 に答える 1