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

  勇芳 2018-3-6 7494

QQ截图20180306110955.jpg

全局

#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


因国家互联网安全管理要求,关闭回帖功能。大家需要留言,请使用【勇芳软件客服】即时联系勇芳点此打开->>勇芳软件客服
返回
联系勇芳
发新帖 搜索 反馈 回顶部