I assume your code is in the Click() method for each button.
The problem I see is, for the Cancel button, how does the object know
whether the call is 'running' or not? It's completely separate from the
one you instantiated in button 1. oSkype has a Start() method, but
doesn't seem to have a Cancel() method (or is that what .Finish() does?
I'd suggest moving oSkype up so the same object is visible to both
controls. Then the Cancel can just say
if not oSkype.Client.isRunning
..........
Might also want to
if vartype(thisform.oSkype) <> "O"
<tell user there's no call to cancel>
Dan Covill
On 9/3/2010 5:03 PM, Sytze de Boer wrote:
> I have a form with 2 buttons
> The 1st button begins with
>
> LOCAL loSkype as skype4com.skype, lcPhoneNr as String, lcMessage as String,
> lnStatus as number
> lnStatus = 0
> loSkype = CreateObject("Skype4COM.Skype", "Skype_")
> lcPhoneNr = "+6421937611"
> If Not loSkype.Client.IsRunning Then
> do while Not loSkype.Client.IsRunning
> loSkype.Client.Start()
> enddo
> EndIf
> loSkype.placecall(lcPhoneNr)
> * This works great
>
> If the call is not answered or I want to cancel the call before pickup, i
> want the 2nd button to cancel the call
> But I'm a bit stuck here
> LOCAL loSkype as skype4com.skype, lcPhoneNr as String, lcMessage as String,
> lnStatus as number
> lnStatus = 0
> loSkype = CreateObject("Skype4COM.Skype", "Skype_")
> If Not loSkype.Client.IsRunning Then
> do while Not loSkype.Client.IsRunning
> loSkype.Client.Start()
> enddo
> EndIf
> loSkype.finish()
>
> Can someone help me out with this?
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://leafe.com/mailman/listinfo/profox
OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message: http://leafe.com/archives/byMID/profox/[email protected]
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
