- 帖子
- 109
- 主題
- 2
- 精華
- 0
- 積分
- 114
- 點名
- 0
- 作業系統
- Win7 Win10
- 軟體版本
- Office 2019 WPS
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 深圳
- 註冊時間
- 2013-2-2
- 最後登錄
- 2024-4-9
|
11#
發表於 2016-1-23 12:52
| 只看該作者
mciSendString函數是用來播放多媒體文件的API指令，可以播放MPEG,AVI,WAV,MP3,等等，使用此API函數可以創建一個簡易的播放器，下面介紹它的使用方法：
該函數有四個參數：
第一個參數：要發送的命令字符串。字符串結構是:[命令][設備別名][命令參數].
第二個參數：返回信息的緩衝區,為一指定了大小的字符串變量.
第三個參數：緩衝區的大小,就是字符變量的長度.
第四個參數：回調方式，一般設為零
返回值：函數執行成功返回零，否則返回錯誤代碼
一、常用命令
1.打開（Open），格式：Open 設備名[type 設備型式][alias 別名]
Dim mName as string
mName = "f:\mpeg\mpeg1.avi"
mciSendString "open " & mName & " type MPEGVideo Alias JofornMusic parent %u Style %u notify",0&, 0, 0
其中：
open 操作命令
mName 全路徑文件名
type MPEGVideo 是指打開MPEG,AVI等類型，如果不加這一句，就是打開WAV,MP3等
Alias JofornMusic 定義了該操作的別名為movie，後續操作只要指明別名即可
parent %u 源
Style %u 樣式
notify 通知
2.播放（Play），格式：Play 設備名[from 起點][to 終點]
mciSendString "play JofornMusic", 0&, 0, 0
mciSendString "play JofornMusic fullscreen", 0&, 0, 0 '全屏播放
3.暫停（Pause）：
mciSendString "pause JofornMusic", 0&, 0, 0
4.繼續（Resume）：
mciSendString "resume JofornMusic", 0&, 0, 0
5.停止（Stop）：
mciSendString "stop JofornMusic", 0&, 0, 0
6.關閉（Colse）：
mciSendString "close JofornMusic", 0&, 0, 0
7.前進到下一個位置：
mciSendString "step JofornMusic", 0&, 0, 0
8.後退到上一個位置：
mciSendString "step JofornMusic reverse", 0&, 0, 0
9.前進或後退N 個位置(其中N<0 即表示後退)
mciSendString "step JofornMusic by " & str(N), 0&, 0, 0
10.獲取當前播放位置：
Dim ST As String*64
mciSendString "status JofornMusic position", st, len(st), 0
11. 獲取媒體的總長度：
mciSendString "status JofornMusic length", st, len(st), 0
l=val(st) 'l就是所播放文件的長度
12.獲取播放當前狀態：
Dim ST As String*64
mciSendString "status JofornMusic mode", ST, Len(ST), 0
If Left(ST, 7) = "stopped" Then (處理代碼) '播放完畢
13.循環播放：
mciSendString "play JofornMusic repeat", 0&, 0, 0
二、控制聲音大小(1-1000)：
Dim V As Long
mciSendString "status JofornMusic volume",&V, len(v), 0 'V是獲取的音量大小值。
V = 50
mciSendString "setaudio JofornMusic volume to 數值", 0, 0, 0 'V是設置的音量值
三、設置播放位置.(需事先設定時間格式)，格式：Seek 設備名[to 位置| to start | to end]
Dim P1 as Long, P2 as Long
P1 = 100: P2 = 3000
mciSendString "seek JofornMusic to ", P1, 0, 0 'P1是當前起始位置，單位：毫秒
mciSendString "seek JofornMusic to start", 0&, 0, 0 '定位到開頭位置
mciSendString "play JofornMusic", 0&, 0, 0 '定位後再播放
或者：
mciSendString "play JofornMusic FROM P1 to P2",0&, 0, 0 'P1是起始位置，P2是停止位置。單位：毫秒
mciSendString "seek JofornMusic to end", 0&, 0, 0 '定位到最後位置
四、在指定控件上播放視頻：
mciSendString "open AVI 文件名parent hWnd style child", 0&, 0, 0
其中，hWnd 是控件的句柄
執行上述命令之後，影片會被放置在控件的左上角，且影片的大小不受控件大小的影響，如果想要改變
影片播放的位置及大小，可以在執行play 指令前先執行put 指令，格式如下：
mcisendString "put AVI 文件名window at XY [Width Height]", 0&, 0, 0
其中：X、Y為影片左上角坐標，Width、Height為影片的寬高度
五、如果播放視頻還可控制亮度(1-2000)
Dim B As Long
mciSendString "status JofornMusic brightness", B, 0, 0 'B是獲取的亮度值。
B = 50
mciSendString "setvideo JofornMusic brightness to " & B, &0, 0, 0 'B是設置的亮度值
六、錄音設置：
錄音前，用以下語句初始化
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 JofornMusic",0&,0,0
mciSendString "open new type WAVEAudio alias JofornMusic",0&,0,0
mciSendString "record JofornMusic",0&,0,0
6.保存錄音到c:\123.wav
mciSendString "stop JofornMusic",0&,0,0
mciSendString "save JofornMusic C:\123.wav",0&,0,0
mciSendString "close JofornMusic",0&,0,0
七、開關光驅：
mciSendString "set cdaudio door open", "", 0, 0 '打開
mciSendString "set cdaudio door close", "", 0, 0 '關閉
八、其它
1.設置設備的各種狀態（Set）
Set alias_name[audio all off][audio all on][time format ms]:
Set命令用來設置設備的各種狀態.如:靜音,有聲音,時間格式為毫秒等.
2.取得設備的狀態（Status）
Status alias_name[length][mode][position]:
Status命令用來取得設備的狀態.如:該媒體文件的長度,該媒體文件所處狀態,該媒體文件的當前位置等. 的長度,該媒體文件所處狀態,該
媒體文件的當前位置等.
參考代碼：
TCHAR fileName[]="D:\俺的文檔\my music\爺爺泡的茶.mp3";
TCHAR shortName[MAX_PATH];
GetShortPathName(fileName,shortName,sizeof(shortName)/sizeof(TCHAR));
TCHAR cmd[MAX_PATH+10];
wsprintf(cmd,"play %s",shortName);
mciSendString(cmd,"",NULL,NULL);
（調用mciSendString第一個參數傳“play 文件全路徑”就可以，“文件全路徑”最好傳絕對路徑，不建議wanghepeng10那樣值傳遞文件名。
另外如果文件全路徑中含有空格的話要使用GetShortPathName轉換成短路徑。 ） |
-
1
評分人數
-
|
發表於 2016-1-23 15:22
| 