用VB设计VCD播放器
来源:互联网 发布:广播电视网络 编辑:程序博客网 时间:2024/04/25 16:48
http://www.tongyi.net 点击:660
当你在用老牌的XingPlay或是华丽的《超级解霸5.0》的时候,你有没有想过拥有一个你自己编写的软解压播放器呢?其实你只要掌握一点VB的技巧,那么要实现这个愿望就变得很简单了。
笔者在初步研究了Windows的SYSTEM.INI后发现,通过VB的多媒体控件MCI.VBX可以打开MPEG压缩文件(如VCD2.0版的.DAT文件)。
首先你的Windows系统中SYSTEM.INI文件关于[MCI]中需有MPEGVideo项(一般Windows95和Windows98中都已有此项,通过安装XingPlay或CCDVP95等软件也可增加此项)。
其次在VB中建立一个新窗口,将MCI.VBX加入ToolBox中,将MCI控件拖放至窗体Form上,调整其大小,将九个按钮(从左至右为:Prev、Next、Play、Pause、Back、Step、Stop、Record和Eject)中Record按钮Visible属性设为False,其余按钮的Visible属性和Enabled属性设置为True,以上按钮的设置可通过MMControl的属性栏内“自定义”项来设置。
假设光驱为E:,VCD碟片文件为E:MPEGAVMUSIC01.DAT。
源代码如下:
Private Sub Form_ Load()
MMControl.DeviceType=″MPEGVideo″
MMControl.Name=″E:MPEGAVMUSIC01.DAT″
MMControl.Command=″OPEN″
MMControl.Command=″PLAY″
End Sub
Sub Form_Unload(Cancel As Integer)
MMControl.Command=″close″
End Sub
笔者通过实践发现Step和Back按钮功能不明显,所以对以上两个按钮进行了一些改进。
Sub MMControl_ StepClick(Cancel As Integer)
j=MMControl.Position+100 ′数值100为前进量,可适当调整
If j>MMControl.Length Then
MMControl.From=MMControl.Length
Else
MMControl.From=j
End If
MMControl.Command=″Play″
End Sub
Sub MMControl_ BackClick(Cancel As Integer)
i=MMControl.Position-100 ′数值100为后退量,可适当调整
If i<0 Then
MMControl.From=0
Else
MMControl.From=i
End If
MMControl.Command=″Play″
End Sub
MCI控件还有很多属性,如画面播放位置hWndDisplay属性等,读者可参阅相关资料自行摸索,这里不再介绍。读者还可以通过建立通用对话框来打开文件,以解决VCD文件名不统一或多文件的问题。
调整好窗体Form的标题、图标、颜色等,然后编译成EXE文件,你就可以在Windows下拥有自己的VCD播放器了。
另外,因电脑性能差异及VCD解码质量的不同,播放画面质量和音质将有所差异。
- 用VB设计VCD播放器
- 用vb做个播放器
- 用VB.NET2008实现影音播放器
- 用vb制作简单的播放器
- 让Windows XP自动播放VCD、SVCD
- totem播放rmvb有影無聲.無法播放vcd
- [VB.NET]MP3播放器
- vb制作MP3播放器
- RMVB刻录为可用家用影碟机播放的VCD/DVD
- vcd镜像文件在电脑上无法播放
- GNU/Linux下播放和保存VCD、DVD
- 用DVD片刻录多部VCD影片
- 用《会声会影》快速制作VCD电子相册
- MCI播放器在VB中实现
- mp3 播放器制作问题-VB版
- MCI播放器在VB中实现
- [VB.NET源码]65_MP3播放器
- [VB.NET源码]66_MP3播放器
- Ajax Hacks-hack8 处理Request Object 的错误
- 在VB中实现窗体的动态效果
- Ajax Hacks-hack7接收JSON格式的数据
- 利用VB控制窗口显示风格
- Ajax Hacks-Hack6 接收数字数据
- 用VB设计VCD播放器
- Ajax Hacks-Hack 5.取得普通字符串
- 在 VB 中 引 用 .dbf 及 索 引 文 件
- AJAX Hacks之Hack 4. 接收XML格式的数据
- VB6.0使用ADO对象连接数据库:
- AJAX Hacks 之HACK3. 使用独立的文件来取得http request
- 美化你的文字
- AJAX Hacks 之HACK2. 使用Request对象与服务器进行数据传递
- 走近VB.NET十五 在VB.NET中使用新的控件labellink访问