有关text-to-speech问题,送分!(150分)

  • 主题发起人 主题发起人 christ
  • 开始时间 开始时间
C

christ

Unregistered / Unconfirmed
GUEST, unregistred user!
如何在delphi里应用ms txt-speech engin?<br>不用第三方控件,最好带有举例(代码).<br>像ibm viavoice98.<br>
 
ms txt-speech engin 现在还不支持中文朗读……<br>有关资料,你可以查一下,<br>另:Ms的东西(如 DirectX),你如不想用构件,最好用VC++编<br>你可以查一下最新的MSDN,一般会有VC的例子<br><br>
 
http://www.microsoft.com/iit/
 
用SpeechAPI实现英文朗读:<br><br>1, New Application<br>2, /Project/Import Type Library/Add, <br>&nbsp; &nbsp;选: Windows/Speech/vtxtauto.tlb<br>3,<br><br>FISpeech: IVTxtAuto;<br><br>procedure TMainForm.FormCreate(Sender: TObject);<br>begin<br>&nbsp; FISpeech := CoVTxtAuto_.Create;<br>&nbsp; FISpeech.Register('Demo Site', 'Demo App');<br>end;<br><br>procedure TMainForm.bitbtn1click(Sender: TObject);<br>begin<br>&nbsp; FISpeech.Speak(Memo1.Text, vtxtst_READING)<br>end;<br><br>...<br><br>&nbsp; &nbsp;
 
给你发了一个,很简单的例子。
 
谢谢各位提示.<br>不好意识,本人水平.....<br>&nbsp; FISpeech.Register是什么?<br>我自己以前做作过类似 Xwolf的,不过就差在 &nbsp;FISpeech.Register.谢谢xwolf.^-^<br><br>cheka的程序怎么打不开?error creating form: invalid stream format错误.<br><br>---还有怎么改声调?怎么选择不同人的声音?<br>
 
www.inprise.com.cn有个例子,下载看看
 
多人接受答案了。
 

Similar threads

D
回复
0
查看
925
DelphiTeacher的专栏
D
D
回复
0
查看
880
DelphiTeacher的专栏
D
D
回复
0
查看
852
DelphiTeacher的专栏
D
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
后退
顶部