关于MediaPlayer的一个小问题。

lucent 2002-05-14 09:17:28
在MediaPlayer的FileName属性中指定要播放的文件名,一切正常。
但写成这样的形式,运行时就出错:
MusicPath:=ExtractFilePath(ParamStr(0))+'\The_day_you_went_away.mp3';
MediaPlayer1.FileName:= MusicPath ; //MusicPath为一全局变量。
MediaPlayer1.Open;
MediaPlayer1.Play;
...全文
33 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
lucent 2002-05-17
  • 打赏
  • 举报
回复
还是不行呀!老出错,不知怎么搞的?
juky_liu 2002-05-14
  • 打赏
  • 举报
回复
写成这样
GetDir(0,MusicPath);//取出程序所在文件夹

MusicPath:=MusicPath+'\The_day_you_went_away.mp3';;
MediaPlayer1.FileName:= MusicPath ; //MusicPath为一全局变量。
MediaPlayer1.Open;
MediaPlayer1.Play;
lucent 2002-05-14
  • 打赏
  • 举报
回复
出现"NO MCI driver open"错误。
lucent 2002-05-14
  • 打赏
  • 举报
回复
这些代码是在FormCreate事件中的,窗体初始化时调用。
lucent 2002-05-14
  • 打赏
  • 举报
回复
这些代码是在FormCreate事件中的。
窗体初始化时调用。
wisenowa 2002-05-14
  • 打赏
  • 举报
回复
什么错误?

是不是你在执行这些代码时你的MediaPlayer还Open着呢?

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧