用Tmediaplay 一个文件放完后会出现什么事件？

boatzm 2003-10-18 06:25:25

怎样连续播放多个文件？
我用onNotify 能实现，可是有问题？！

我像拦截他文件完时候的事件？请教！！

...全文

41 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

vagerent 2003-10-20

打赏
举报

sorry,email晚发了一天，现在好了。

boatzm 2003-10-20

打赏
举报

解决了谢谢大家哈。快到这边来接分！

http://expert.csdn.net/Expert/topic/2059/2059971.xml?temp=.7366907
等一天.

vagerent 2003-10-19

打赏
举报

to 小舟

联系播放也实现了,代码我下午寄过去,现在在网吧呢.

boatzm 2003-10-19

打赏
举报

顶一顶，问题没解决哈！！

boatzm 2003-10-19

打赏
举报

vagerent(哪天我打电话给她) :

谢谢，期待中！

boatzm 2003-10-18

打赏
举报

karach(卡车) :

哪儿能找到NotifyValue的属性介绍？？

boatzm 2003-10-18

打赏
举报

squirrelzm@xinhuanet.com 谢了
实现联系播放没？

vagerent 2003-10-18

打赏
举报

是的，onNotify不行的，我试过了。以前我也作了一个播放器，基本功能都有了（包括拖拽播放，列表，循环）如果需要请留下email我给你发过去，共同进步。

karach 2003-10-18

打赏
举报

var s:string
begin
getdir(0,s);
mediaplayer1.FileName:=s+'\avi\df11fzgz01.wav';
mediaplayer1.Open;
mediaplayer1.Play;
end;

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
if (mediaplayer1.NotifyValue=nvsuccessful)and (mediaplayer1.Mode=mpstopped) then
begin
~~~~~~~~~~~~~~~~~~~~~~//应该在这里实现吧，我也没有试过
end;
end;