1,183
社区成员
发帖
与我相关
我的任务
分享高分求：用 Tmediaplayer连续播放！！
怎样用Tmediaplayer 实现连续播放！？
就是一个文件播放完了过后，会产生什么事件或消息？！！
急求！大哥们救我！！！
就是一个文件播放完了过后，会产生什么事件或消息？！！
急求！大哥们救我！！！
...全文
请发表友善的回复…
发表回复
boatzm 2003-10-21
- 打赏
- 举报
谢了，已经解决了。
ps：我也不知道是怎么的，第一次不行，（可能敲错了）：（
ps：我也不知道是怎么的，第一次不行，（可能敲错了）：（
YYQQ 2003-10-21
- 打赏
- 举报
要么你看看你uses 里有没有加MPlayer这个单元 , 在我这里行啊
YYQQ 2003-10-21
- 打赏
- 举报
to boatzm(小舟):
不会吧，在你那里运行不了吗?
nvSuccessful 是VCL定义了的枚举常量, 不用管的, 在MPlayer.pas里
不会吧，在你那里运行不了吗?
nvSuccessful 是VCL定义了的枚举常量, 不用管的, 在MPlayer.pas里
boatzm 2003-10-20
- 打赏
- 举报
YYQQ(阿鱼) ：
这句就有问题。
if MediaPlayer1.NotifyValue = nvSuccessful then //播完了, 做其它的事
提示：nvSuccessful 是啥子类哦，反正不匹配！
这句就有问题。
if MediaPlayer1.NotifyValue = nvSuccessful then //播完了, 做其它的事
提示：nvSuccessful 是啥子类哦，反正不匹配！
YYQQ 2003-10-20
- 打赏
- 举报
//播放结束时触发OnNotify事件, 根据NotifyValue值判断
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
if MediaPlayer1.NotifyValue = nvSuccessful then
ShowMessage('end');
end;
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
if MediaPlayer1.NotifyValue = nvSuccessful then
ShowMessage('end');
end;
