L liuchffd Unregistered / Unconfirmed GUEST, unregistred user! 2002-03-29 #1 最近刚刚完成一个单词背诵软件,但是还想添加语音朗读功能。 不知哪位富翁能够帮忙!!![blue]最好能够附上具体解决的办法和代码[/blue]。
B bubble Unregistered / Unconfirmed GUEST, unregistred user! 2002-03-29 #2 留个mail,来,E文TTS详细例程,我发给你。 BTW,中文的谁有也顺便给我发一份,puzzledj@163.com,谢谢了。 不要read2u,要快的。
J jrq Unregistered / Unconfirmed GUEST, unregistred user! 2002-03-29 #3 你搜索一下,很多的 关于TTS 、CTTS的! 见http://www.delphibbs.com/delphibbs/dispq.asp?lid=938105 还有很多! 你需要安装Active的控件! --------------------- 部分代码如下: procedure TForm1.FormCreate(Sender: TObject); begin FISpeech:=CoVTxtAuto_.Create; FISpeech.Register('Demo Site','Demo App'); //英文朗读! end; procedure TForm1.btnReadClick(Sender: TObject);//开始朗读 begin FISpeech.Speak(MemText.Lines.Text,vtxtst_READING); end; --------------------- 注:用的是金山词霸带的那个
你搜索一下,很多的 关于TTS 、CTTS的! 见http://www.delphibbs.com/delphibbs/dispq.asp?lid=938105 还有很多! 你需要安装Active的控件! --------------------- 部分代码如下: procedure TForm1.FormCreate(Sender: TObject); begin FISpeech:=CoVTxtAuto_.Create; FISpeech.Register('Demo Site','Demo App'); //英文朗读! end; procedure TForm1.btnReadClick(Sender: TObject);//开始朗读 begin FISpeech.Speak(MemText.Lines.Text,vtxtst_READING); end; --------------------- 注:用的是金山词霸带的那个
L liuchffd Unregistered / Unconfirmed GUEST, unregistred user! 2002-03-29 #4 up:不知你指的Active的控件是什么? 我的Email:liuchffd@163.net
A anddyluo Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-08 #7 procedure TForm1.FormCreate(Sender: TObject); begin FISpeech:=CoVTxtAuto_.Create; FISpeech.Register('Demo Site','Demo App'); end; procedure TForm1.btnReadClick(Sender: TObject); begin FISpeech.Speak(MemText.Lines.Text,vtxtst_READING); end; 注:我用的TTS系统是金山词霸带的。
procedure TForm1.FormCreate(Sender: TObject); begin FISpeech:=CoVTxtAuto_.Create; FISpeech.Register('Demo Site','Demo App'); end; procedure TForm1.btnReadClick(Sender: TObject); begin FISpeech.Speak(MemText.Lines.Text,vtxtst_READING); end; 注:我用的TTS系统是金山词霸带的。