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 '關閉