声音的播放——MCI的使用

2008-12-15 16:16

 

很多朋友向我索取MCI的资料，但是我这里的资料早就不知道哪里去了，这里把MSDN里面的东西拿出来给大家看一下，方便英语不好的朋友。 用MCI进行编程主要有两个东西需要掌握，下面的篇幅用来说明这两个方面。 一、mciSendCommand函数 这个函数用来打开MCI设备并且通过给设备发送MCI命令来对设备进行控制，这个函数的原型是这样的： MCIERROR mciSendCommand( MCIDEVICEID IDDevice ,   //要控制的设备的ID，无符号整数 UINT uMsg ,                       //MCI命令,像MCI_OPEN,MCI_PLAY DWORD fdwCommand ,     //命令的参数，不同的命令有不同的参数可以选择   DWORD dwParam            //Param也就是像MCI_OPEN_PARMS之类的，每个命令有不同的Param ); MCI命令是在mmsystem.h中define的整数，常用的命令有MCI_OPEN(打开设备）、MCI_PLAY(播放）、MCI_CLOSE(关闭设备）等，详细的命令信息请看MSDN，如果没有MSDN光盘可以到http://www.msdn.com 查看。下面演示程序演示如何打开一个设备播放MP3文件。 MCI_OPEN_PARMS op; op.dwCallback=NULL; op.lpstrAlias=NULL; op.lpstrDeviceType=_T("MPEGAudio"); //设备类型，大多数文件可以这样设置 op.lpstrElementName=_T("D://1.mp3") ;//文件路径 op.wDeviceID=NULL;                             //打开设备成功以后保存这个设备号备用 UINT rs;                                                 //接受函数返回结果 rs=mciSendCommand(NULL,MCI_OPEN,MCI_OPEN_ELEMENT ,(DWORD)&op);//发送命令打开设备，成功返回0，否则返回错误号，第三个参数这里必须是MCI_OPEN_ELEMENT if(rs==0)             //设备打开成功就播放文件 {    MCI_PLAY_PARMS pp;    pp.dwCallback=NULL;    pp.dwFrom=0;                       //开始播放的位置    mciSendCommand(op.wDeviceID,MCI_PLAY,MCI_WAIT,(DWORD)&pp);//播放文件，如果第 三个参数设为MCI_WAIT则程序窗口会被阻塞，为了避免这种情况可以设为MCI_NOTIFY ,这两个标志的详细区别请见MSDN，区别不小哦。 最后别望了在WM_CLOSE消息处理过程中发送MCI_CLOSE命令关闭设备，写成这样： MCI_GENERIC_PARMS gp; gp.dwCallback=NULL; mciSendCommand(op.wDeviceID,MCI_CLOSE,MCI_WAIT,(DWORD)&gp); 最后别忘了在工程属性的link属性页里加入winmm.lib链接，也不要忘了#include <mmsystem.h>

转自http://hi.baidu.com/chenyun1985/blog/item/2f5d27730872991c8601b033.html

 

 

用这个函数播放媒体文件最好先打开再播放,当然是可以一步播放的.
mciSendString(L"open abc.mp3 type MPEGVideo alias mci",0,0,0);
abc.mp3就是要打开的文件,mci是打开后的名称,相当其它API函数的句柄,但这个函数是用一个别名来表示.这个名字可以自己随便取,只要不引起 冲突就可以了.关于MPEGVideo,有人说播放相应的视频文件才用,其实不是,播放任何文件都可以用,包括声音文件,你没有必要再用其它的设备名.
然后播放用:
mciSendString(L"play mci",0,0,0);
就可以播放了,想暂停用:
mciSendString(L"pause mci",0,0,0);
停止:
mciSendString(L"stop mci",0,0,0);
重新(继续)播放,再次调用:
mciSendString(L"play mci",0,0,0);
关于这个函数的后3个参数是用于返回值的,也非常简单.第二个参数是字串空间,提前分配好内存用于存贮返回信息,第二个参数是这个空间的大小.第三个参数是一个接收消息的窗口句柄,这个函数可以向窗口发送消息.
我比较测试没有问题的就是这些,其它的什么seek,在特定的窗口播放呀,都没有搞定.知道的希望说一下,只要贴个语句就可以了.

用完之后,大家要记的用 mciSendString(L"close mci",0,0,0); 关闭,不然可能会有问题. mciSendString(L"play mci fullscreen",0,0,0); 全屏播放,可以在播放的时候调用. 这个函数可以播放你的Windows Media Player支持的所有文件类型,在我的机器上也可以播放rmvb,3gp,mov等类型,但还是有问题.rmvb打开速度非常之慢,但Windows Media Player就不会.播放某些类型还会打开一个解码器的窗口,Windows Media Player也不会.

 

 

 

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 '关闭