技术宅的结界

 找回密码
 立即注册→加入我们

QQ登录

只需一步,快速开始

搜索
热搜: 下载 VB C 实现 编写
查看: 2234|回复: 2
收起左侧

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

[复制链接]

51

主题

31

回帖

648

积分

用户组: 大·技术宅

UID
3260
精华
7
威望
12 点
宅币
506 个
贡献
1 次
宅之契约
0 份
在线时间
23 小时
注册时间
2017-12-26
发表于 2018-3-6 16:29:04 | 显示全部楼层 |阅读模式

欢迎访问技术宅的结界,请注册或者登录吧。

您需要 登录 才可以下载或查看,没有账号?立即注册→加入我们

x
1520305821343653.jpg
全局
[Visual Basic] 纯文本查看 复制代码
#include Once "Afx/AfxSapi.bi" 
Const MSG_SAPI_EVENT = WM_USER + 1  
 ' --> change me 
Dim Shared pSpVoice As Afx_ISpVoice Ptr


初始
  
[Visual Basic] 纯文本查看 复制代码
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
  

播放

[Visual Basic] 纯文本查看 复制代码
  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


回复

使用道具 举报

1

主题

127

回帖

302

积分

用户组: 中·技术宅

UID
7535
精华
0
威望
0 点
宅币
174 个
贡献
0 次
宅之契约
0 份
在线时间
25 小时
注册时间
2021-10-16
发表于 2022-5-17 09:38:53 | 显示全部楼层

正需要,支持楼主大人了!

0

主题

48

回帖

67

积分

用户组: 小·技术宅

UID
8099
精华
0
威望
2 点
宅币
15 个
贡献
0 次
宅之契约
0 份
在线时间
9 小时
注册时间
2022-10-22
发表于 2022-11-23 23:10:22 | 显示全部楼层
和vb6几乎一样

本版积分规则

QQ|申请友链||Archiver|手机版|小黑屋|技术宅的结界 ( 滇ICP备16008837号 )|网站地图

GMT+8, 2023-2-5 23:09 , Processed in 0.035508 second(s), 35 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表