首页 > 学院 > 开发设计 > 正文

在VisualBasic6.0中实现自动播放VCD

2019-11-18 17:37:20
字体:
来源:转载
供稿:网友
《超级解霸》等VCD播放软件一般都有个按钮或菜单选项,叫做“播放VCD”,单击即可自动播放VCD影片。如果文件路径是固定的,那只用多媒体控件(mmcontrol)即可实现,但对于不同电脑来说,因为硬盘的逻辑分区数量不同,光盘机的路径很可能是不同的。它到底是怎样实现的呢?下面,请看我详细分析:

用“regedit.exe”查看Windows98的注册表中光盘机的属性项(hkey_local_machine,enum,scsi),比较硬盘机的属性项(hkey_local_machine,enum,esdi)和软盘机
的属性项(hkey_local_machine,enum,flop),就可发现:不同的盘体,是用“devicetype”这个参数来区别的,硬盘的devicetype是“0”,软盘是“0a”,光盘机是“5”。再用“devicetype”为关键字,查找有关win32API的编程手册,就可得到辨别不同盘体的函数“getdevicetype”了。

有了这个函数,使用以下句子,即可得到光盘机盘符:

IfGetDriveType("d:/")<>5Then
IfGetDriveType("e:/")<>5Then
IfGetDriveType("f:/")<>5Then
IfGetDriveType("g:/")<>5Then
drivecd="H"
GoTogetcdfiles
EndIf
drivecd="G"
GoTogetcdfiles
EndIf
drivecd="F"
GoTogetcdfiles
EndIf
drivecd="E"
GoTogetcdfiles
Else
drivecd="D"
EndIf
getcdfiles:

程序使用穷举法,依次判断D、E、F、G盘的devicetype是否为“5”,都不是则光盘机为H(盘符超过H的机器不多,所以穷举到此为止),得到的“drivecd”就是光盘机盘符。

因为所有VCD影片的路径都是/mpegav/,所以用VB函数"Dir()"便可得到完整的播放路径:
MMControl1.FileName=drivecd&":/Mpegav/"&Dir(drivecd&":/Mpegav/*.dat")。

以下源程序,具体实现了自动播放VCD。程序窗体中只有一个多媒体控件——MMcontrol1,程序一旦运行即从第一个文件开始自动播放,按多媒体控件上的“next”键,播放下一个文件。

'声明GetDriveType函数
PRivateDeclareFunctionGetDriveTypeLib"kernel32"Alias"GetDriveTypeA"(ByValnDriveAsString)AsLong
Dimfiles()AsString
DimdrivecdAsString
DimiAsInteger
DimjAsInteger

PrivateSubForm_Load()
'判断光盘机盘符
IfGetDriveType("d:/")<>5Then
IfGetDriveType("e:/")<>5Then
IfGetDriveType("f:/")<>5Then
IfGetDriveType("g:/")<>5Then
drivecd="H"
GoTogetcdfiles
EndIf
drivecd="G"
GoTogetcdfiles
EndIf
drivecd="F"
GoTogetcdfiles
EndIf
drivecd="E"
GoTogetcdfiles
Else
drivecd="D"
EndIf

'将所有VCD文件放入数组files()
getcdfiles:
OnErrorGoTocderr:
s=Dir(drivecd&":/Mpegav/*.dat")
i=1
Whiles<>""
ReDimPreservefiles(i)AsString
files(i)=s
i=i 1
s=Dir()
Wend
j=1
Callvcdplay

OnErrorGoTo0
ExitSub
cderr:
MsgBox"CDisnotready!"
UnloadMe
EndSub

'判断是否播放下一个文件
PrivateSubMMControl1_StatusUpdate()
IfMMControl1.Position=MMControl1.LengthThen
j=j 1
Ifj>i-1Thenj=1
Callvcdplay
EndIf
EndSub

'播放VCD文件
PrivateSubvcdplay()
MMControl1.Command="stop"
MMControl1.Command="close"
MMControl1.FileName=drivecd&":/Mpegav/"&files(j)
MMControl1.Command="open"
MMControl1.Command="play"
EndSub

以上程序在中文Windows98,VisualBasic6.0上通过。->


发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表