用VB5.0编写自己的MP3播放器

 

 

  杨山河

 

 

MP3播放器大家用得应该不少,一边工作一边听泰坦尼克悠扬婉转的主题曲是何等的惬意!不过,您是否厌倦了播放器的老面孔,是否自己尝试编写一个您自己的MP3的播放器呢?什么,MP3压缩什么的太复杂?!NO!不要谦虚,你会VB吗?会就得了!下面,在下用VB5编一个我们自己的MP3播放器。望抛砖引玉,得到大家的指教。

 

首先,得了解一下我从朋友处得来的一个ActiveX控件棗Mp3Play.ocx。所谓ActiveX控件就是人家高手早已编好的专门化功能软件部件。以前在16位VB中是以vbx作为扩展名,Win95中扩展名改为ocx。大家只要知道Mp3Play.ocx是一个专门播放MP3音乐文件的VB控件就行。我们编写自己的播放器,使用该控件,并适当设置其属性,就可以获得专业级的MP3音乐效果。要想使用该控件,最好将她放到Windwos/system目录,并且在注册表中注册。利用该控件,还可以将一个MP3文件解码为一个WAV文件。

Mp3Play.ocx的主要属性有:

BitRate :MP3流比特率

FrameCount:MP3流帧记数

TotalTime: 总计已播放的时间

FrameNotifyCount( RW ):发送一次通告的帧数,缺省是32帧发送一次通告

IsCopyrighted、IsOriginal、HasChecksums: 从MP3流获得的发行信息

SampleFrequency:采样率

Layer:取值可以为1、2、3,分别代表Layer1、Layer2、Layer3的标准,缺省为3

MPEGVersion:取值代表MPEG-1或MPEG-2

常用的方法有:

AboutBox ( ):显示About框。

Authorize ( Name, Password ):验证许可证(注册码),Name即注册名,Password为

注册码,由控件的提供商在用户注册后提供。返回值为0则通过,否则为5。

Open ( Inputfile, Outputfile ):打开MPEG音频文件并解码播放,若在声卡上播放则

Outputfile应为空串。返回非0值表示解码有误。如果Outputfile为文件名则解码

至音波WAV文件。也就是说,可以利用此方法编写MP3-WAV转换器。

Close:关闭当前MPEG流解码。

GetVolumeLeft,GetVolumeRight:获取左右声道的音量,返回Long型值。

SetVolume ( left chanel, right chanel ):设置系统左右声道音量。

Pause ( ):暂停,奇次声音暂停,偶次开启。

Play ( ):开始解码,并播放当前MPEG文件。返回0表示解码无误。

Stop ( ):停止当前解码工作,返回非0表示有误。

 

下面,我们一步一步的完成:

建立工程,添加Mp3Play.ocx到控件面板中去
启动VB5,选择Standard EXE。此时,左边的控件面板中只是一些Win95标准控件。我们选Project(工程)菜单下的Components…(组件)项,在弹出的对话框中选中Dialog-Medien Mp3Play ActiveX Control Module项。这“宝贝”即我们所需的MP3控件。确定后在控件面板中会增添一个蓝色的喇叭图标,表示该控件已经添加到控件面板中。
添加MP3控件实例到Form1(窗体)中去,设置属性
点中蓝色喇叭,在窗体中拖动一个矩形框,松开后在窗体中出现Mp3控件图标。为了在播放时隐去喇叭,在Mp3Play1的属性表中将Visible设为False。一般就这么多,剩下的就是使用她的方法(Methods)了。
添加“选择文件”,“播放”,“暂停”等按钮
点中“Command”按钮,在窗体中建立三个,名字分别为:Command1、Command2、Command3,将它们的Caption分别设为:“选择MP3文件”、“播放”、“暂停”。
添加CommonDialog控件
为能方便地选择MP3 文件,还需文件打开对话框。如果控件面板中没有此控件,如1中所述选中Components菜单项,在Microsoft Common Dialog Control 5.0前的复选框中打勾,确认后即可在控件面板中看到此控件图标。在窗体中建立一个名为CommonDialog1的对象,为使能快速找到MP3的文件需要设置它的Filter属性为“*.MP3|*.MP3”。
在按钮中编写相应的代码
双击Command1,在Private Sub Command1_Click()中输入以下代码:
CommonDialog1.ShowOpen
双击Command2,在Private Sub Command2_Click()中输入:

Err = Mp3Play1.Open(CommonDialog1.filename, "")

Mp3Play1.Play

双击Command3,在Private Sub Command3_Click()中输入:

Mp3Play1.Pause

6.调整窗口大小,运行播放器

适当调整窗体的外观如大小、颜色等,怎么舒服您就怎么设置。好了,开始按F1

运行,选择文件棗播放!感受一下您自个儿的MP3播放机吧!

 

此外,您还可以用Photoshop等软件制作一些漂亮的界面,贴在窗体上,增强其艺术性。还可以仿照WinAmp的“Plug_ins”,利用Timer控件完成一些特殊动画效果。当然,一切都靠您自个的天才去设计了。顺便在此请教诸位大侠,哪儿有未加时间限制的Mp3Play.ocx,或者您有注册号,请告诉在下。我因没有注册码,每首歌曲只能播放30秒。万望赐教,感激不尽!!!

 ==

1999?1998?不记得那年写的了

评论 2 您还未登录,请先 登录 后发表或查看评论
程序最新版请点击:http://blog.putaot.cn/?post=55 功能: 1.可以更换背景图片,并保留 2.可以更换字体颜色,并保留 3.真正实现搜索音乐,搜索到音乐可以试听,可以添加到列表 4.只要你提供歌曲名和歌手名就可以播放音乐超级播放器! 5.实现托盘使 6.实现文件类型关联(程序方面还没有做好这个功能,但是可以把歌集文件(.yyu)拉到播放器图标中) 7.实现禁止多开,同时可以让播放器获得焦点 8.可以更换标题 9.更多功能由你发现! 下面是程序下载地址: http://pan.baidu.com/share/link?shareid=956078571&uk=4161313552 2014-01-19 更新!↓ 1.歌集编辑界面背景图片同步主界面 更加相称 2.音乐搜索引擎全面更换,更改为搜狗音乐搜索,搜索速度加快 3.主界面去掉头像图片移动歌曲信息展现位置,界面更加简洁 4.修正主界面播放与歌集编辑界面不同步问题! 5.修正主界面和歌集界面已知bug 6.歌集编辑界面增加对单条歌曲编辑 7.歌集界面解决单条歌曲无法删除问题 8.歌曲搜索界面完善“添加到歌集”“创建新歌集”功能。 9.歌曲界面删除“下载所选”“播放所选”功能 10.优化程序逻辑,优化利百度API获得播放地址模块 11.优化变量传递模式 2014-01-19 随心听.rar 源码下载地址:http://pan.baidu.com/s/1hql2IpQ 程序下载地址:http://pan.baidu.com/s/1hqiKRnY

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页

打赏作者

shanhe

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值