mci控件的简单问题 我想用mci实现播放曲目的同时,显示曲目的时间长度,播放进度,剩余时间,待播曲目数等信息,请指点 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 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 stringmName = "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*64mciSendString "status movie position", st, len(st), 0 11. 获取媒体的总长度:mciSendString "status movie length", st, len(st), 0l=val(st) 'L就是所播放文件的长度 12.获取播放信息:Dim ST As String*64mciSendString "status movie mode", ST, Len(ST), 0If Left(ST, 7) = "stopped" Then (处理代码) '播放完毕 13.循环播放:mciSendString "play movie repeat", 0&, 0, 0二、控制声音大小:Dim V As LongmciSendString "status movie volume", V, 0, 0 'V是获取的音量大小值。V = 50mciSendString "setaudio movie volume to " & V, &0, 0, 0 'V是设置的音量值三、控制亮度(如果是播放视频)Dim B As LongmciSendString "status movie brightness", B, 0, 0 'B是获取的亮度值。B = 50mciSendString "setvideo movie brightness to " & B, &0, 0, 0 'B是设置的亮度值四、到指定的位置播放。Dim P1 as Long, P2 as LongP1 = 100: P2 = 3000mciSendString "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.设为11025HzmciSendString "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,0mciSendString "open new type WAVEAudio alias movie",0&,0,0mciSendString "record movie",0&,0,0 6.保存录音到c:\123.wavmciSendString "stop movie",0&,0,0mciSendString "save movie C:\\123.wav",0&,0,0mciSendString "close movie",0&,0,0七、开关光驱:mciSendString "set cdaudio door open", "", 0, 0 '打开mciSendString "set cdaudio door close", "", 0, 0 '关闭 Active report分组计数问题 keybd_event怎么不起作用了 〔求助〕用VB输出图形 数据库查找问题 请问在用listview控件显示文件时如何设置成系统的图标? 急急急!!!解决ORACLE查询问题!!! 求助:哪里有spread空件下载? 刚下了一段能从QQ登陆窗口读取号码和密码的程序,可这一段有问题,大家帮我看看吧 一个旧VB6.0程序,用的是Access97建的数据库,更新成Access2000的数据库后,不能打开,这么办? 真心求助!关于组合查询。 vb中如何获得调用过程名 SQL2000混合排序,急急急!
(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 '关闭