以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  语音朗读报错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72902)
--  作者：一笑
--  发布时间：2015/8/8 12:49:00
--  语音朗读报错
按照帮助文档，在命令窗口执行以下代码出错：
Dim sp As New DotNetSpeech.SpVoice()
sp.Speak("I am from china.", DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)

图片点击可在新窗口打开查看此主题相关图片如下：搜狗截图15年08月08日1245_1.jpg
图片点击可在新窗口打开查看
求解，谢谢
--  作者：有点蓝
--  发布时间：2015/8/8 14:40:00
--  
http://www.foxtable.com/help/index.html?n=2240.htm
有没有安装语音库
[此贴子已经被作者于2015/8/8 15:43:18编辑过]
--  作者：一笑
--  发布时间：2015/8/8 15:35:00
--  
帮助文件中说 WIN7系统不需要
--  作者：有点蓝
--  发布时间：2015/8/8 15:44:00
--  
你打开帮助文档的那个示列看看行不行
--  作者：一笑
--  发布时间：2015/8/8 16:37:00
--  
帮助文档也不行，我是WIN7系统，看来需要语音库？
--  作者：有点蓝
--  发布时间：2015/8/8 16:45:00
--  
有的系统默认时装的，有的可能盗版的没有吧
--  作者：大红袍
--  发布时间：2015/8/9 11:20:00
--  

 看看

 

http://www.baidu.com/baidu?wd=win7+tts&tn=monline_4_dg

 
--  作者：一笑
--  发布时间：2015/8/11 21:21:00
--  
已经下载并修复。想写个代码，先判断系统里安装语音库否，如有，则播放语音，否则安装在ftp中的文件。写不好，求解
Dim Names As New List(Of String)
Dim sp As new DotNetSpeech.SpVoice()
\'For Each st As Dotnetspeech.SpObjectToken In sp.GetVoices
Names = sp.GetVoices
If names.count > 0 Then
sp.Speak("I am from china.", DotNetSpeech.SpeechVoiceSpeakFlags.SVSFDefault)
else
...?
--  作者：大红袍
--  发布时间：2015/8/11 21:25:00
--  

try catch 应该能处理，你先试试

 

http://www.foxtable.com/help/topics/2070.htm