又是TTS的问题(100分)

C

CJ

Unregistered / Unconfirmed
GUEST, unregistred user!
MS TTS 5.1
我想切换语言怎么做呢?我用的是导入的SpVoice ACTIVEX 控件
如果我有一段文字,有中英文,标点,我想用中文读中文,英文读英文,谁会?谢谢。
 
需要自己分析文本,选择不同的发音。
 
我不会换语音,文本分析也不是想像中那么容易:(
 
可以加XML标记,如:
<LANG LANGID="409">This is the US English language</LANG>
 
有谁会切换语言啊?
 
但是怎么在delphi中使用xml???!!!!
 
直接将xml放在speak的文本里就行噻!
 
这样切换不同的发音
1.首先Import Type library,将Microsoft Speech object library(version 5.0)安装到DELPHI中
2.放SpVoice到窗体中

procedure TForm1.Button1Click(Sender: TObject);
var s:ISpeechObjectTokens;
i:integer;
begin
s:=self.SpVoice1.GetVoices('','');
for i:=0 to s.Count-1 do
begin
self.SpVoice1.Voice:=s.Item(i);
self.SpVoice1.Speak(Edit1.Text,SVSFDefault);
end;

end;
 
提供一个例子参考:
http://bbs.2ccc.com/upload/isxuzhu/TTS-Reader1.5(EXE及源码).rar
 
顶部