Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
文本录音按钮:
Dim Voice As new DotNetSpeech.SpVoice()
Dim st As String = e.Form.Controls("txtContent").Value '获得要朗读的文本
Dim Stream As new DotNetSpeech.SpFileStreamClass()
Dim dlg As New SaveFileDialog '定一个新的SaveFileDialog
dlg.Filter= "Wav文件|*.wav" '设置筛选器
Dim ss As String
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
ss = dlg.FileName
Stream.Open(ss,DotNetSpeech.SpeechStreamFileMode.SSFMCreateForWrite, False)
Voice.AudioOutputStream = Stream
Voice.Voice = Voice.GetVoices("", "").Item(0)
Voice.Speak(st,DotNetSpeech.SpeechVoiceSpeakFlags.SVSFDefault Or DotNetSpeech.SpeechVoiceSpeakFlags.SVSFPurgeBeforeSpeak)
Stream.Close()
messagebox.show("录音完成!")
End If
有两个项目都设置以上代码在WinXP正常,只有一个项目在Win7下点击“文本录音”按钮,直接退出系统没有任何提示,而另一项目同样的代码又正常,百思不得其解!奇怪?
我现在用的就是win7,测试你的代码没事。
你可能用的是盗版的系统,特别是那些所有的精简版和纯净版,会有一些莫名其妙的问题。
而另一项目同样的代码又正常,百思不得其解!奇怪?
我的操作系统是大地完整克隆版 应该是盗版
下载一个官方发布的 Win7 SP1
然后用激活补丁激活
激活补丁 搜一下:
SK Patch v2 Beta1 或者WIN7 Activation
这两个随便一个都行,基本上都能激活
升级Win7 SP1也不行,在窗口设计器中从文件生成....,也会直接退出。好在只有一个“文本录音”按钮不正常不用它就是了