Mcisendstring详解

mciSendString详解

mciSendString的常用命令

Declare Function mciSendString Lib \ (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 = \

mciSendString \Style %u notify\ 其中： open 操作命令 mName 全路径文件名

type MPEGVideo 是指打开MPEG,AVI等类型，如果不加这一句，就是打开WAV,MP3等

Alias movie 定义了该操作的别名为movie，后续操作只要指明别名即可 parent %u 源 Style %u 风格、样式

notify 通知 2.播放：

mciSendString \

mciSendString \全屏播放 3.暂停：

mciSendString \ 4.继续：

mciSendString \ 5.停止：

mciSendString \ 6.关闭：

mciSendString \ 7.前进到下一个位置：

mciSendString \ 8.后退到上一个位置：

mciSendString \ 9.前进或后退 N 個位置(其中 N<0 即表示后退) mciSendString \ 10.获取当前播放位置： Dim ST As String*64

mciSendString \ 11. 获取媒体的总长度：

mciSendString \ l=val(st) 'L就是所播放文件的长度 12.获取播放信息：

Dim ST As String*64

mciSendString \ If Left(ST, 7) = \处理代码) '播放完毕 13.循环播放：

mciSendString \ 二、控制声音大小： Dim V As Long

mciSendString \是获取的音量大小值。 V = 50

mciSendString \是设置的音量值 三、控制亮度（如果是播放视频） Dim B As Long

mciSendString \是获取的亮度值。 B = 50

mciSendString \是设置的亮度值 四、到指定的位置播放。 Dim P1 as Long, P2 as Long P1 = 100: P2 = 3000

mciSendString \是当前起始位置，单位：毫秒 mciSendString \定位到开头位置 mciSendString \定位后再播放 或者：

mciSendString \是起始位置，P2是停止位置。单位：毫秒

mciSendString \定位到最后位置 五、在指定控件上播放视频：

mciSendString \文件名 parent hWnd style child\ 其中，hWnd 是控件的句柄

执行上述命令之后，影片会被放置在控件的左上角，且影片的大小不受控件大小的影响，如果想要改变

影片播放的位置及大小，可以在執行 play 指令前先执行 put 指令，格式如下： mciendString \文件名 window at X Y [Width Height]\ 其中 X 及 Y 参数须填入位置，而 Width 及 Height 参数则填入影片显示出來的宽度及高度 六、录音设置：

录音前，用以下语句初始化 1.设为8位：

mciSendString \ 2.设为11025Hz

mciSendString \ 3.设为立体声：

mciSendString \ 4.实现PCM格式（不一定正确）：

MCISENDSTRING \ 5.开始录音：

mciSendString \

mciSendString \ mciSendString \ 6.保存录音到c:\\123.wav mciSendString \

mciSendString \ mciSendString \