如何实现文章朗读

[yyok]

如何实现文章朗读

[sky100]

用白浪中文TTS或微软语音引擎等语音模块发音。

[sky100]

用微软文本语音输出引擎。

[minkerui]

在VB里引用TTS语音引擎！

[frs]

除非用别人的引擎！否则得自己编写！得用一堆api！

[bucher]

微软的语音是否支持中文？

[TechnoFantasy]

不支持

[yiwei]

错。MS的TTS可以支持中文，只是不是免费的。（操他的MS，种族歧视？！）另外，语音引擎也不是只有MS一家，IBM的也不错，不过也不是免费的。

[litdong]

fang ,语音引擎怎么编写

[ehang]

To sky100(天荒地老哪里去找)　:
能介绍一下白浪中文TTS？
To YYOK：
请看一篇关于英文TTS实现的文章，希望有所帮助，MS TTS中文版不是免费的。
在Win2000下，可以直接调用MS TTS类和控件（Win2000包含）。

《 在VB中利用MSTTS技术实现英语朗读功能 》 （电脑报）
　　《金山词霸2000》的英文全文朗读功能，是直接使用了MSTTS(Text－to－Speech)技术，在VB6.0中通过对MS Speech API的调用，可以轻松实现更强大的功能。方法如下：
　　首先，从《金山词霸2000》光盘上\ciba子目录下运行mstts.exe(MS TTS engine)并安装spchapi(MS Speech API)。
　　第二，进入VB6.0,执行菜单“工程”中的“引用”，“浏览”到Windows目录下的Speech子目录，打开vtxtauto.tlb,则“VoiceText 1.0 Type Library”将被添加到可用的引用中。选中它，然后单击确定。
　　第三，执行菜单“文件/新建工程/标准EXE”并确定，在Form1中添加Text1,command1,command2,command3和command4。主要属性设置如下：
　　Form1的StartUpPosition=2
　　Text1的MultiLine=True,Caption=″How are you?″,ScrollBars=2
　　Command1的Caption=″Read″
　　Command2的Caption=″Stop″,Enabled=false
　　Command3的Caption=″Pause″,Enabled=false
　　Command4的Caption=″Quit″
　　第四，代码如下：
　　′通用声明
　　Private Declare Function waveOutGetNumDevs Lib ″winmm.dll″ () As Long
　　Private Sub Form_Load()
　　′通过API函数调用,判断系统是否安装有声卡以及声卡驱动程序
　　Dim i As Integer
　　i = waveOutGetNumDevs()
　　If i <= 0 Then
　　MsgBox ″系统无声卡或未装声卡驱动程序，请安装好以后再试...″, ″错误提示″
　　Unload Me
　　Else
　　′注册
　　Call VTxtAuto.VTxtAuto.Register(Space(10), Space(10))
　　End If
　　End Sub
　　Private Sub Command1_Click()
　　′如果text1中有汉字,转到错误提示
　　On Error GoTo handler
　　′开始朗读
　　Call VTxtAuto.VTxtAuto.Speak(Trim(Text1.Text), vtxtsp_VERYHIGH ＋ vtxtst_READING)
　　Command2.Enabled = True
　　Command3.Enabled = True
　　Exit Sub
　　handler:
　　MsgBox ″本程序只能阅读英文文档″, , ″错误提示″
　　End Sub
　　Private Sub Command2_Click()
　　′停止朗读
　　Call VTxtAuto.VTxtAuto.StopSpeaking
　　Command2.Enabled = False
　　Command3.Enabled = False
　　End Sub
　　Private Sub Command3_Click()
　　′暂停或恢复朗读
　　If VTxtAuto.VTxtAuto.IsSpeaking Then
　　Call VTxtAuto.VTxtAuto.AudioPause
　　Command3.Caption = ″Resume″
　　Else
　　Call VTxtAuto.VTxtAuto.AudioResume
　　Command3.Caption = ″Pause″
　　End If
　　End Sub
　　Private Sub Command4_Click()
　　Unload Me
　　End Sub
　　程序运行时,在Text1中输入英文句子,然后单击“朗读”按钮,即可实现朗读。
　　第五，说明:
　　1.成员函数的第一个参数向TTS引擎传递需要朗读的文字,第二个控制朗读时的语气和优先级,由两个常量相加组成。
　　控制优先级的常量有：vtxtsp_HIGH = 256 (＆H100)，尽快读出，加入播放队列开始。vtxtsp_NORMAL = 512 (＆H200)，默认，加入播放队列末尾。vtxtsp_VERYHIGH = 128 (＆H80),立即读出，可打断正在读的内容。
　　控制语气的常量有：vtxtst_COMMAND = 4，命令的语气。vtxtst_NUMBERS = 32 (＆H20)，阅读数字的语气。vtxtst_QUESTION = 2，提问的语气。vtxtst_READING = 16 (＆H10)，阅读文档时的语气。vtxtst_SPREADSHEET = 64 (＆H40)，阅读电子表格中元素的语气。vtxtst_STATEMENT = 1，平时说话时的语气，默认。vtxtst_WARNING = 8，警告语气。
　　2.通过IsSpeaking可以取得当前状态,AudioPause和AudioResume实现暂停和恢复朗读。
　　3.另外，AudioFastForward和AudioRewind可以向前和向后跳过一句朗读,修改Speed属性的值可以设置朗读的语速,默认是170。
　　4.本程序支持粘贴功能，可从剪贴板中粘贴英文文档内容到文本框中，也可直接输入英文句子。
　　

[july]

TTS

[skt642]

83094关注！