1、播放前要先open
今天测试TMediaPlayer播放mp3文件时,写了如下代码,报错:
Player.Close;
Player.Notify := True;
Player.FileName := 'alarm.mp3';
Player.Play;
错误为“No MCI device open”,查阅资料后发现需要在Player.Play前加上Player.Open;
2、重复播放问题
如果想在播放完一次后继续播放,可以在notify事件中写如下代码:
if Player.NotifyValue = nvSuccessful then
Player.Play;
不能通过Player.Mode = mpStopped判断已播放完毕,因为测试的时候播放完返回时Player.Mode竟然是mpPlaying