使用文本语音开发包实现语音朗读功能

原创 2002年10月14日 09:31:00
使用文本语音开发包实现语音朗读功能

最近在网上闲逛,发现了一个文本语音开发包,使用它,可以方便的实现将文字变成语音输出的功能。我一直就比较看好软件语音的发展,连比尔盖茨都说,文字操作系统,图形操作系统,下一个技术发展的趋势就是语音版操作系统,虽然没有接触WINDOWS XP,但听说,里面已经集成了一定功能的语音程序。

闲话少说,下载开发包后,经过研究,我发现通过这个开发包在软件中加入语音功能非常简单,虽然功能有限,但让我这个只会VB编程的人来说,简单的几条语句,就可以实现,马上我的软件中就要有语音功能了。

使用开发包前,必须到软件网站下载语音包,网址:http://www.smartysoft.cn/smvoices/download.html, 你可以根据你的需求下载相应的语音包,安装到你的电脑上。其中有中文语音库:实现中文朗读功能;英文语音库:实现英文朗读功能,当然你可以把它们一起下载下来,按照不同的需要调用不同的语音库。当然,我认为这虽然不可避免,但是语音库的文件都有些大,我的软件也就1M左右,但一个中文语音库就快到1.7M,软件体积就一下子变大了。当然,不同的人看法不同,也许有人不在乎呢?呵呵!

下面,我就通过一个实例来说明如果实现语音功能。

第一步,将smartread.dll动态链接库放到系统文件夹或运行文件相同的文件夹中,因为这个文件是语音实现的核心文件,必须让软件能够找到它。开发包中有这个链接库,复制一下就可以了。

第二步,打开VB,新建一个模块,在代码页开始输入下面的语句。

Type BE_VERSION

 byDLLMajorVersion As Byte

byDLLMinorVersion As Byte

    chDay As Long

    chMonth As Long

chYear As Long

End Type

这是开发包版本型号的结构,包括软件版本,软件开发时间。当然,如果你根本不想知道的话,这一步也可以不做。 

第三步,新建一个窗体,在一开始加入:

Private Declare Function Dll_SmartRead_InitialVB Lib "smartread.dll" (ByVal hwndFrom As Long) As Long

Private Declare Function Dll_SmartRead_CloseVB Lib "smartread.dll" (ByVal bNull As Long) As Long

Private Declare Function Dll_SmartRead_SetDialogVB Lib "smartread.dll" (ByVal hwndFrom As Long) As Long

Private Declare Function Dll_SmartRead_SpeakVB Lib "smartread.dll" (ByVal str As String, ByVal bstyle As Long) As Long

Private Declare Function Dll_SmartRead_StopVB Lib "smartread.dll" (ByVal bNull As Long) As Long

Private Declare Function Dll_SmartRead_VersionVB Lib "smartread.dll" (ByVal bNull As Long) As BE_VERSION

Private Declare Function Dll_SmartRead_InitialVB Lib "smartrea            这是smartread.dll动态链接库中,函数的声明,从函数名就可以看出,这是专门针对VB的函数。我简单介绍一个这几个函数的基本的功能。

Dll_SmartRead_InitialVB:用于初始化语音功能,必须在最初调用

Dll_SmartRead_CloseVB:用于关闭语音功能,在程序退出前调用,释放资源

Dll_SmartRead_SpeakVB:朗读函数。

Dll_SmartRead_StopVB:停止朗读函数

Dll_SmartRead_SetDialogVB:用于打开语音设置对话框,改变语音,音量,语速等

Dll_SmartRead_VersionVB:显示开发包版本信息(这个函数可以不用,如果要用的话,就必须作第二步)

第四步,现在就可以在软件中实现语音功能了。

1.  调用Dll_SmartRead_InitialVB

   Dim ddd As Long

ddd = Dll_SmartRead_InitialVB(Me.hWnd) '调用初始化函数

2. 调用Dll_SmartRead_SetDialogVB

Dim ddd As Long

ddd = Dll_SmartRead_SetDialogVB(Me.hWnd) '调用设置函数,可以改变到中文语音库

3.  Dll_SmartRead_SpeakVB

   Dim ddd As Long

ddd = Dll_SmartRead_SpeakVB(“中文语音开发包”, 0) '朗读函数

4.  调用Dll_SmartRead_CloseVB

Dim bNull As Long

   Dim ddd As Long

ddd = Dll_SmartRead_StopVB(bNull) '调用停止朗读函数

5.  调用Dll_SmartRead_CloseVB 

Dim bNull As Long

Dim ddd As Long

ddd = Dll_SmartRead_CloseVB(bNull) '调用关闭函数

这么样,开发包的使用非常简单吧,如果你没有非常需求,文本语音开发包大概就可以满足你的要求了,当然如果你觉得开发包功能不够的话,就要研究微软的Speech API了,但是实现起来没有这么简单了,萝卜青菜,各有所好罢了。

如果你对这种方法感兴趣,可以到文本语音开发包的网站去看一看,现在已经推出1.1版本了。http://www.smartysoft.cn/smartreadsdk/index.html

最后要说明一下,这个开发包只是测试版本,会有注册提示。如果要得到全功能版本,必须要注册,具体信息,到上面的网址去找吧。

用Java实现简单的语音朗读

实验三  利用微软的speech sdk或Java speech api(jsapi)等实现简单的语音(中英文均可)朗读,最好能够实现简单的识别(6学时) 基本要求: 实现简单的语音朗读 bonu...
  • john_bian
  • john_bian
  • 2018年01月10日 17:08
  • 156

python 3 系统文本语音朗读api

首先我们得装上pywin32 下载链接import win32com.client text="I love you baby" speaker = win32com.client.Dispatch...
  • sikuquanshu123
  • sikuquanshu123
  • 2016年02月20日 14:37
  • 675

在网页上通过JS实现文本的语音朗读

摘要: 语音合成:也被称为文本转换技术(TTS),它是将计算机自己产生的、或外部输入的文字信息转变为可以听得懂的、流利的口语输出的技术。 1、接口定义 http://tts.baidu.c...
  • mixi9760
  • mixi9760
  • 2017年07月27日 16:21
  • 2176

【VC++技术杂谈004】使用微软TTS语音引擎实现文本朗读

本文主要介绍如何使用微软TTS语音引擎实现文本朗读,以及生成wav格式的声音文件。   1.语音引擎及语音库的安装   TTS(Text-To-Speech)是指文本语音的简称,即通...
  • shaofei63
  • shaofei63
  • 2015年01月13日 20:56
  • 821

C#将文本用语音朗读

在C#中文字语音朗读有三种方法,下面暂介绍其中一个方法。在项目中引用System.Speech,具体方法为右键点击项目 > 添加引用 > .Net > 找到System.Speech点击确定。...
  • qq_34905123
  • qq_34905123
  • 2017年01月05日 10:23
  • 3841

使用文本语音开发包实现语音朗读功能(VB方法)

  • zgqtxwd
  • zgqtxwd
  • 2008年05月01日 05:05
  • 265

iOS 如何实现 语音朗读

在IOS开发中 我们可以使用 AVSpeechSynthesizer  和  AVSpeechUtterance  这两个类 实现简单的语音朗读   具体事例代码如下      AVSpee...
  • ERIC_Dream
  • ERIC_Dream
  • 2015年01月10日 14:12
  • 1461

在WinForm上添加语音朗读功能

点击下载组件 SpeechVoiceSpeakFlags spFlags = SpeechVoiceSpeakFlags.SVSFlagsAsync; SpVoice...
  • huyang77
  • huyang77
  • 2012年07月30日 13:45
  • 714

Java文本转语音

package com.xh.speak; import java.io.IOException; import com.jacob.activeX.ActiveXComponent; impor...
  • qq_24949727
  • qq_24949727
  • 2016年03月09日 17:28
  • 6725

QT实现文本转语音

转自IntoTheWild的博客:http://blog.sina.com.cn/iuhzzy 最近写一个QT程序时需要用到文本转语音播放,在网上找了很多关于QT调用微软tts的资料,在这总结一下其...
  • love_apartment
  • love_apartment
  • 2017年02月06日 16:27
  • 1497
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:使用文本语音开发包实现语音朗读功能
举报原因:
原因补充:

(最多只允许输入30个字)