TMediaplayer顺序播放媒体文件的问题?(100分)

K

Kenky

Unregistered / Unconfirmed
GUEST, unregistred user!
现在正在做一个需要顺序播放媒体文件的系统,从数据库中取出播放序列,里面包含多媒体文件的有关信息。我现在的做法是做个循环,遍历结果集,依次将文件信息付给TMediaplayer播放。
可是当前问题是如何能够让循环等待当前文件播放完毕再让循环执行下去。我使用了Wait;=True;
这样的问题是程序整个处在一种“没有响应”的状态,而且想控制进度的显示也有问题,因为当前程序没有取得控制权,Timer根本不起作用。
哪位DX有经验,给个解决方法!谢了先!
 
去看我的笔记吧,播放结束时有事件通知的.
 
你是说在onNotify事件中控制打开下一个文件?而不是采用循环的方式?
 
最简单的方法是加一个TIMER,
写入:
if mediaplayer1.mode=mpstopped then

begin

mediaplayer1.close;
mediaplayer1.filename:=NextFile;
mediaplayer1.open;
mediaplayer1.play;
end;
 
顶部