很多朋友向我索取MCI的資料，但是我這里的資料早就不知道哪里去了，這里把MSDN里面的東西拿出來給大家看一下，方便英語不好的朋友。 用MCI進(jìn)行編程主要有兩個東西需要掌握，下面的篇幅用來說明這兩個方面。 一、mciSendCommand函數(shù) 這個函數(shù)用來打開MCI設(shè)備并且通過給設(shè)備發(fā)送MCI命令來對設(shè)備進(jìn)行控制，這個函數(shù)的原型是這樣的： MCIERROR mciSendCommand( MCIDEVICEID?IDDevice?,?? //要控制的設(shè)備的ID，無符號整數(shù)? UINT?uMsg?,?????????????????????? //MCI命令,像MCI_OPEN,MCI_PLAY? DWORD?fdwCommand?,???? //命令的參數(shù)，不同的命令有不同的參數(shù)可以選擇??? DWORD?dwParam??????????? //Param也就是像MCI_OPEN_PARMS之類的，每個命令有不同的Param? ); MCI命令是在mmsystem.h中define的整數(shù)，常用的命令有MCI_OPEN(打開設(shè)備）、MCI_PLAY(播放）、MCI_CLOSE(關(guān)閉設(shè)備）等，詳細(xì)的命令信息請看MSDN，如果沒有MSDN光盤可以到http://www.msdn.com?查看。下面演示程序演示如何打開一個設(shè)備播放MP3文件。 MCI_OPEN_PARMS op; op.dwCallback=NULL; op.lpstrAlias=NULL; op.lpstrDeviceType=_T("MPEGAudio"); //設(shè)備類型，大多數(shù)文件可以這樣設(shè)置 op.lpstrElementName=_T("D://1.mp3") ;//文件路徑 op.wDeviceID=NULL;???????????????????????????? //打開設(shè)備成功以后保存這個設(shè)備號備用 UINT rs;???????????????????????????????????????????????? //接受函數(shù)返回結(jié)果 rs=mciSendCommand(NULL,MCI_OPEN,MCI_OPEN_ELEMENT ,(DWORD)&op);//發(fā)送命令打開設(shè)備，成功返回0，否則返回錯誤號，第三個參數(shù)這里必須是MCI_OPEN_ELEMENT? if(rs==0)???????????? //設(shè)備打開成功就播放文件 { ?? MCI_PLAY_PARMS pp; ?? pp.dwCallback=NULL; ?? pp.dwFrom=0;?????????????????????? //開始播放的位置 ?? mciSendCommand(op.wDeviceID,MCI_PLAY,MCI_WAIT,(DWORD)&pp);//播放文件，如果第 三個參數(shù)設(shè)為MCI_WAIT則程序窗口會被阻塞，為了避免這種情況可以設(shè)為MCI_NOTIFY ,這兩個標(biāo)志的詳細(xì)區(qū)別請見MSDN，區(qū)別不小哦。 最后別望了在WM_CLOSE消息處理過程中發(fā)送MCI_CLOSE命令關(guān)閉設(shè)備，寫成這樣： MCI_GENERIC_PARMS gp; gp.dwCallback=NULL; mciSendCommand(op.wDeviceID,MCI_CLOSE,MCI_WAIT,(DWORD)&gp); 最后別忘了在工程屬性的link屬性頁里加入winmm.lib鏈接，也不要忘了#include <mmsystem.h>

?

?

轉(zhuǎn)自http://hi.baidu.com/chenyun1985/blog/item/2f5d27730872991c8601b033.html

?

?

用這個函數(shù)播放媒體文件最好先打開再播放,當(dāng)然是可以一步播放的.?
mciSendString(L"open abc.mp3 type MPEGVideo alias mci",0,0,0);?
abc.mp3就是要打開的文件,mci是打開后的名稱,相當(dāng)其它API函數(shù)的句柄,但這個函數(shù)是用一個別名來表示.這個名字可以自己隨便取,只要不引起 沖突就可以了.關(guān)于MPEGVideo,有人說播放相應(yīng)的視頻文件才用,其實(shí)不是,播放任何文件都可以用,包括聲音文件,你沒有必要再用其它的設(shè)備名.?
然后播放用:?
mciSendString(L"play mci",0,0,0);?
就可以播放了,想暫停用:?
mciSendString(L"pause mci",0,0,0);?
停止:?
mciSendString(L"stop mci",0,0,0);?
重新(繼續(xù))播放,再次調(diào)用:?
mciSendString(L"play mci",0,0,0);?
關(guān)于這個函數(shù)的后3個參數(shù)是用于返回值的,也非常簡單.第二個參數(shù)是字串空間,提前分配好內(nèi)存用于存貯返回信息,第二個參數(shù)是這個空間的大小.第三個參數(shù)是一個接收消息的窗口句柄,這個函數(shù)可以向窗口發(fā)送消息.?
我比較測試沒有問題的就是這些,其它的什么seek,在特定的窗口播放呀,都沒有搞定.知道的希望說一下,只要貼個語句就可以了.

?

?

用完之后,大家要記的用? mciSendString(L"close mci",0,0,0);? 關(guān)閉,不然可能會有問題.? mciSendString(L"play mci fullscreen",0,0,0);? 全屏播放,可以在播放的時候調(diào)用.? 這個函數(shù)可以播放你的Windows Media Player支持的所有文件類型,在我的機(jī)器上也可以播放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,等等，下面介紹一下它的使用方法：

????? 　　該函數(shù)有四個參數(shù)：
????? 第一個參數(shù)：要發(fā)送的命令字符串。字符串結(jié)構(gòu)是:[命令][設(shè)備別名][命令參數(shù)].
????? 第二個參數(shù)：返回信息的緩沖區(qū),為一指定了大小的字符串變量.
????? 第三個參數(shù)：緩沖區(qū)的大小,就是字符變量的長度.
????? 第四個參數(shù)：回調(diào)方式，一般設(shè)為零
????? 返回值：函數(shù)執(zhí)行成功返回零，否則返回錯誤代碼

????? 一、常用命令
????? 　　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，后續(xù)操作只要指明別名即可
????? parent %u??????? 源
????? Style %u???????? 風(fēng)格、樣式
????? notify?????????? 通知

????? 　　2.播放：
????? mciSendString "play movie", 0&, 0, 0?
????? mciSendString "play movie fullscreen", 0&, 0, 0 '全屏播放
????? 　　3.暫停：
????? mciSendString "pause movie", 0&, 0, 0?
????? 　　4.繼續(xù)：
????? mciSendString "resume movie", 0&, 0, 0?
????? 　　5.停止：
????? mciSendString "stop movie", 0&, 0, 0?
????? 　　6.關(guān)閉：
????? mciSendString "close movie", 0&, 0, 0?
????? 　　7.前進(jìn)到下一個位置：
????? mciSendString "step movie", 0&, 0, 0??????
????? 　　8.后退到上一個位置：
????? mciSendString "step movie reverse", 0&, 0, 0?
????? 　　9.前進(jìn)或后退 N 個位置(其中 N<0 即表示后退)
????? mciSendString "step movie by " & str(N), 0&, 0, 0???
????? 　　10.獲取當(dāng)前播放位置：
????? 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.循環(huán)播放：
????? 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是設(shè)置的音量值

????? 三、控制亮度（如果是播放視頻）
????? Dim B As Long
????? mciSendString "status movie brightness", B, 0, 0 'B是獲取的亮度值。
????? B = 50
????? mciSendString "setvideo movie brightness to " & B, &0, 0, 0 'B是設(shè)置的亮度值

????? 四、到指定的位置播放。
????? Dim P1 as Long, P2 as Long
????? P1 = 100: P2 = 3000
????? mciSendString "seek movie to ", P1, 0, 0 'P1是當(dāng)前起始位置，單位：毫秒
????? 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 是控件的句柄
????? 執(zhí)行上述命令之后，影片會被放置在控件的左上角，且影片的大小不受控件大小的影響，如果想要改變
????? 影片播放的位置及大小，可以在執(zhí)行 play 指令前先執(zhí)行 put 指令，格式如下：

????? mciendString "put AVI 文件名 window at X Y [Width Height]", 0&, 0, 0
?????? 其中 X 及 Y 參數(shù)須填入位置，而 Width 及 Height 參數(shù)則填入影片顯示出來的寬度及高度

????? 六、錄音設(shè)置：
????? 　　錄音前，用以下語句初始化
????? 　　1.設(shè)為8位：
????? mciSendString "set wave bitpersample 8", "", 0, 0
????? 　　2.設(shè)為11025Hz
????? mciSendString "set wave samplespersec 11025", "", 0, 0
????? 　　3.設(shè)為立體聲：
????? mciSendString "set wave channels 2", "", 0, 0
????? 　　4.實(shí)現(xiàn)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

????? 七、開關(guān)光驅(qū)：
????? mciSendString "set cdaudio door open", "", 0, 0 '打開
????? mciSendString "set cdaudio door close", "", 0, 0 '關(guān)閉

轉(zhuǎn)載于:https://blog.51cto.com/freetoskey/844141

總結(jié)

以上是生活随笔為你收集整理的声音的播放——MCI的使用的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。