Delphi多媒体设计之TMediaPlayer组件（二）

Wave音频（Wave Audio）

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

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属性也是很必要的。例如下面的代码：

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秒结束。

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