终于解决了TTS的speak朗读完成问题

展开全文

2011年06月27日 00:45:00

speak完成如何判断？如何使用SpVoice.SpeakCompleteEvent，这个问题困扰了我两天，最后看到msdn上的例子才知道要使用WaitForSingleObject函数处理它返回的时间句柄，之前的想speak或者偏移量的是多么荒谬啊。

peech API 5.3

Object: SpVoice
Type: Hidden


SpVoice.SpeakCompleteEvent() As Long

Return Value

A Long variable containing the event handle.

Example

Dim objVoice As SpeechLib.SpVoice
Dim lngHandle As Long
Dim lngRtn As Long
Const INFINITE = -1&
Set objVoice = New SpVoice
objVoice.Speak "please wait until this text has been spoken", SVSFlagsAsync
lngHandle = objVoice.SpeakCompleteEvent             'Get a handle on this stream
lngRtn = WaitForSingleObject(lngHandle, INFINITE)   'Wait for completion
 一开始用 if WaitForSingleObject(SpVoice.SpeakCompleteEvent, INIFINTE) = WAIT_OBJECT_0 then判断发现当朗读时它会一直读下去，界面上按钮都不能点，

就改成WaitForSingleObject(SpVoice.SpeakCompleteEvent, 200)就好了，其中也参考了下面百度文库中的文章

一下子跳到等待函数 WaitForSingleObject, 是因为下面的 Mutex、Semaphore、Event、WaitableTimer 等同步手段都要使用这个函数; 不过等待函数可不止 WaitForSingleObject 它一个, 但它最简单.

function WaitForSingleObject(

hHandle: THandle; {要等待的对象句柄}

dwMilliseconds: DWORD {等待的时间, 单位是毫秒}

): DWORD; stdcall; {返回值如下:}

WAIT_OBJECT_0 {等着了, 本例中是: 等的那个进程终于结束了}

WAIT_TIMEOUT {等过了点(你指定的时间), 也没等着}

WAIT_ABANDONED {好不容易等着了, 但人家还是不让咱执行; 这一般是互斥对象}

//WaitForSingleObject 的第二个参数一般给常数值 INFINITE, 表示一直等下去, 死等.