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

最新推荐文章于 2025-05-05 09:46:19 发布

weixin_33893473

最新推荐文章于 2025-05-05 09:46:19 发布

阅读量150

点赞数

本文介绍如何使用Delphi7中的mpPlayer组件实现Wave音频的同步播放，并提供了播放部分音频片段及连续播放多个Wave文件的代码示例。

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;