很多朋友向我索取MCI的資料,但是我這裏的資料早就不知道哪裏去了,這裏把MSDN裏面的東西拿出來給大家看一下,方便英語不好的朋友。
用MCI進行編程主要有兩個東西需要掌握,下面的篇幅用來說明這兩個方面。
一、mciSendCommand函數
這個函數用來打開MCI設備並且通過給設備發送MCI命令來對設備進行控制,這個函數的原型是這樣的:
MCIERROR mciSendCommand(
MCIDEVICEID IDDevice, //要控制的設備的ID,無符號整數
UINT uMsg, //MCI命令,像MCI_OPEN,MCI_PLAY
DWORD fdwCommand, //命令的參數,不同的命令有不同的參數可以選擇
DWORD dwParam //Param也就是像MCI_OPEN_PARMS之類的,每個命令有不同的Param
);
MCI命令是在mmsystem.h中define的整數,常用的命令有MCI_OPEN(打開設備)、MCI_PLAY(播放)、MCI_CLOSE(關閉設備)等,詳細的命令信息請看MSDN,如果沒有MSDN光盤可以到http://www.msdn.com查看。下面演示程序演示如何打開一個設備播放MP3文件。
MCI_OPEN_PARMS op;
op.dwCallback=NULL;
op.lpstrAlias=NULL;
op.lpstrDeviceType=_T("MPEGAudio"); //設備類型,大多數文件可以這樣設置
op.lpstrElementName=_T("D://1.mp3") ;//文件路徑
op.wDeviceID=NULL; //打開設備成功以後保存這個設備號備用
UINT rs; //接受函數返回結果
rs=mciSendCommand(NULL,MCI_OPEN,MCI_OPEN_ELEMENT ,(DWORD)&op);//發送命令打開設備,成功返回0,否則返回錯誤號,第三個參數這裏必須是MCI_OPEN_ELEMENT
if(rs==0) //設備打開成功就播放文件
{
MCI_PLAY_PARMS pp;
pp.dwCallback=NULL;
pp.dwFrom=0; //開始播放的位置
mciSendCommand(op.wDeviceID,MCI_PLAY,MCI_WAIT,(DWORD)&pp);//播放文件,如果第三個參數設爲MCI_WAIT則程序窗口會被阻塞,爲了避免這種情況可以設爲MCI_NOTIFY ,這兩個標誌的詳細區別請見MSDN,區別不小哦。
最後別望了在WM_CLOSE消息處理過程中發送MCI_CLOSE命令關閉設備,寫成這樣:
MCI_GENERIC_PARMS gp;
gp.dwCallback=NULL;
mciSendCommand(op.wDeviceID,MCI_CLOSE,MCI_WAIT,(DWORD)&gp);
最後別忘了在工程屬性的link屬性頁里加入winmm.lib鏈接,也不要忘了#include <mmsystem.h>
轉自http://hi.baidu.com/chenyun1985/blog/item/2f5d27730872991c8601b033.html
用這個函數播放媒體文件最好先打開再播放,當然是可以一步播放的.
mciSendString(L"open abc.mp3 type MPEGVideo alias mci",0,0,0);
abc.mp3就是要打開的文件,mci是打開後的名稱,相當其它API函數的句柄,但這個函數是用一個別名來表示.這個名字可以自己隨便取,只要不引起衝突就可以了.關於MPEGVideo,有人說播放相應的視頻文件才用,其實不是,播放任何文件都可以用,包括聲音文件,你沒有必要再用其它的設備名.
然後播放用:
mciSendString(L"play mci",0,0,0);
就可以播放了,想暫停用:
mciSendString(L"pause mci",0,0,0);
停止:
mciSendString(L"stop mci",0,0,0);
重新(繼續)播放,再次調用:
mciSendString(L"play mci",0,0,0);
關於這個函數的後3個參數是用於返回值的,也非常簡單.第二個參數是字串空間,提前分配好內存用於存貯返回信息,第二個參數是這個空間的大小.第三個參數是一個接收消息的窗口句柄,這個函數可以向窗口發送消息.
我比較測試沒有問題的就是這些,其它的什麼seek,在特定的窗口播放呀,都沒有搞定.知道的希望說一下,只要貼個語句就可以了.
用完之後,大家要記的用
mciSendString(L"close mci",0,0,0);
關閉,不然可能會有問題.
mciSendString(L"play mci fullscreen",0,0,0);
全屏播放,可以在播放的時候調用.
這個函數可以播放你的Windows Media Player支持的所有文件類型,在我的機器上也可以播放rmvb,3gp,mov等類型,但還是有問題.rmvb打開速度非常之慢,但Windows Media Player就不會.播放某些類型還會打開一個解碼器的窗口,Windows Media Player也不會.
mciSendString的常用命令
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
mciSendString是用來播放多媒體文件的API指令,可以播放MPEG,AVI,WAV,MP3,等等,下面介紹一下它的使用方法:
該函數有四個參數:
第一個參數:要發送的命令字符串。字符串結構是:[命令][設備別名][命令參數].
第二個參數:返回信息的緩衝區,爲一指定了大小的字符串變量.
第三個參數:緩衝區的大小,就是字符變量的長度.
第四個參數:回調方式,一般設爲零
返回值:函數執行成功返回零,否則返回錯誤代碼
一、常用命令
1.打開:
Dim mName as string
mName = "f://mpeg//mpeg1.avi"
mciSendString "open mName type MPEGVideo Alias movie parent %u Style %u
notify",0&, 0, 0
其中:
open 操作命令
mName 全路徑文件名
type MPEGVideo 是指打開MPEG,AVI等類型,如果不加這一句,就是打開WAV,MP3等
Alias movie 定義了該操作的別名爲movie,後續操作只要指明別名即可
parent %u 源
Style %u 風格、樣式
notify 通知
2.播放:
mciSendString "play movie", 0&, 0, 0
mciSendString "play movie fullscreen", 0&, 0, 0 '全屏播放
3.暫停:
mciSendString "pause movie", 0&, 0, 0
4.繼續:
mciSendString "resume movie", 0&, 0, 0
5.停止:
mciSendString "stop movie", 0&, 0, 0
6.關閉:
mciSendString "close movie", 0&, 0, 0
7.前進到下一個位置:
mciSendString "step movie", 0&, 0, 0
8.後退到上一個位置:
mciSendString "step movie reverse", 0&, 0, 0
9.前進或後退 N 個位置(其中 N<0 即表示後退)
mciSendString "step movie by " & str(N), 0&, 0, 0
10.獲取當前播放位置:
Dim ST As String*64
mciSendString "status movie position", st, len(st), 0
11. 獲取媒體的總長度:
mciSendString "status movie length", st, len(st), 0
l=val(st) 'L就是所播放文件的長度
12.獲取播放信息:
Dim ST As String*64
mciSendString "status movie mode", ST, Len(ST), 0
If Left(ST, 7) = "stopped" Then (處理代碼) '播放完畢
13.循環播放:
mciSendString "play movie repeat", 0&, 0, 0
二、控制聲音大小:
Dim V As Long
mciSendString "status movie volume", V, 0, 0 'V是獲取的音量大小值。
V = 50
mciSendString "setaudio movie volume to " & V, &0, 0, 0 'V是設置的音量值
三、控制亮度(如果是播放視頻)
Dim B As Long
mciSendString "status movie brightness", B, 0, 0 'B是獲取的亮度值。
B = 50
mciSendString "setvideo movie brightness to " & B, &0, 0, 0 'B是設置的亮度值
四、到指定的位置播放。
Dim P1 as Long, P2 as Long
P1 = 100: P2 = 3000
mciSendString "seek movie to ", P1, 0, 0 'P1是當前起始位置,單位:毫秒
mciSendString "seek movie to start", 0&, 0, 0 '定位到開頭位置
mciSendString "play movie", 0&, 0, 0 '定位後再播放
或者:
mciSendString "play movie FROM P1 to P2",0&, 0, 0 'P1是起始位置,P2是停止位置。單位:毫秒
mciSendString "seek movie to end", 0&, 0, 0 '定位到最後位置
五、在指定控件上播放視頻:
mciSendString "open AVI 文件名 parent hWnd style child", 0&, 0, 0
其中,hWnd 是控件的句柄
執行上述命令之後,影片會被放置在控件的左上角,且影片的大小不受控件大小的影響,如果想要改變
影片播放的位置及大小,可以在執行 play 指令前先執行 put 指令,格式如下:
mciendString "put AVI 文件名 window at X Y [Width Height]", 0&, 0, 0
其中 X 及 Y 參數須填入位置,而 Width 及 Height 參數則填入影片顯示出來的寬度及高度
六、錄音設置:
錄音前,用以下語句初始化
1.設爲8位:
mciSendString "set wave bitpersample 8", "", 0, 0
2.設爲11025Hz
mciSendString "set wave samplespersec 11025", "", 0, 0
3.設爲立體聲:
mciSendString "set wave channels 2", "", 0, 0
4.實現PCM格式(不一定正確):
MCISENDSTRING "set wave format tag pcm","", 0, 0
5.開始錄音:
mciSendString "close movie",0&,0,0
mciSendString "open new type WAVEAudio alias movie",0&,0,0
mciSendString "record movie",0&,0,0
6.保存錄音到c:/123.wav
mciSendString "stop movie",0&,0,0
mciSendString "save movie C://123.wav",0&,0,0
mciSendString "close movie",0&,0,0
七、開關光驅:
mciSendString "set cdaudio door open", "", 0, 0 '打開
mciSendString "set cdaudio door close", "", 0, 0 '關閉