CSDN博客

img netseek

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

发表于2002/10/14 9:31:00  1565人阅读

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

最近在网上闲逛,发现了一个文本语音开发包,使用它,可以方便的实现将文字变成语音输出的功能。我一直就比较看好软件语音的发展,连比尔盖茨都说,文字操作系统,图形操作系统,下一个技术发展的趋势就是语音版操作系统,虽然没有接触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

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

相关博文

我的热门文章

img
取 消
img