mciSendString的常用命令

　　要求在qt下用c++寫一個程式，要開啟光碟機，就插到了mciSendString函式。不過都是xp平臺下的，呵呵，不過不怕。在qt的程式碼裡引用windows.h就好了，然後記得用msiSendStringA或者msiSendStringW。
　　順便貼下msiSendString函式的用法，感覺還挺不錯的。另外越來越覺得qt的強大，開源的好處了，逐漸遠離vs2005拉。
 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是設定的音量值

mcisendstring('set   all   audio   left   on',nil,0,handle);  //左   
  mcisendstring('set   all   audio   all   off',nil,0,handle);  //關閉
  mcisendstring('set   all   audio   right   on',nil,0,handle); // 右   
  mcisendstring('set   all   audio   all   on',nil,0,handle); //立體
三、控制亮度（如果是播放視訊）
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 ’開啟