在网上看了篇文章,就是用DELPHI制作语音朗读。
2.实现英文朗读功能 很多软件具有英文发音和朗读功能,它们都使用了MSTTS(Microsoft Text To Speech)技术。微软遵照COM的标准,提供了一套Speech API来对MSTTS进行编程。要在程序中使用这套API,必须确保系统已经安装了MSTTS和Spchapi软件包。 Speech API可以作为类型库引用到Delphi中,方法是:打开Project选单下的Import Type Litrary,点击“Add”加入Windows\Speech目录下的Vtxauto.tlb文件,在Delphi的Import目录中就会生成VTxtAuto—TLB.pas文件,其中定义了VTxtAuto—TLB单元,把它加到Uses成员中来。设计如图2所示的窗口,定义全局变量: var VoTxt:IVTxtAuto; 然后在Form的OnCreate事件中加入: VoTxt:=CoVTxtAuto_.Create; VoTxt.Register(′′,′Speech Test′);{注册} “Read”按钮代码为: VoTxt.Speak(Memo1.Lines.Text,10);{朗读} “Stop”按钮代码为: VoTxt.StopSpeaking; {停止朗读} 至此,应用程序已具有朗读功能,10表示使用普通语气。借住VoTxt的属性和方法,我们还可以控制阅读速度和语气,实现暂停、跳句等功能,Speech API编程就这么简单。 但是我按他的方法将VTxtAuto—TLB.pas加入工程并USE了该单元后编译时总是定义变量时var VoTxt:IVTxtAuto; 报告错,说认不出IVTxtAuto,
2.实现英文朗读功能 很多软件具有英文发音和朗读功能,它们都使用了MSTTS(Microsoft Text To Speech)技术。微软遵照COM的标准,提供了一套Speech API来对MSTTS进行编程。要在程序中使用这套API,必须确保系统已经安装了MSTTS和Spchapi软件包。 Speech API可以作为类型库引用到Delphi中,方法是:打开Project选单下的Import Type Litrary,点击“Add”加入Windows\Speech目录下的Vtxauto.tlb文件,在Delphi的Import目录中就会生成VTxtAuto—TLB.pas文件,其中定义了VTxtAuto—TLB单元,把它加到Uses成员中来。设计如图2所示的窗口,定义全局变量: var VoTxt:IVTxtAuto; 然后在Form的OnCreate事件中加入: VoTxt:=CoVTxtAuto_.Create; VoTxt.Register(′′,′Speech Test′);{注册} “Read”按钮代码为: VoTxt.Speak(Memo1.Lines.Text,10);{朗读} “Stop”按钮代码为: VoTxt.StopSpeaking; {停止朗读} 至此,应用程序已具有朗读功能,10表示使用普通语气。借住VoTxt的属性和方法,我们还可以控制阅读速度和语气,实现暂停、跳句等功能,Speech API编程就这么简单。 但是我按他的方法将VTxtAuto—TLB.pas加入工程并USE了该单元后编译时总是定义变量时var VoTxt:IVTxtAuto; 报告错,说认不出IVTxtAuto,
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货