【VFB】ISpVoice语音(VFB源码)微软TTS语音引擎调用例题

勇芳软件

全局

1. #include Once "Afx/AfxSapi.bi"
   
2. Const MSG_SAPI_EVENT = WM_USER + 1  
   
3. ' --> change me
   
4. Dim Shared pSpVoice As Afx_ISpVoice Ptr

复制代码

初始
  

1. 
   
2. pSpVoice = AfxNewCom("SAPI.SpVoice")
   
3.   If pSpVoice Then
   
4.       ' // 将感兴趣的对象设置为单词边界
   
5.       pSpVoice->SetInterest(SPFEI(SPEI_WORD_BOUNDARY), SPFEI(SPEI_WORD_BOUNDARY))
   
6.       ' // 设置将接收MSG_SAPI_EVENT消息的窗口的句柄
   
7.       pSpVoice->SetNotifyWindowMessage(hWndForm, MSG_SAPI_EVENT, 0, 0)
   
8. 
   
9.   Else
   
10.       AfxMsg "你的电脑里没有安装 微软TTS语音引擎"
    
11. End If

复制代码

播放

1.   Dim cws As CWStr = FF_Control_GetText(HWND_FORM1_TEXT1)  
   
2.   If pSpVoice Then
   
3.       pSpVoice->Speak(cws, SPF_ASYNC, Null)
   
4.   Else
   
5.       AfxMsg "你的电脑里没有安装 微软TTS语音引擎"
   
6.   End If

复制代码

源码下载：Basic语言编程群 78458582

xiawan

正需要，支持楼主大人了！

imr2013

和vb6几乎一样