.net 播放音频(使用winmm.dll)

原文链接： http://www.cnblogs.com/hanf/archive/2009/09/20/1570301.html

项目中需要从数据库读取image流, 为MP3文件二进制.需要直接播放.经过查找 试用以下方法:
1. 使用winmm.dll中的sndPlaySoundA方法, 此方法可直接播放二进制数组, 但只能播放波形文件.
        //声明
        [DllImport("winmm.dll")]
        private static extern int sndPlaySoundA(byte[] lpszSoundName, int uFlags);
        //调用
        private const int SND_MEMORY = 0x4;   
        private   const   int   SND_ASYNC     =   0x1; 
        sndPlaySoundA(byteArray, SND_MEMORY);

2. 使用winmm.dll中的PlaySound方法, 此方法可播放硬盘中的文件,同样只支持波形文件.        
        [DllImport("winmm.dll")]
        public static extern long PlaySound(string lpszName, int hModule, int dwFlags);
        PlaySound("FilePath", 0, 0); 
3. 使用winmm.dll中的mciSendString方法调用wm播放音频或视频, 貌似只支持文件.
        [DllImport("winmm.dll")]
        private  static extern long mciSendString(string strCommand,
              string strReturn, int iReturnLength, IntPtr hwndCallback);
只能用第3种方法了. 先把数据库得到的流保存为文件, 再播放该文件.
以下为mciSendString方法指令, 转载自网络.
    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 ' 关闭

转载于:https://www.cnblogs.com/hanf/archive/2009/09/20/1570301.html