基于Delphi的英文发音教学软件的实现_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

基于Delphi的英文发音教学软件的实现

作者：闵涛文章来源：闵涛的学习笔记点击数：874 更新时间：2009/4/23 18:25:33

　　摘要介绍了美国微软公司的全程语音TTS技术，并且在Borland Delphi 7.0可视化编成工具中利用MSTTS技术开发出能够进行英文朗读功能的应用软件，从而总结了利用MSTTS技术开发英语教学软件的有效方法。

　　关键词 MSTTS引擎；MS Speech API；英文朗读

　　引言

　　MSTTS（Microsoft Text-To-Speech）是微软公司研制的一套功能强大的英文文字朗读引擎，它可以将文档中的英文文字信息转换成计算机语音信息，通过计算机声卡发音将内容朗读出来。利用它和相关的语音接口开发出英语发音教学软件，可以实现英文单词发音及整段英文的流利朗读示范。从而，可以使学生在课下或者没有教师的情况下，从软件中获得标准的英文发音的辅助，这对于一些发音不好的英语学习者有极大的帮助。

　　MSTTS引擎简介

　　要在软件的开发过程中使用MSTTS技术，必须安装MSTTS引擎。MSTTS引擎的安装包可以在微软公司的官方网站下载，也可以在“金山词霸”软件的安装盘中找到。运行安装包后，MSTTS引擎将被安装在系统之中，同时，在操作系统控制面板的“添加/删除”程序中会出现“Microsoft Text-to-speech Engine”卸载项。在安装好MSTTS引擎之后，就可以利用的Borland Delphi平台使用MSTTS技术开发相应的英语教学软件，实现英文朗读等功能。

　　设计原理

　　1、软件设计原理

　　软件在Delphi平台中的设计原理是通过调用微软语音接口（MS Speech API）来实现英文文字朗读功能的。安装MS Speech API的方法和MSTTS引擎相同，亦可以在微软官方网站或者在“金山词霸”安装盘中找到。运行spchapi.exe后，Windows目录中会生成一个Speech子目录，其中有一个Vtxtauto.tlb文件，它是相应的类型库，对服务器的接口给出了与语言无关的描述；Vcmd.exe作为进程外的自动化服务器，提供将文本转换为语音的服务。

　　软件的功能分三大模块：语音显示模块、语音控制模块和编辑模块。语音显示模块中，将动态显示朗读对象，即语音自动化服务器的处理对象；语音操作模块中，提供一系列的语音操作，即对语音服务进行动态的个性化处理；编辑模块是对文本内容的个性设定，满足特殊用户的需求。软件的原理如图1所示。

　　　　　图1 软件原理图

　　2、VtxtAuto接口说明

　　Delphi中使用MSTTS引擎的类型库名为VtxtAuto，通过分析，可以了解VtxtAuto的相关成员函数和属性。

　　2.1 Speak函数

　　procedure Speak(const pszBuffer: WideString; dwFlags: Integer); safecall;

　　Speak函数用于实现朗读功能，它有两个参数，第一个参数向MSTTS引擎传递需要朗读的文字，第二个参数由指定朗读时使用的语气和优先级的两个符号合并而成。

　　2.2 Register函数

　　procedure Register(const pszSite: WideString; const pszApp: WideString);safecall;

　　Register函数用于实现接口的注册。在软件的初始化时，Register操作是必须的，因为在操作系统中可能有多个类似的程序在使用MSTTS引擎，通过Register操作可以对每一个使用MSTTS引擎的软件进行设置和区分。

　　2.3 IsSpeaking属性

　　property IsSpeaking: WordBool read Get_IsSpeaking;

　　IsSpeaking属性是一个布尔函数，通过这个属性可以取得当前程序的状态，

　　2.4朗读操作成员函数

　　VtxtAuto对象有一系列的成员函数，通过这些成员函数，可以实现对朗读功能的各种操作、控制，具体函数如表1所示。

表1 VtxtAuto对象的成员函数

函数命令形式

函数说明

VtxtAuto.AudioResume

用于朗读状态的恢复操作

VtxtAuto.StopSpeaking

用于实现停止朗读

VtxtAuto.AudioPause

用于实现暂停朗读

VtxtAuto.AudioFastForward

用于实现向前跳过一句朗读

VtxtAuto.AudioRewind

用于实现向后跳过一句朗读

　　此外，还有一个属性Speed，通过读写Speed属性可以取得或设置朗读的语速，其单位是“字数/分钟”，缺省值为170。

　　软件功能的实现

　　1、VtxtAuto类型库的导入

　　首先，在Borland Delphi平台上，新建一个Application，然后从Project菜单的“Import Type Library...”中选择“Add...”，浏览到Windows目录下的Speech子目录里，打开vtxtauto.tlb，可以看到下面Class names中会出现我们需要的接口的包装类“TVTxtAuto”文件。选中对话框底部的Generate Component Wrapper，点击Create Unit就可以打开一个名为VTxtAuto_TLB的Unit。

[精彩网文]英语励志文章：Just for today  [精彩网文]英文励志文章：Spare No Efforts in Doing Things
[Web开发]判断字符串的长度，截取相应的中英文及特殊字符子…  [网页制作]做英文网站应注意哪些问题
[办公软件]在Excel中如何使用自定义函数截取单元格中的非中文…  [办公软件]使用VBA判断单元格各字符是否为中文、英文、数字、…
[办公软件]Word超级链接在信息技术教学中的妙用  [办公软件]掌握Word英文大小写转换，提高工作效益
[办公软件]信息技术教学篇---Word工具栏的显示、隐藏及四种菜…  [操作系统]IIS错误代码中英文详解

教程录入：mintao 责任编辑：mintao

上一篇教程：全面剖析Delphi 2006新增特性

下一篇教程：用Delphi开发视频聊天软件

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……