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;