2024年4月29日发(作者：)

ＩＳＳＮ

Ｃ唧ｆ橱ｒ

Ｋ『”俐瓠啪ａ删ｎ咖『０∥电脯知识与技术

２００９．ｐｐ．２６６９，２６７４

１００９—３０４４

Ｅ—ｎｌａｉｌ：ｗｌｔｘ＠ｃｃｃｃ．ｎｅｔ．ｃｎ

ｈｔｔｐ洲ｗｗｗ．ｄｎ玛．ｎｅｔ．ｃｎ

５６９０９６４

Ｔｅｌ：＋８６－５５１—５６９０９６３

Ｖ０１．５，Ｎｏ．１０’Ａｐｒｉｌ

用ＤｅＩｐｈｉ实现录音程序

陈彬茹

（空军航空大学计算机教研室．吉林长春１３００２２）

摘要：音频采集和录制软件是多媒体技术中的一个重要组成部分。本文利用ＢｏｒｂｎｄＤｅｌｐｌｌｉ开发平台，介绍了结合ＭｅｄｉａＰｈｙ盯控件

定义声音文件过程，给出了实现录音程序设计的方法和步骤。

关键词：录音程序；Ｄｅｌｐｌｌｉ；控件；音频信号

中图分类号：ＴＰ３１ｌ

Ｒ优ｏｒｄｅｒ

文献标识码：Ａ

ｏｎ

文章编号：１∞９—３０４４（２∞９）１０＿．２６凹－ｏｌ

Ｐｍ萨锄Ｄｅｓｉｇｎ

Ｂａｓｅｄ

Ｄｅｌｐｍ

ＣＨＥＮ

Ｂｉｎ—ｒｕ

（ＣｏＩｎｐｕ时Ｓｔａ正Ｊ慨ｄｏｎ

Ｕｎｉｖｅ两ｔ），ｏｆＡｊｒ

Ｆｏｒｃｅ，Ｃｈａｎｇｃｈｕｎ

１３００２２，Ｃｈ叫

Ａｂｓｔｎｃｔ：Ａｕｄｉｏ

ｐｌｉｃａｔｉｏｎ

咒ｃｏｒｄｅｒ

ｃｏⅡｅｃｄｏｎ

ｍｄ

ｒｅｃｏｒｄｅｒ

ｔＩｌｅ

ｐｌａ岛皿ｄｉｓｃｌｌＳｓｅｄ

ｐｒｏ铲ａＩｌｌ托ａｌｉ盈ｄｏｎ．

ｓ０危ｗ玳批ｍｅ

ｃｒｉｄｃａｌ

ｐａｒｔ

ｏｆｄｌｅ

ｍ１１ｌｄ眦ｄｉａ

ｔｅｃｈｎｏｌｏｇｙ．Ｔ岵ｐａｐｅｒ

ｕｄｌｉｚｃｄＢｏｄａｎｄ

Ｄｅｌｐ｜ｌｉ

ａｐ—

ｍｅ血ｏｄ

ａｎｄ

ｐｒｏｃｅｓｓ

ｏｆ

ｐｒｏｃｅｄｕ傩ｏｆ

ｄｅ丘１１吨“ｄｉｏ伍岱ｂ蹴ｄ∞Ｍｅｄｉａｐｈｙｃｒ

ｃｏｍｐｏｎｅ她ｐｒｅｓｅｎｔｅｄ

ｄｌｅ

Ｋｅｙ．ｗｏｒｄｓ：Ｒｅｃｏｒｄｐｒｏ印删Ｄｅｌｐｌｌｉ；ｃ伽平嘶ｅｎｔ；Ａｕｄｉｏ啦ｍｌ

１引言

Ｄｅｌｐｈｉ是基于０ｂｉｅｃｔＰａｓｃａｌ语言的可视化编程集成开发环境，具有基于窗体和面向对象的方法，高速的编译器，与Ｗｉｎｄｏ啪编

程紧密结合．功能强大，成熟而丰富的组件易学易用，即使是非计算机专业的人员，也可以利用Ｄｅｌｐｈｉ编制界面完整功能齐备的程

序Ｉｌ】。多媒体程序更是ＤｅｌｐｌＩｉ开发应用程序的优势之一。本文就以Ｄｅｌｐｈｉ为设计平台，介绍开发“录音”程序的具体方法和过程。

２实现原理

设计、编写录音软件，需要用到Ｄｅｌｐｈｉ中Ｓｙｓｔｅｍ页面下的

Ｍｅｄｉａｐｌａｙｅｒ控件。录音功能的前提是定义Ｗ盯文件的文件头格

式。然后通过Ｍｅｄｉａｐｌａｙｅｒ控件录制声音并写进音频文件田。生成的

ＷＡＶ文件则通过编写一个ＣｒｅａｔｅＷａｖ过程。Ｃ阳ａｔｅＷａｖ过程中的

几个参数及作用如表１所示。

ＣＩ－ｅａｔｅＷａｖ过程的具体调用方式为：ＣｒｅａｔｅＷａｖ（１，８，１１０２５，，ｃ：

、ｔｅｍｐ．ｗａＶ，）；

其功能是在Ｃ盘根目录下创建一个８位单声道频率为１１０２５的名为ｔｅｍｐ．ｗａｖ的Ｗａｖ文件。

表１

ＣｒｅａｔｅＷａｖ过程中参数

３实现过程

在Ｄｅｌｐｈｉ开发环境中，新建一个Ａｐｐｌｉｃａｔｉｏｎ

ＦｏｒＷｉｎ

３２的应用程序，在窗体中添加３个控件：１个Ｍｅｄｉａｐｌａｙｅｒ控件和２个

Ｂｕｎ叽控件。其中，２个Ｂｕｎｏｎ控件的Ｃａｐｔｉｏｎ属性分别设置为“开始录音”和“停止录音”。Ｗａｖ文件头声明的具体代码如下：

７ｒｙｐｅ

Ｔ＇ⅣａｖＨｅａｄｅｒ＝ｒｅｃｏｒｄ／，定义一个Ｗａｖ文件头格式

ｅｎｄ：

界面和主程序框架建立后．编写ＣｒｅａｔｅＷａｖ的过程，主要代码如下：

ＴＦｏ珊１．ＣＴ｝ｅａｔｅｗａｖ（ｃｈａｎｎｅｌｓ：ｗｏｒｄ；Ｉ

１（单声）或者２（立体声）ｌｒｅｓ０１ｕｔｉｏｎ：ｗｏｒｄ；｛８或者１６，代表８位或１６位声音ｌ

ｒａＩｅ：ｌｏｎｇｉｎｔ；｛声音频率，如１１０２５，２２０５０，“１００】ｆｎ：ｓｔｒｉｎｇ｛对应的文件名称】）；

ｐｒｏｃｅｄｕＩ．ｅ

ｗｆ：Ｉｉｌｅ“ＴＷａｖＨｅａｄｅｒ：

ｗｈ：ＴＷ且ｖＨｅａｄｅｒ＝

ｂｅｇｉｎ

ｗｈ．ｎＣｈ姐ｎｅｌｓ：＝ｃｈａｎｎｅｌｓ：

ｗｈ．ｎＡｖｇＢ归Ｐｅｒｓｅｃ：＝ｃｈａｎｎｅｌ８幸ｒａｔｅ幸（ｒｅ∞ｌｕｔｉ∞ｄｉｖ

ｗｈ．ｎＢｌｏｃｋＡｌｉ印．－ｃｈ衄ｅ”∞∞ｌｕｔｉｏｎ

ｄｉｖ

８）；

ｗｈ．ｗＢｉｔｓＰｅ６锄ｐｌｅ：＝ｒｅ８０ｌｕｔｉｏｎ；

ｗｈ．ｎＳａｍｐｌｅｓＰｅｒ苣；ｅｅ：＝ｍｔｅ；

８）；

（下转第２６７４页）

－一－－－·。·计算机ｔ掌与敦膏信息化－－２６６９

ｃｃ柳咖，∞耐Ｂ啦删乃啪∞蚴电嚣知识与技术

重如何引导学生开展研究性、探索性学习。同时课件制作应注意简洁，以免影响学生注意力。

第５卷第１０期《２００９年４月）

５结论

多媒体教学有利有弊，我们只有尽力做到因时制宜，因材施教，趋利除弊，扬长避短。才能达到较为满意的教学效果。

参考文献：

【ｌ】刘育涛，安素平．试论多媒体课件在教学中的作用［Ｊ】．河北师范大学学报，２００２，４，（１）：６２一“．

【２】周中云．基于个别化教学多媒体课件设计的反思【Ｊ】．中国电化教育，２００３，（１）：４９～５１．

【３】黄秋生．谈谈多媒体教学课件制作中的几个问题【Ｊ】．中国电化教育，２００２，（７）：４５—垢．

郭若飞（１９８２一），女，内蒙古商都人，助教，本科，主要研究方向：教学研究。

（上接第２６６９页）

在“开始录音”的Ｂｕｔｆｏｎ控件中编写功能代码，实现录音功能；在“停止录音”的Ｂｕｔｔ伽控件中添加功能代码，实现停止录音的功

能．核心代码如下：

乱开启录音代码

ｔｒｙ

ｃｒｅａｔｅｗａＶ（１，８，ｌｌ

０２５，（ＥｘｔｒａｃｔＦｉｌｅＰａ山（Ａｐｐｌｉｃａｔｉ明．ＥｘｅＮ明ｌｅ）＋１ｒｅｍｐ．ｗａｖ，）；

·ＭｅｄｉａＰｌａｙｅｒｌ．ＤｅｖｉｃｅＴｙｐｅ：＝ｄｔＡｕｔｏＳｅｌｅｃｔ；

ＭｅｄｉａＰｌＢｙｅｒｌ．０ｐｅｎ；

ＭｅｄｉａＰＩａｙｅｒｌ．ＦｉｌｅＮ８ｍｅ：－（ＥｘｔｒａｃｔＦｉｌｅＰａｔｈ（Ａｐｐｌｉｃａｔ疏ＥｘｅＮ砌ｅ）＋仉ｍｐ．ｗａｖ，；

ＭｅｄｉａＰＩａｙｅｒｌ．ＳｔａｒｔＲｅｃ刊ｉｎ簖

ｅｘｃｅｐｔ

Ａｐｐｌｉｃａｔｉｏｎ．ＭｅｓｓａｇｅＢｏｘ（’媒体设备初始化失败！ｊ’错误：ＭＢ－ＩＣＯＮＥＲＲＯＲ＋ＭＢ．＿ｏＫ）；

ｅｎｄ二

ｅｎｄ：

ｂ．停止录音代码

田

ＭｅｄｉａＰｌａｙｅｒｌ．Ｓｔｏｐ；

ＭｅｄｉａＰｌａｙｅｒｌ．Ｓａｖｅ；

ＭｅｄｉａＰｌａｙｅｒｌ．ＣＪｏ∞；

Ａｐｐｌｉｃａｔｉｏｎ．ＭｅｓｓａｇｅＢｏｘ（’声音录制完毕！，’７信息’，ＭＢ－ＩＣＯＮＩＮＦＯＲＭＡＴｌ０Ｎ＋ＭＢ—０Ｋｋ

靠ｃｅｐｔ

Ａｐｐ“ｃａｌｉ咖．ＭｅｓｓａｇｅＢｏｘ（７保存声音文件出错！，＇７错误ｊＭＢ＿Ｉｃ０ＮＥＲＲＯＲ＋ＭＢ—ＯＫ）；

ｅｎｄ：

保存并运行该程序，在计算机上安装好麦克等音频输入设备。点击。开始录音”按钮，程序就会通过麦克采集声音；关闭录音功

能后。会在程序所在目录下生成一个“Ｔｅｍｐ．ｗａｖ”的音频文件。在操作系统中利用相应的播放软件就可对录音进行试听。若提高录音

文件音质，可以改变ＣｒｅａｔｅＷａｖ过程中的参数。程序通过Ｄｅｌｐ垴２００５编译，在职ｎｄｏｗｓ

ＸＰ

ＳＰ３中运行测试通过。

４总结

本文介绍了用Ｄｅｌｐｈｉ设计“录音”程序的方法和过程，给出了完整的设计思路及核心代码。该研究体现出Ｄｅｌｐｈｉ进行面向对象

程序设计的思想和理念，并对音频文件的生成原理进行了剖析和详细描述Ｄｌ，为Ｄｅｌｐｈｉ进行复杂多媒体音频处理程序的设计和开发

提供了一个有效的方法和思路。

参考文献：

【１】余萍．用Ｄｅｌｐｈｉ实现多媒体系统中多种声音的同时输出叨．重庆文理学院学报（自然科学版），２００７，２６（２）：６４—６６．

【２１丁民选．录音技术在课件制作中的应用叨．山西广播电视大学学报，２００７（１）：３９—４０．

【３】钱冬云．基于Ｄｅｌｐｈｉ的新型多媒体播放器的制作叨．浙江工贸职业技术学院学报，２００７，７（２）：５０一５４．．

咋彬茹（１９８３一）。女，吉林柳河人，助教，研究方向：计算机应用软件研发和计算机基础教育。

２６７４－－计算机薮掌与ｔ膏值皇化··－·一ｔ一－

本拦目赛庄编辑：王力