Wave音频(Wave Audio)

播放Wave音频是最基本的多媒体操作之一,它可能是最普通的,同步播放Wave文件代码如下:

?
1
2
3
4
5
6
7
procedure TForm1.btn1Click(Sender: TObject);
begin
  mpPlayer.Wait := True; { 同步播放}
  mpPlayer.FileName := 'test.wav';
  mpPlayer.Open;
  mpPlayer.Play;
end;

注意Wait属性设置为True,使得Wave文件同步播放。


如果想紧接(back-to-back)着播放下一Wave文件,Wait属性也是很必要的。例如下面的代码:

?
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.btn2Click(Sender: TObject);
begin
  mpPlayer.FileName := 'Sound1.wav';
  mpPlayer.Open;
  mpPlayer.Wait := True;
  mpPlayer.Play;
  mpPlayer.FileName := 'Sound2.wav';
  mpPlayer.Wait := True;
  mpPlayer.Open;
  mpPlayer.Play;
end;

注意,在播放每个文件前设置Wait属性为True。Wait属性在操作之后重新设置。因此,要想每当程序执行播放完成后,必须重新设置Wait属性。

如果没有设置Wait属性为True,则第一个声音开始播放并很快被稍晚一点点开始的第二个声音取代。如果想在后台播放声音,可设置Wait属性为False。


播放一部分Wave文件,可在播放前设置StartPos和EndPos属性。下面的例子打开Wave文件,并播放2秒声音。1秒开始,3秒结束。

?
1
2
3
4
5
6
7
8
procedure TForm1.btn3Click(Sender: TObject);
begin
  mpPlayer.FileName := 'test.wav';
  mpPlayer.Open;
  mpPlayer.StartPos := 1000; { 单位 毫秒}
  mpPlayer.EndPos := 3000;
  mpPlayer.Play;
end;

StartPos和EndPos属性都是以毫秒为单位,这是Wave音频设备默认值。

Note

如果设置StartPos或者EndPos属性为无效值,则Wave文件不播放。无效值包括StartPos或者EndPos属性的值大于媒体长度。


以上代码均在Delphi 7下测试通过,示例代码下载:TMediaPlayer.rar

转:http://www.cnblogs.com/pchmonster/archive/2012/07/13/2590977.html

Delphi多媒体设计之TMediaPlayer组件(二)相关推荐

  1. Delphi多媒体设计之TMediaPlayer组件(一)

    VCL为简单多媒体操作提供MediaPlayer组件.该组件位于选项板组件System中. 该组件可播放Wave文件.MIDI文件.AVI视频等等.如果只是简单的播放Wave文件,常常使用上一讲中的P ...

  2. Delphi多媒体设计之播放WAVE文件(API)

    多媒体程序设计是一个名不符实的词组,其道理就是多媒体程序设计包含着广泛的可能性,它尤其包括了Wave音频.MIDI音频.AVI视频和动画等.不要将多媒体程序设计与游戏程序设计混淆了. 游戏设计自然包含 ...

  3. DELPHI第三方控件及组件大全(安装方法与使用)

    一,DELPHI第三方控件安装方法介绍 1.对于单个控件,Componet–>install component..–>PAS或DCU文件–>install; 2.对于带*.dpk文 ...

  4. Delphi创建COM组件并分别用Delphi和html调用该组件的简单实例

    一.功能介绍及效果图 用delphi xe6 创建一个简单的COM组件,并分别测试了用delphi和HTML调用该组件的方法ShowWuXiaNames.效果图如下: 图一:在Windows中注册的C ...

  5. 多媒体设计与制作是什么专业?

    很多人对媒体设计不了解,对此会有疑问:"多媒体设计与制作是什么专业?".多媒体设计,就是利用多媒体,以计算机为中心的多种媒体作为工具来设计作品,这些媒体包括文本.图形.动画.静态/ ...

  6. 多媒体设计计算机音乐创作原创音乐,多媒体设计计算机音乐创作原创音乐[计算机辅助音乐创作教学,改善课堂教学效果].doc...

    多媒体设计计算机音乐创作原创音乐[ 计算机辅助音乐创作 教学 , 改善课堂教学效果] 音乐作曲软件的开发利用 , 是"计算机音乐创作教学" 得以开展的保证 , 同时也为学生在音乐方 ...

  7. 民俗多媒体设计如何突出其独特的特色

    民间艺术多媒体交流活动本身就是一种具有博物馆性质的民族风情活动,一般要求从历史.制度.文化.地域风貌等方面综合表现各民族的差异.特色,以继承和宣传其文化,增强民族凝聚力. 针对这一具有特殊文化政治宣传 ...

  8. Delphi应用程序的调试(二)使用断点

    Delphi应用程序的调试(二)使用断点 使用断点(Using Breakpoints) 当用户从Delphi IDE 运行程序时,程序全速运行,只会在设置了断点的地方停住. New Term 断点( ...

  9. 计算机广告制作未来发展还行吗,计算机多媒体设计专业和广告设计制作那个好...

    技校网专门为您推荐的类似问题答案 问题1: 计算机多媒体技术和广告设计与制作哪个专业好 计算机多媒体涵盖范围广.广告与制作就业前景好.如果想学更多东西的话选择计算机多媒体.包含广告设计. 问题2: 计 ...

最新文章

  1. GRE OVER IPSEC
  2. java实现sql批量插入参数
  3. PHP中调用Java类的两个办法
  4. 两点C#的propertyGrid的使用心得
  5. 【报错笔记】项目使用了JSONArray类,导了import net.sf.json.JSONArray;包报错
  6. java为何重复调用方法_通过反射调用Java中的getter:重复调用它的最快方法是什么(在性能和可伸缩性方面)?...
  7. php html区别_php与html区别
  8. app运行租用服务器,app租用服务器
  9. 2020互联网岳麓峰会“软件再出发论坛”成功举办
  10. [转载] python json unicode utf-8处理总结
  11. 原生JavaScript实现异步校验详解
  12. 林老师话说天南地北  我的学生在美国西雅图微软总部
  13. 安鸾_soap协议注入
  14. 索尼z2d6503刷机包原厂售后专用固件
  15. tfs管理java代码_TFS2010 版本控制权限设置
  16. RPM包安装相关命令
  17. 41.朴素贝叶斯Naive Bayes公式推导与理解+求解公园凉鞋问题(借助文氏图)
  18. html5分镜头脚本范例,分镜头脚本范本
  19. 三、神奇的自然常数e之“自然”兄弟
  20. 868-超详细 DNS 协议解析

热门文章

  1. Linux系统文件属性,什么是Linux系统的文件属性?
  2. linux中tags文件能删除吗,Git 详细介绍查看、删除、重命名远程分支和tag
  3. java中常见的专业术语单词缩写,看你认识几个
  4. 把iconfront的资源放cdn访问_详解mpvue小程序中怎么引入iconfont字体图标
  5. linux var 空间不足,/var空间不足怎么办?(求安全保险的方法)
  6. 微型计算机中 辅助存储器通常包括,第7章 微型计算机存储器习题参考答案
  7. linux头文件怎么编译,microsoft编译器怎么使用Linux头文件
  8. Java 跨平台运行机理:Dos 命令在桌面新建文件夹,并在其中编译、运行一段 Java 程序
  9. Openstack面试题和知识点总结
  10. s2sh框架搭建(基于spring aop)