哪位老师知道为什么调用语音总报错“ActiveX部件不能创建对象”??

weixin_52117786 2020-12-24 06:27:04
Private Sub Command1_Click()
DoEvents
PCspeak1.Speak Text1.Text, m_speakFlags
End Sub

调用micrsoft speech object library时,运行到 PCspeak1.Speak Text1.Text, m_speakFlags报错“ActiveX部件不能创建对象”,不知道是什么原因?
...全文
252 9 打赏 收藏 举报
写回复
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
wujingyi2011 2021-03-16
我知道怎么弄 需要的话,加我VX
  • 打赏
  • 举报
回复
不懂别说哎 2021-01-05
Private m_speakFlags As SpeechVoiceSpeakFlags 你这个是定义什么???好像你没用到啊 PCspeak1.Speak Text1.Text , m_speakFlags‘m_speakFlags这个是朗读的模式,不需要特意去声明啊,估计就是你声明错了…………
  • 打赏
  • 举报
回复
weixin_52117786 2021-01-05
Private PCspeak1 As New SpVoice Private m_speakFlags As SpeechVoiceSpeakFlags '定义 Private Sub Command1_Click() DoEvents PCspeak1.Speak Text1.Text, m_speakFlags End Sub 已引用microsoft speech过程
  • 打赏
  • 举报
回复
不懂别说哎 2020-12-30
'************************ '该模块存放语音自定义函数 '************************ Option Explicit '直接调用引用的SAPI来执行读,读的过程中程序假死 Dim Voice As New SpVoice '定义前需要引用语音功能sapi.dll动态库里的microsoft speech过程 Public Sub 语音读(内容 As String) '语音读内容 Voice.Rate = 1 '速度 Voice.Speak 内容, SVSFlagsAsync 'SVSFlagsAsync阅读方式为独立线程 End Sub
  • 打赏
  • 举报
回复
weixin_52117786 2020-12-29
语音包是安装版的.EXE。
  • 打赏
  • 举报
回复
weixin_52117786 2020-12-28
已安装“微软语音安装包SpeechSDK51”
  • 打赏
  • 举报
回复
weixin_52117786 2020-12-28
声音的插件工具具体是指哪个?
  • 打赏
  • 举报
回复
不懂别说哎 2020-12-28
语音包最好声明API调用,如果是OCX,请将OCX放到程序运行目录下并注册
  • 打赏
  • 举报
回复
ruan1978 2020-12-27
你有没有安装播放这个声音的插件工具?
  • 打赏
  • 举报
回复
发帖
非技术类
加入

727

社区成员

VB 版八卦、闲侃,联络感情地盘,禁广告帖、作业帖
社区管理员
  • 非技术类社区
申请成为版主
帖子事件
创建了帖子
2020-12-24 06:27
社区公告
暂无公告