使用MCI API,源文件中需要包含头文件 Mmsystem.h,在Project->Settings->Link->Object/libray module中加入库 Winmm.lib。 VS2008在源文件加上#include "mmsystem.h" #pragma comment(lib,"winmm.lib")
1、MCI简介
MCI(Media Control Interface,媒体控制接口)向Windows程序提供了在高层次上控制媒体设备接口的能力。程序不必关心具体设备,就可以对激光唱机(CD)、视盘机、波形音频设备、视频播放设备和MIDI设备等媒体设备进行控制。
对于程序员来说,可以把MCI理解为设备面板上的一排按键,通过选择不同的按键(发送不同的MCI命令)可以让设备完成各种功能,而不必关心设备内部实现。
比如,对于play,视盘机和CD机有不同的反应(一个是播放视频,一个播放音频),而对用户来说却只需要按同一按钮。
应用程序通过向MCI发送命令来控制媒体设备。MCI命令接口分命令字符串和命令消息两种,两者具有相同的功能。命令字符串具有使用简单的特点,但是它的执行效率不如命令消息。
所有的MCI命令字符串都是通过多媒体API函数mciSendString传递给MCI的,该函数的声明为:
MCIERROR mciSendString(
LPCTSTR lpszCommand, //MCI命令字符串
LPTSTR lpszReturnString, //存放反馈信息的缓冲区
UINT cchReturn, //缓冲区的长度
HANDLE hwndCallback //回调窗口的句柄,一般为NULL
); //若成功则返回0,否则返回错误码。
该函数返回的错误码可以用mciGetErrorString函数进行分析,该函数的声明为:
BOOL mciGetErrorString(
DWORD fdwError, //函数mciSendString返回的错误码
LPTSTR lpszErrorText, //接收描述错误的字符串的缓冲区
UINT cchErrorText //缓冲区的长度
);
下面是使用mciSendString函数的一个简单例子:
char buf[50];
MCIERROR mciError;
mciError=mciSendString("open cdaudio",buf,strlen(buf),NULL);
if(mciError)
{
mciGetErrorString(mciError,buf,strlen(buf));
AfxMessageBox(buf);
return;
}
open cdaudio命令打开CD播放器,如果出错(如驱动器内没有CD)则返回错误码,此时可以用mciGetErrorString函数取得错误信息字符串。
2、MCI设备
open是MCI打开设备的命令,cdaudio是MCI设备名。MCI的设备类型如下:
animation 动画设备
cdaudio CD播放器
dat 数字音频磁带机
digitalvideo 某一窗口中的数字视频(不基于GDI)
other 未定义的MCI设备
overlay 重叠设备(窗口中的模拟视频)
scanner 图象扫描仪
sequencer MIDI序列器
videodisc 视盘机
waveaudio 播放数字波形文件的音频设备
设备名是在注册表或SYSTEM.INI的[mci]部分定义的,典型的[mci]段如下:
[mci]
cdaudio=mcicda.drv
sequencer=mciseq.drv
waveaudio=mciwave.drv
avivideo=mciavi.drv
videodisc=mcipionr.drv
等号的左边是设备名,右边是对应的MCI驱动程序。当安装了新的MCI驱动程序时,系统要用不同的设备名来区分。
3、MCI命令
使用MCI设备一般包括打开、使用和关闭三个过程,常用的MCI命令有:
open 打开设备
close 关闭设备
play 开始设备播放
stop 停止设备的播放或记录
record 开始记录
save 保存设备内容
pause 暂停设备的播放或记录
resume 恢复暂停播放或记录的设备
seek 改变媒体的当前位置
capacility 查询设备能力
info 查询设备的信息
status 查询设备状态信息
MCI的大部分命令可以控制不同的媒体设备,但其中record和save命令并不是所有MCI设备都可以使用。
MCI命令的使用是很随意的,只要先打开,最后关闭,中间可以随意调用各种命令。
(1) open 打开设备
MCI设备使用前必须先打开,当然,使用后也必须要关闭,以免影响他人的使用。
open device_name type device_type alias device_alias
device_name 要使用的设备名,通常是文件名。
type device_type 设备类型,例如waveaudio或sequencer,可省略。
alias device_alias 设备别名,指定后可在其他命令中代替设备名。
(2) play 开始设备播放
MCI设备打开后即可以播放,可使用设备名或别名。
play device_alias from pos1 to pos2 wait repeat
若省略from则从当前磁道开始播放,若省略to则播放到结束。
若指明wait则等到播放完毕命令才返回。
若指明repeat则会不停的重复播放。
若同时指明wait和repeat则命令不会返回,本线程产生堵塞,通常会引起程序失去响应。
(3) 播放CD
void CTttView::OnOpenCD()
{
mciSendString("open cdaudio",NULL,0,NULL);
mciSendString("play cdaudio",NULL,0,NULL);
);
void CTttView::OnStopCD()
{
mciSendString("stop cdaudio",NULL,0,NULL);
mciSendString("close cdaudio",NULL,0,NULL);
);
还可以:
pause cdaudio 暂停播放。
resume cdaudio 继续被暂停的播放。
seek cdaudio to <位置> 移动到指定磁道。
set cdaudio door open/closed 弹出或缩进CD盘。
(4) 播放多媒体文件
void CTttView::OnMyMenu()
{
mciSendString("open myfolder\\tada.wav alias aa",NULL,0,NULL);
或 mciSendString("open myfolder\\flourish.mid alias aa",NULL,0,NULL);
或 mciSendString("open myfolder\\clock.avi alias aa",NULL,0,NULL);
mciSendString("play aa wait",NULL,0,NULL);
mciSendString("close aa",NULL,0,m_hWnd);
);
(5) 录制声音
void CTttView::OnStartRecord()
{
mciSendString("open new type waveaudio alias aa",NULL,0,NULL);
mciSendString("record aa",NULL,0,NULL);
);
void CTttView::OnStopRecord()
{
mciSendString("save aa c:\\aaa.wav wait",NULL,0,NULL);
mciSendString("close aa",NULL,0,NULL);
);
4、MCI命令消息
到目前为止,我们使用的都是MCI命令字符串。可以发现,命令字符串具有简单易学的优点,但这种接口与C/C++的风格相去甚远,如果程序要查询和设置大量数据,那么用字符串的形式将很不方便。
MCI的命令消息接口提供了C语言接口,它速度更快,并且更能符合C/C++程序员的需要。
所有MCI命令消息都是通过mciSendCommand函数发送的,函数声明为:
MCIERROR mciSendCommand(
MCIDEVICEID wIDDevice, //设备的ID,在打开设备时不用该参数
UINT uMsg, //命令消息
DWORD fdwCommand, //命令消息的标志
DWORD dwParam //指向包含命令消息参数的结构
); //若成功则返回0,否则返回错误码
命令消息uMsg与命令字符串是对应的,例如,open与MCI_OPEN完成的是一样的功能。
变量wDeviceID用来保存设备的ID,系统用ID来标识不同的设备,以保证命令发给正确的对象。
void CTttView::OnMyMenu()
{
MCI_OPEN_PARMS mciOpen;
UINT wDeviceID;
mciOpen.lpstrDeviceType = "avivideo";
mciOpen.lpstrElementName = "myfolder\\clock.avi";
mciSendCommand(0, MCI_OPEN, MCI_OPEN_ELEMENT, (DWORD)&mciOpen);
wDeviceID=mciOpen.wDeviceID;
MCI_PLAY_PARMS mciPlay;
mciSendCommand(wDeviceID, MCI_PLAY, MCI_WAIT, (DWORD)&mciPlay);
);
可以看出,用命令消息比用命令字符串要复杂的多,但它的执行效率高。
参考网站 http://baike.baidu.com/view/1622810.htm?fr=ala0_1 和http://msdn.microsoft.com/en-us/library/dd743572(VS.85).aspx
做个mp3播放器,用realplay和WMP做出来的程序内存占用太大。
如果你仅仅是播放MP3,建议使用API函数mciSendString,我把该函数的详细资料罗列如下供你参考。
Option Explicit
Private 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.打开(Open),格式:Open 设备名 [type 设备型式][alias 别名]
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.播放(Play),格式:Play 设备名 [from 起点][to 终点]
mciSendString "play movie", 0&, 0, 0
mciSendString "play movie fullscreen", 0&, 0, 0 '全屏播放
3.暂停(Pause):
mciSendString "pause movie", 0&, 0, 0
4.继续(Resume):
mciSendString "resume movie", 0&, 0, 0
5.停止(Stop):
mciSendString "stop movie", 0&, 0, 0
6.关闭(Colse):
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
二、控制声音大小(1-1000):
Dim V As Long
mciSendString "status movie volume",&V, len(v), 0 'V是获取的音量大小值。
V = 50
mciSendString "setaudio movie 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 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 指令,格式如下:
mcisendString "put AVI 文件名 window at X Y [Width Height]", 0&, 0, 0
其中:X、Y为影片左上角坐标,Width、Height为影片的宽高度
五、如果播放视频还可控制亮度(1-2000)
Dim B As Long
mciSendString "status movie brightness", B, 0, 0 'B是获取的亮度值。
B = 50
mciSendString "setvideo movie 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 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 '关闭
八、其它
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转换成短路径。
来自CSDN博客,http://blog.csdn.net/clearver/archive/2010/01/18/5209244.aspx