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 '關閉
相關文章
- redis的常用命令Redis
- Git的常用命令Git
- Docker的常用命令Docker
- git 的常用命令Git
- Yarn的常用命令Yarn
- PGSQL的常用命令SQL
- Redis 的常用命令Redis
- HBase的常用命令
- Linux 的常用命令Linux
- docker常用命令的使用Docker
- Linux的常用命令Linux
- 運維的常用命令運維
- Linux的docker常用命令LinuxDocker
- ZooKeeper 06 - ZooKeeper 的常用命令
- git操作的常用命令分享Git
- Vim和Vi的常用命令
- Git的幾個常用命令Git
- 【轉】oracle裡的常用命令Oracle
- Linux下的常用命令Linux
- window中nginx的常用命令Nginx
- 【PG常用命令】Postgresql常用命令之大小SQL
- 常用命令
- Linux的常用命令學習Linux
- 【Docker入門】Docker的常用命令Docker
- Redis的常用命令——未完待續Redis
- Meterpreter的常用命令合集
- aix 的一些常用命令AI
- Git日常常用命令和ADB常用命令Git
- brew 常用命令
- UNIX 常用命令
- Redis 常用命令Redis
- HDFS 常用命令
- Scala常用命令
- homebrew 常用命令
- CentOS常用命令CentOS
- git 常用命令Git
- lldb常用命令LLDB
- podman常用命令