Help - Search - Members - Calendar
Full Version: No call response was returned by Skype
Skype Community > English > Development, Betas and Skype Garage > Skype Public API
DNAUK
I am integrating Skype with our contacts functions of our document management system. This was developed using VB6.

I have a really peculiar problem - I have used m_objSkype.PlaceCall("9999999999") where 9999999999 is a valid telephone number (including international code) and the application performs perfectly when running on one of our office computers with Skype and ActiveS COM Wrapper installed but fails with the Error "No call response was returned by Skype" on the other two which have the same version of Skype and the ActiveS COM Wrapper.

It works perfectly on all computers if the telephone number is replaced by a skype username.

Any ideas/leads would be much appreciated.

I have just checked and the computer it is working on is Skype version 2.0 whereas the other machines are 2.5 - is this significant - what is difference?

Dave.
TheUberOverlord
QUOTE(DNAUK @ Tue Sep 26 2006, 13:00) [snapback]301761[/snapback]

I am integrating Skype with our contacts functions of our document management system. This was developed using VB6.

I have a really peculiar problem - I have used m_objSkype.PlaceCall("9999999999") where 9999999999 is a valid telephone number (including international code) and the application performs perfectly when running on one of our office computers with Skype and ActiveS COM Wrapper installed but fails with the Error "No call response was returned by Skype" on the other two which have the same version of Skype and the ActiveS COM Wrapper.

It works perfectly on all computers if the telephone number is replaced by a skype username.

Any ideas/leads would be much appreciated.

I have just checked and the computer it is working on is Skype version 2.0 whereas the other machines are 2.5 - is this significant - what is difference?

Dave.


Just to make sure it is not a bug in your code, please try these examples:

This one looks at call history, so you can see what the history is, both in the past and during active calls:

http://testing.onlytherightanswers.com/skypebeta/Calls.htm

This one will allow you to dial the number in real-time and view all the call status information as it changes:

http://testing.onlytherightanswers.com/skypebeta/Client.htm
DNAUK
The links don't work (Failed to load SkypeX control) because I am not using SKYPE4COM, I am using the ActiveS COM Wrapper. The following are the extracted relevant VB6 code fragments:

=================================
Private WithEvents objSkypeSession As SKYPEAPILib.Access
Private objSkypeUser As SKYPEAPILib.User
Private objSkypeCall As SKYPEAPILib.Call
Private boolSkypeConnected As Boolean

----------------------------------------------------------

Private Sub Form_Load()
On Error GoTo NoInit
Set objSkypeSession = New SKYPEAPILib.Access
objSkypeSession.Connect
On Error GoTo 0
Exit Sub

NoInit:
MsgBox Err.Description, vbCritical + vbOKOnly, "Unable to Connect to Skype"
Set objSkypeSession = Nothing
Unload Me
Exit Sub

End Sub

----------------------------------------------------------------------

Private Sub Form_Unload(Cancel As Integer)
boolSkypeConnected = False
Set objSkypeCall = Nothing
Set objSkypeUser = Nothing
Set objSkypeSession = Nothing
End Sub

----------------------------------------------------------

Private Sub objSkypeSession_APIStatusChanged(ByVal Status As SKYPEAPILib.SkypeAPIAttachmentStatus)
boolSkypeConnected = (Status = SKYPEAPILib.SkypeAPIAttachmentStatus.apiAttachSuccess)
End Sub

----------------------------------------------------------------------

Private Sub bttnMakeCall_Click()
On Error GoTo SkypeOutErr
Set objSkypeCall = objSkypeSession.PlaceCall(Me.lblHandle.Caption)

SkypeOutExit:
On Error GoTo 0
Exit Sub

SkypeOutErr:
MsgBox Error$
Resume SkypeOutExit
End Sub

----------------------------------------------------------------------

Private Sub bttnEndCall_Click()
Dim objCall As SKYPEAPILib.Call
On Error GoTo SkypeHangupErr
objSkypeCall.Status = prgFinished

SkypeHangupExit:
On Error GoTo 0
Exit Sub

SkypeHangupErr:
Resume SkypeHangupExit
End Sub

========================================


Any light anyone can shed on this would be welcome, as I say it works fine with one computer running Skype 2.0 but fails (SkypeOut calls only) on the machines running Skype 2.5 and Beta 2.6.
TheUberOverlord
QUOTE(DNAUK @ Wed Sep 27 2006, 08:11) [snapback]301997[/snapback]

The links don't work (Failed to load SkypeX control) because I am not using SKYPE4COM, I am using the ActiveS COM Wrapper. The following are the extracted relevant VB6 code fragments:

=================================
Private WithEvents objSkypeSession As SKYPEAPILib.Access
Private objSkypeUser As SKYPEAPILib.User
Private objSkypeCall As SKYPEAPILib.Call
Private boolSkypeConnected As Boolean

----------------------------------------------------------

Private Sub Form_Load()
On Error GoTo NoInit
Set objSkypeSession = New SKYPEAPILib.Access
objSkypeSession.Connect
On Error GoTo 0
Exit Sub

NoInit:
MsgBox Err.Description, vbCritical + vbOKOnly, "Unable to Connect to Skype"
Set objSkypeSession = Nothing
Unload Me
Exit Sub

End Sub

----------------------------------------------------------------------

Private Sub Form_Unload(Cancel As Integer)
boolSkypeConnected = False
Set objSkypeCall = Nothing
Set objSkypeUser = Nothing
Set objSkypeSession = Nothing
End Sub

----------------------------------------------------------

Private Sub objSkypeSession_APIStatusChanged(ByVal Status As SKYPEAPILib.SkypeAPIAttachmentStatus)
boolSkypeConnected = (Status = SKYPEAPILib.SkypeAPIAttachmentStatus.apiAttachSuccess)
End Sub

----------------------------------------------------------------------

Private Sub bttnMakeCall_Click()
On Error GoTo SkypeOutErr
Set objSkypeCall = objSkypeSession.PlaceCall(Me.lblHandle.Caption)

SkypeOutExit:
On Error GoTo 0
Exit Sub

SkypeOutErr:
MsgBox Error$
Resume SkypeOutExit
End Sub

----------------------------------------------------------------------

Private Sub bttnEndCall_Click()
Dim objCall As SKYPEAPILib.Call
On Error GoTo SkypeHangupErr
objSkypeCall.Status = prgFinished

SkypeHangupExit:
On Error GoTo 0
Exit Sub

SkypeHangupErr:
Resume SkypeHangupExit
End Sub

========================================


Any light anyone can shed on this would be welcome, as I say it works fine with one computer running Skype 2.0 but fails (SkypeOut calls only) on the machines running Skype 2.5 and Beta 2.6.


The Links do work, but you need to add my site as a trusted site so that the Skype4Com Lib will install via ActiveX.

All I was trying to do was offer you some test tools to see another view of your problem..

I personally, don't use the ActiveS COM Wrapper, so I have no way to help you debug this :-( other than offering you tools that use the Skype4COM lib so that you can compare results.
This is a "lo-fi" version of our main content. To view the full version with more information, formatting and images, please click here.