delphi的MediaPlayer控件为何不能够连续播放多个波形文件?有何解决办法?(在线等)(50分)

  • 主题发起人 主题发起人 风逍遥
  • 开始时间 开始时间

风逍遥

Unregistered / Unconfirmed
GUEST, unregistred user!
delphi的MediaPlayer控件为何不能够连续播放多个波形文件?有何解决办法?
如下所示,只能听到end.
wav,听不到start.wav。如何才能让其都能按顺序听到?
Fm_Select.MediaPlayer1.Close;
Fm_Select.MediaPlayer1.FileName:=G_MusicPath+'start.wav';
Fm_Select.MediaPlayer1.Open;
Fm_Select.MediaPlayer1.Play;
Fm_Select.MediaPlayer1.Close;
Fm_Select.MediaPlayer1.FileName:=G_MusicPath+'end.
wav';
Fm_Select.MediaPlayer1.Open;
Fm_Select.MediaPlayer1.Play;
 
比较罗嗦.用定时器.
procedure TForm1.Timer1Timer(Sender: TObject);
begin

if MediaPlayer.Position=MediaPlayer.Length then

beign
MediaPlayer1.Close;
MediaPlayer1.FileName:=G_MusicPath+'end.
wav';
MediaPlayer1.Open;
MediaPlayer1.Play;
end
end;
 
如何让start.wav和end.
wav这两个文件都能被播放出来?用定时器我试过,但要求定时
的时间间隔设的恰到好处,否则要么第一个文件播放完以后要等很久才听到第二个文件,
要么第一个文件还没有播放完就听到第二个文件了。如果文件大小不同并且同时有多个
文件要播放,就更不行了。我的应用就是要同时播放多个文件。请各位高手想想还有没
有更好的方法?
 
当 position 等于 length 时,那么就是播完了,
然后拨第二个,以后依次处理。
播放器就是这么处理的
 
只能用LeeChange的方法了。我没有找到别的方法
 
后退
顶部