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

全局

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

初始

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

播放

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

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