以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  Win7下录音代码导致系统直接退出  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=9367)

--  作者:易服
--  发布时间:2011/4/2 9:14:00
--  Win7下录音代码导致系统直接退出

文本录音按钮:

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下点击“文本录音”按钮,直接退出系统没有任何提示,而另一项目同样的代码又正常,百思不得其解!奇怪?


--  作者:狐狸爸爸
--  发布时间:2011/4/2 9:21:00
--  

我现在用的就是win7,测试你的代码没事。

你可能用的是盗版的系统,特别是那些所有的精简版和纯净版,会有一些莫名其妙的问题。

 


--  作者:易服
--  发布时间:2011/4/2 9:32:00
--  

而另一项目同样的代码又正常,百思不得其解!奇怪?

我的操作系统是大地完整克隆版 应该是盗版


--  作者:狐狸爸爸
--  发布时间:2011/4/2 9:50:00
--  
删除catch看看
--  作者:易服
--  发布时间:2011/4/3 11:49:00
--  
删除项目中的catch不行,删除狐表中的catch也不行,压缩项目还是不行。
--  作者:狐狸爸爸
--  发布时间:2011/4/3 11:50:00
--  
重做系统
--  作者:lxl
--  发布时间:2011/4/3 11:58:00
--  

下载一个官方发布的 Win7 SP1

然后用激活补丁激活


--  作者:lxl
--  发布时间:2011/4/3 12:00:00
--  

激活补丁 搜一下:

SK Patch v2 Beta1 或者WIN7 Activation

这两个随便一个都行,基本上都能激活


--  作者:易服
--  发布时间:2011/4/3 15:28:00
--  

升级Win7 SP1也不行,在窗口设计器中从文件生成....,也会直接退出。好在只有一个“文本录音”按钮不正常不用它就是了


--  作者:狐狸爸爸
--  发布时间:2011/4/3 15:40:00
--  
将这个窗口文件传上来看看