Avaya'nın VB'de yazılan DevLink örnek koduna bağlanmaya çalışıyorum. DLOpen çağrıldığında başarılı bir şekilde bağlanır, ancak sorun şu ki, DLRegisterType2CallDeltas() işlevi çağrıldığında sonuç, 432563542633 gibi 2'den büyük bir sayıdır ve bağlantıda "Bhoo!! 432563542633 "
bağlantısının olması gibi bir sorun var demektir. DevLink yardımını okudum ancak DLRegisterType2CallDeltas() 'ın başarı için sadece 0 ve hata için 1, 2 sonucu için sadece 3 değerden bahsedildi. 2'den büyük değerin ne anlama geldiğini gerçekten bilmiyorum. Herhangi bir yardım lütfen? kod aşağıda:DevLink API'sı ile Avaya'ya bağlanma
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
Cpp ile yazılmış başka bir kod çalıştırıyorum ve dönüş değeri her zaman 2'dir. Görünüşe göre lisans sorunları vardır. Hala üzerinde çalışıyorum. – Amir