|
盒子资源分类 |
|
|
|
|
EPlayer简易MP3播放器示例程序 |
|
关键字:API MMSystem MediaPlayer 播放器 示例程序 |
来 自:原创 |
平 台:Win9x,Win2k/NT,WinXP |
下载所需:0 火柴 |
深浅度:初级 |
完成时间:2004/5/13 |
发布者:yckxzjj |
发布时间:2004/5/14 |
编辑器:DELPHI6 |
语 种:简体中文 |
分 类:多媒体 |
下载浏览:1677/13749 |
|
|
|
|
各位编程爱好者: EPlayer简易播放器示例程序。 程序的测试环境:Delphi6.0操作系统是Windows XP,涉及到相关应用技巧有: (1)API,左右声道的控制都使WindowsAPI的调用. (2)Delphi的Mediaplay控件的调用. (3)MMSystem接口的引用. (4)OpenDialog打开文件. (5)利用配置文件进行文件信息的列表保存. (6)TrackBar使用,用来控制声音与进度条. (7)Panel用来显示当前播放的一些信息. (8)MCI Command string是多媒体设备的程序接口. 示例程序中存在许多不足之处,有兴趣的网友可以完善它。 整个示例程序的内容就是如此,希望对初学者有一些帮助吧。 如有可能,邮上一份完善的代码。yckxzjj@163.com[刀剑如梦] |
本站原创作品,未经作者许可,严禁任何方式转载;转载作品,如果侵犯了您的权益,请联系我们! |
相关文章 |
|
|
|
相关评论 |
|
共有评论9条
当前显示最后6条评论
|
yckxzjj |
2004/8/28 17:34:30 |
增加了添加目录文件功能,实用快捷! 更新下载: http://vip.efile.com.cn/yckxzjj/EPlayer.rar |
qinbaoxiong |
2004/11/18 16:19:43 |
好象在播放列表的方面存在一点问题... |
ludou |
2005/7/4 15:46:03 |
这个程序的进度条有点问题,歌还没放完进度条就走完了,应该在播放功能里加上 TrackBar_Play.Max:=MediaPlayer.Length div 1000; |
youmin |
2006/10/2 8:40:21 |
进度条没有问题啊,这个瞒不错的,我自己也做了一个,不过加上进度后, wav格式的音乐都变得有点卡,mp3,wmv,rm就更别提了,基本上是按下播放键,就放一秒钟,我开始还以为DELPHI自学的tmediaplayer不好呢,这样看来,是我的程序太差了,得分析分析,太感谢了 |
youmin |
2006/10/2 8:42:06 |
如果视频能实现全屏的就好了 |
wufeng1205 |
2007/11/24 17:10:26 |
我觉得这个真的是很好啊, ludou所提的问题其实很简单,因为在里面有这样一段代码: procedure TfrmPlayList.AutoPlayTimerTimer(Sender: TObject); begin if frmEPlayer.MediaPlayer.Mode = mpPlaying then if frmEPlayer.MediaPlayer.Position >= frmEPlayer.MediaPlayer.Length - 1000 then PlayNext; end; ,我给自己的解释是: //之所以要减去1000,是作者把每首歌曲唱完后的一点点空白的内容不去播放了,直接跳至下一首歌, //但如果歌曲没有空白的话,那么这首歌还没唱完就会跳到下一首去了 ========== 总之我觉得这代码挺好的, 关于ludou所讲的加上的那条代码,你还要除1000干嘛呢,还要将它换成秒吗,那还不是一回事,只要他前面减1000的代码不走,你的歌曲如果刚好唱完的话,那你的歌的最后一秒就永远了唱不出来的了(呵呵……) ========== |
我要发表评论 |
查看全部评论 |
|
|
|