在TTS中,如何更改语音库?最好有代码(15分)

  • 主题发起人 becauseI
  • 开始时间
qiyuanwj, 能否给我一个 shxdwang@21cn.com,急用
谢谢!
 
qiyuanwj, 能否给一个 mscjl@163.com,谢谢!
 
qiyuanwj,能给我一个你的例子吗?(wyihang@263.net)
 
qiyuanwj, 能否给一个plq163001@163.com,谢谢!
 
qiyuanwj:
我也在用这个控件可是就是不能保存成wav文件,我搞了很久就是通不过,你有没有做过啊,给点意见,急啊!!!
代码如下:
var
//ss:ISpeechBaseStream;
ss :TSpFileStream;
ff:ISpeechBaseStream;
begin
ss:=TSpFileStream.Create(nil);
ss.Format.Type_:=SAFT22kHz16BitMono;
ss.Open(exepath+'1.wav',SSFMCreateForWrite,false);
///SpVoice1.AllowAudioOutputFormatChangesOnNextSet:=true;
SpVoice1.AudioOutputStream:=ss;
//--------->这里类型不对,可是VB的代码是这样写的,晕啊!!!
ss.Close;
TTS_Speak(pchar(Memo1.text),LTLang);
SpVoice1.AudioOutputStream:=nil;
ss:=nil;
 
别瞎折腾了,我也不想去买别人的dll来完成这样的功能,可是Delphi在导入语音控件的时候有问题,除非你是个Vc高手才有劲去看微软的示例,或把Vc的示例改成dll供Delphi调用,我就是拿不住Vc所以才买了个dll用,还好不贵才几十大洋,要是自己干,我的天呀,先要看Vc,在去研究示例,花的时间、精力和买书的钱都不止这些,反正我是搞不动Vc,呵呵,而且作者会给我免费升级,我觉得这样挺好的,人人有饭吃,毕竟每个人的精力和能力是有限的,应该博采众家所长,什么都自己干,操作系统都开发出来了:(。我用过觉得还可以,出于尊重作者和我以后升级的考虑,我不方便提供正式版。地址:
http://www.smartread.net/cn/smartreadsdk/index.html
 
顶部