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