用MCI指令進(jìn)行多媒體編程
- 發(fā)布于:2024-01-18
- 共 192 人圍觀
讓我們先來了解一下什么是MCI指令,MCI的全稱是Media Control Interfase(媒體控制接口)。實(shí)際上MCI是一個(gè)高級的函數(shù)調(diào)用接口,我們可以把它看作是一個(gè)解釋器,通過它,我們就可以直接和外部音頻或視頻設(shè)備打交道了。
接下來,就需要了解一下需要用到的API和MCI指令。有三個(gè)與MCI有關(guān)的API,它們是:
mciSendString(),mciExecute()和mciGetErrorString()。
mciSendString函數(shù)的功能是傳送指令字符串給MCI,mciExecute的功能和mciSendString一樣,不同的是當(dāng)發(fā)生錯(cuò)誤時(shí)mciExecute會(huì)彈出對話框顯示錯(cuò)誤信息。mciGetErrorString的功能是將MCI錯(cuò)誤代碼轉(zhuǎn)換為字符串。現(xiàn)在假設(shè)我們的編程環(huán)境是VB或Delphi,下面就在這兩種環(huán)境的情況中介紹其使用方法。
在VB中,調(diào)用API函數(shù)必須先進(jìn)行聲明,它們的格式分別為:
Declare Function mciExecute Lib "winmm.dll" Alias "mciExecute" (ByVal lpstrCommand
As String) As Long
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal
lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As
Long, ByVal hwndCallback As Long) As Long
Declare Function mciGetErrorString Lib "winmm.dll" Alias "mciGetErrorStringA"
(ByVal dwError As Long, ByVal lpstrBuffer As String, ByVal uLength As Long) As Long
在Delphi中相對較簡單,由于Delphi已經(jīng)將多媒體相關(guān)的API聲明預(yù)編譯在MMSYSTEM.DCU文件中,所以我們只需要在單元的Uses語句后加上 mmsystem即可在本單元中使用上述三個(gè)API函數(shù)了。
轉(zhuǎn)載請說明出處:六百號技術(shù) - SEO優(yōu)化,網(wǎng)頁設(shè)計(jì),網(wǎng)絡(luò)編程,軟件技巧,網(wǎng)絡(luò)知識(shí),系統(tǒng)技術(shù) ? 用MCI指令進(jìn)行多媒體編程
標(biāo)簽: