笔者在初步研究了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:\mpegav\music01.dat。
源代码如下:
private sub form_ load()
mmcontrol.devicetype=″mpegvideo″
mmcontrol.filename=″e:\mpegav\music01.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解码质量的不同,播放画面质量和音质将有所差异。
Java Asp PHP .Net XML C/C++ CGI VB Jsp J2ee J2se J2me EJB Servlet Tomcat Resin Struts Weblogic Eclipse ANT GUI JMS Web servise IDEA Webphere Hibernate Spring Jboss Applet Swing Socket Javamail Perl Ajax P2P 安全 模式 框架 测试 开源 游戏
Windows XP Windows 2000 Windows 2003 Windows Me Windows 9.x Linux UNIX 注册表 操作系统 服务器 应用服务器