在VisualBasic6.0中實(shí)現(xiàn)自動播放VCD

2019-11-18 17:37:20

字體：大中小

供稿：網(wǎng)友

《超級解霸》等VCD播放軟件一般都有個(gè)按鈕或菜單選項(xiàng)，叫做“播放VCD”，單擊即可自動播放VCD影片。如果文件路徑是固定的,那只用多媒體控件(mmcontrol)即可實(shí)現(xiàn)，但對于不同電腦來說，因?yàn)橛脖P的邏輯分區(qū)數(shù)量不同，光盤機(jī)的路徑很可能是不同的。它到底是怎樣實(shí)現(xiàn)的呢？下面，請看我詳細(xì)分析：

用“regedit.exe”查看Windows98的注冊表中光盤機(jī)的屬性項(xiàng)（hkey_local_machine,enum,scsi），比較硬盤機(jī)的屬性項(xiàng)（hkey_local_machine,enum,esdi）和軟盤機(jī)
的屬性項(xiàng)（hkey_local_machine,enum,flop)，就可發(fā)現(xiàn)：不同的盤體，是用“devicetype”這個(gè)參數(shù)來區(qū)別的，硬盤的devicetype是“0”，軟盤是“0a”，光盤機(jī)是“5”。再用“devicetype”為關(guān)鍵字，查找有關(guān)win32API的編程手冊，就可得到辨別不同盤體的函數(shù)“getdevicetype”了。

有了這個(gè)函數(shù)，使用以下句子，即可得到光盤機(jī)盤符：

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”，都不是則光盤機(jī)為H(盤符超過H的機(jī)器不多，所以窮舉到此為止），得到的“drivecd”就是光盤機(jī)盤符。

因?yàn)樗蠽CD影片的路徑都是/mpegav/，所以用VB函數(shù)"Dir()"便可得到完整的播放路徑：
MMControl1.FileName=drivecd&":/Mpegav/"&Dir(drivecd&":/Mpegav/*.dat")。

以下源程序，具體實(shí)現(xiàn)了自動播放VCD。程序窗體中只有一個(gè)多媒體控件——MMcontrol1，程序一旦運(yùn)行即從第一個(gè)文件開始自動播放，按多媒體控件上的“next”鍵，播放下一個(gè)文件。

'聲明GetDriveType函數(shù)
ReDimPreservefiles(i)AsString
files(i)=s
i=i 1
s=Dir()
Wend
j=1
Callvcdplay

OnErrorGoTo0
ExitSub
cderr:
MsgBox"CDisnotready!"
UnloadMe
EndSub

'判斷是否播放下一個(gè)文件
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上通過。->