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