朗读中文(100分)

如何用delphi将中文文本朗读为声音,我用 Speech SDK 5.0
用下面的代码只能朗读英文为单词,中文无效

SpVoice :=TSpVoice.Create(self);
SpVoice.Speak('apple 朗读中文',0);
FreeAndNil(SpVoice);

用文语通
在DLEPHI里直接调用很方便的

太大了,还要安装,不利于我的绿色程序发布

这个是朗读中文得
procedure TfrmIssueDocShow.speachword(instr: string);
begin

SpVoice1.Disconnect;
SpVoice1.Connect;
SpVoice1.Voice := SpVoice1.GetVoices('Language = 804','').Item(0);//Language = 804好象可以不要
SpVoice1.Volume := 100;//音量，最大好象只能100--最高
SpVoice1.Rate := 4;//语速，最大好象只能是8--最快
SpVoice1.Speak(instr,SVSFlagsAsync);
end;


这个是朗读英文得
procedure TfrmIssueDocShow.SpeakEnglish(strSpeak: string);
begin

if trim(strSpeak) = '' then
exit;
SpVoice1.Voice := SpVoice1.GetVoices('Language = 409','').Item(1);
SpVoice1.Volume := 100;//音量，最大好象只能100--最高
SpVoice1.Rate := 4;//语速，最大好象只能是8--最快
SpVoice1.Speak(strSpeak,SVSFlagsAsync);
end;

MS Speech只能分开处理, 当然你可以把一句话中的中英文分离出来
试试看，不过效果不怎么样， 便宜没好货

下载了个中文引擎实现,但我不想再安装
上程序能实现,只是不知卸载了中文引擎后是否还正常

接受答案了.