|
| 盒子资源分类 |
![]() |
|
|
|
|
| EPlayer简易MP3播放器示例程序 |
![]() |
| 关键字：API MMSystem MediaPlayer 播放器 示例程序 |
| 来 自：原创 |
| 平 台：Win9x,Win2k/NT,WinXP |
下载所需：0 火柴 |
| 深浅度：初级 |
完成时间：2004/5/13 |
| 发布者：yckxzjj |
发布时间：2004/5/14 |
| 编辑器：DELPHI6 |
语 种：简体中文 |
| 分 类：多媒体 |
下载浏览：1677/13748 |
|
|
|
|
|
各位编程爱好者：
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的代码不走,你的歌曲如果刚好唱完的话,那你的歌的最后一秒就永远了唱不出来的了(呵呵……)
========== |
| 我要发表评论 |
查看全部评论 |
|
|
|
