用MCI指令進行多媒體編程

2019-11-18 17:50:16

字體：大中小

來源：轉載

供稿：網友

我們有時會希望為自己的程序增加音效，例如警告聲等，這就需要播放WAV文件。較簡單的做法，我們可以使用多媒體控件（VB和Delphi都提供了MCI控件）來完成，但這樣做無疑會增加系統負擔和使程序體積增大（使用OCX的話尤其明顯）。如果我們的程序并非一個多媒體程序而僅僅是用來播放音效的話，就更不劃算了。有沒有更理想的方法呢？答案是肯定的，Windows已經為我們提供了一個關于多媒體處理的動態連接庫WINMM.DLL（舊版本為MMSYSTEM.DLL），通過調用它所提供的API函數，我們就可以使用MCI指令進行多媒體方面的操作了。
　　讓我們先來了解一下什么是MCI指令，MCI的全稱是MediaControlInterface(媒體控制接口）。實際上MCI是一個高級的函數調用接口，我們可以把它看作是一個解釋器，通過它，我們就可以直接和外部音頻或視頻設備打交道了。
　　接下來，就需要了解一下需要用到的API和MCI指令。有三個與MCI有關的API，它們是：mciSendString()，mciExecute()和mciGetErrorString()。mciSendString函數的功能是傳送指令字符串給MCI，mciExecute的功能和mciSendString一樣，不同的是當發生錯誤時mciExecute會彈出對話框顯示錯誤信息。mciGetErrorString的功能是將MCI錯誤代碼轉換為字符串。現在假設我們的編程環境是VB或Delphi，下面就在這兩種環境的情況中介紹其使用方法。
　　在VB中，調用API函數必須先進行聲明，它們的格式分別為：
　　DeclareFunctionmciExecuteLib“winmm.dll"Alias“mciExecute"(ByVallpstrCommandAsString)AsLong
　　DeclareFunctionmciSendStringLib“winmm.dll“Alias“mciSendStringA"(ByVallpstrCommandAsString,ByVallpstrReturnStringAsString,ByValuReturnLengthAsLong,ByValhwndCallbackAsLong)AsLong
　　DeclareFunctionmciGetErrorStringLib“winmm.dll"Alias“mciGetErrorStringA"(ByValdwErrorAsLong,ByVallpstrBufferAsString,ByValuLengthAsLong)AsLong
　　在Delphi中相對較簡單，由于Delphi已經將多媒體相關的API聲明預編譯在MMSYSTEM.DCU文件中，所以我們只需要在單元的Uses語句后加上mmsystem即可在本單元中使用上述三個API函數了。
　　接著再介紹一些常用的MCI指令。
　　MCI指令一般格式為：MCI指令設備名[參數]
　　打開多媒體設備：open，如：openCDAudio、openc:/windows/chimes.wavtypewaveaudio。
　　播放多媒體設備：play，如：playCDAudiofrom5000to20000（播放CD的第5秒到第20秒）、playc:/windows/chimes.wav。
　　關閉多媒體設備：close，如：closeall（關閉所有多媒體設備）。
　　得到設備狀態信息：status，如：statuscdaudionumberoftrack（得到CD的曲目總數）
　　有了這些預備知識，就可以將MCI和API結合起來進行多媒體編程了。
　　例如，要在程序中使用音效（播放WAV文件），要求如果WAV文件不存在的話要求忽略錯誤（即不彈出出錯信息），則程序如下（以VB為例，Delphi中類似）：
　　DimResultasInteger
　　DimReturnStrAsString＊1024'注意，必須指定String的長度
　　Result=mciSendString(“playc:/windows/chimes.wav",ReturnStr,1024,0)'其中ReturnStr為某些MCI指令執行后傳送給程序的文字信息
　　以上這段程序可以播放指定的WAV文件，如果成功執行，則Result的值為0，如果文件不存在或出現其他錯誤，錯誤代碼會傳送給Result，但程序不會中斷。若要根據錯誤代碼自行處理錯誤信息，可以使用mciGetErrorString函數處理：
　　DimErrStrAsString＊1024
　　ifResult=0then
　　msgbox“播放成功"
　　Else
　　i％=GetErrorString(ReturnStr,ErrStr,1024)
　　msgboxErrStr
　　EndIf
　　下面，我們舉一個完整的程序作為例子（還是以VB為例），我們可以用API寫一個CD播放器來代替使用多媒體控件。這樣做的好處很明顯，當你把程序編譯成為EXE文件后復制給朋友的時候，你再也不必附加其他OCX文件（如果是Delphi的話，EXE文件體積也可以減小）。
　　在VB中新建一個工程，在Form1中添加6個按鈕和一個Timer控件，屬性如下（效果如圖）：
　　名稱：Command1，Caption：彈出
　　名稱：Command2，Caption：播放
　　名稱：Command3，Caption：暫停
　　名稱：Command4，Caption：下一首
　　名稱：Command5，Caption：上一首
　　名稱：Command6，Caption：退出
　　名稱：Timer1，Interval：1000
　　接著，我們就可以編寫代碼了，如下：
　　'函數聲明
　　　　Cur=Val(ReturnStr)
　　EndSub
　　好了，現在這個CD播放器已經可以工作了，如果你再為它擴充一些有趣的功能的話，就是一個完整的小軟件了。->