stopping speak

[Carlo Rubini <osb at bttb dot net dot bd>]

Hello,

how to stop a speech process started buy <speak(myString)> ?

I call the StopSpeech method from the mouseDown event of an editField 
but the speech process doesnt stop.
(mSpeechChannel is a property)

1. Method: stopSpeech:
 dim res as integer
   if mSpeechChannel <> 0 then
    res = DisposeSpeechChannel(mSpeechChannel)
    if res<>0 then
    msgBox "DisposeSpeechChannel() returned "+Format(res, "-#")
    end if
    mSpeechChannel = 0
  end if

2. Function: DisposeSpeechChannel

Declare Function DisposeSpeechChannel Lib SpeakLib (chan as Integer) as Integer
return DisposeSpeechChannel(channel)

 Corrections/suggestions welcome, thanks
--
Carlo
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>

Search the archives of this list here:
<http://www.realsoftware.com/listarchives/lists.html>