Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Connection refused... with Skype
Message
 
À
22/07/2009 21:03:33
Information générale
Forum:
Visual FoxPro
Catégorie:
COM/DCOM et OLE Automation
Divers
Thread ID:
01413871
Message ID:
01413913
Vues:
67
>The error is "OLE lDispatch exception code 0 from Skype4COM.Skype.1: Connection refused..."
>
>Here is some code that I found and it doesn't work for me
>
>
>** Create a Skype4COM object:
>oSkype = CreateObject("Skype4COM.Skype", "Skype_")
> 
>** Start the Skype client:
>If !oSkype.Client.IsRunning 
>	oSkype.Client.Start()
>ENDIF 
> 
>** Declare the following Skype constants:
>cUserStatus_Offline = oSkype.Convert.TextToUserStatus("OFFLINE")
>cUserStatus_Online = oSkype.Convert.TextToUserStatus("ONLINE")
>cCallStatus_Ringing = oSkype.Convert.TextToCallStatus("RINGING")
>cCallStatus_Inprogress = oSkype.Convert.TextToCallStatus("INPROGRESS")
>cCallStatus_Failed = oSkype.Convert.TextToCallStatus("FAILED")
>cCallStatus_Refused = oSkype.Convert.TextToCallStatus("REFUSED")
>cCallStatus_Cancelled = oSkype.Convert.TextToCallStatus("CANCELLED")
>cCallStatus_Finished = oSkype.Convert.TextToCallStatus("FINISHED")
>cCallStatus_Busy = oSkype.Convert.TextToCallStatus("BUSY")
>cAttachmentStatus_Available = oSkype.Convert.TextToAttachmentStatus("AVAILABLE")
>	 
>** The PlaceCall command will fail if the user is offline. To avoid failure, check user status and change to online if necessary:
>*!*	If cUserStatus_Offline = oSkype.CurrentUserStatus 
>*!*		oSkype.ChangeUserStatus(cUserStatus_Online)
>*!*	ENDIF 
>
>** Create a user object:
>oUser = oSkype.User("Chasse Denis")
>
>
>*!*	MESSAGEBOX( "User " + oUser.Handle + " online status is " + oSkype.Convert.OnlineStatusToText(oUser.OnlineStatus))
>*!*	WScript.Echo "User " & oUser.Handle & " online status is " & oSkype.Convert.OnlineStatusToText(oUser.OnlineStatus)
>
>SET STEP ON 
>
>** Place a call:
>
>
>Up to this point everything is ok. It's what follows that is not right.
>
>I tried the next three ways to place a call. They all give errors.
>
>
>oCall = oSkype.PlaceCall(oUser)
>oCall = oSkype.PlaceCall(oUser.Handle)
>oSkype.PlaceCall(oUser.Handle)
>
>
>If even if one of the previous worked it wouldn't really do what I want.
>
>From my VFP app. I want to be able to call a phone number (SkypeOut)
>
>Anybody knows how to fix this?

I have started to reply in the private area but you never came back,

The correct syntax to place a call is you call the handle.
oskype.PlaceCall(ouser.Handle)
This one bring up the interface and starts dialing. Two things:
1. You may want to add this line to your code, after you created the oSkype object:
oSkype.Attach()
2. Skype has to already be running, minimized in the tray for this to work.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform