勇芳软件 发表于 2018-3-6 16:29:04

【VFB】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


xiawan 发表于 2022-5-17 09:38:53


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

imr2013 发表于 2022-11-23 23:10:22

和vb6几乎一样
页: [1]
查看完整版本: 【VFB】ISpVoice语音(VFB源码)微软TTS语音引擎调用例题