VB中DirectX音频控制——DirectXSound和DirectXMusic

     DirectSound是DirectX中负责音频处理成员，可以直接存取和控制音频设备而提高高质量混音、3D立体音鱼多声道控制功能。

     DirectSound组件通过DirectSound HAL（硬件抽象层）接口跳过Windows组件直接驱动计算机的音频硬件，并进行硬件加速功能，如果用户硬件不支持加速功能，可以通过HEL（硬件模拟层）接口仿真音频硬件加速工作。DirectSound控件提供了低延迟混音和3D立体音效是得以广泛使用的重要原因。

     利用DirectSound实现音频播放需要一下过程：

     1.声明DirectSound对象

     '绘图DX设备资源==================== Public g_dx As New DirectX8 Public myDS As DirectSound8 Public myDSBuff(0 To 8) As DirectSoundSecondaryBuffer8 Public myBuffDESC As DSBUFFERDESC Public myWavFormat As WAVEFORMATEX 

     声明DirectX 8对象，声明DirectSound对象，一个DirectSound对象等同于一个声卡控制单元，一台计算机上一般安装一个音频硬件，所以只需要建立一个DirectSound对象即可。声明DirectSoundSecondaryBuffer对象，声明DirectSound对象时会自动设置主要缓冲区进行声音文件的播放工作，每个DirectSound对象只能有一个主要缓冲区控件，我们加载多个音频的话来进行混音或多个播放的话，我们需要利用DirectSoundSecondaryBuffer对象来启动二级缓冲区，其工作是将多个暂存的声音文件传送到主要缓冲区进行混音或播放工作。设置DSBUFFERDESC对象是为设置缓冲区结构巩固走，缓冲区是否可以音量与声道的调整都在这设置。WAVEFORMATEX对象是设置文件的结构。

     2.建立DirectSound对象

     3.加载设置音频文件

     4.音频播放与控制

     5.播放资源的释放

    '建立myDS控件 Set myDS = g_dx.DirectSoundCreate(vbNullString) myDS.SetCooperativeLevel TempForm.hwnd, DSSCL_PRIORITY '建立缓冲区 Set myDSBuff(0) = myDS.CreateSoundBufferFromFile(App.path & "\beijing.wav", myBuffDESC) '播放 myDSBuff(Index).Play 0 ‘0标示播放一次 1表示播放2次 myDSBuff(Index).Play DSBPLAY_LOOPING '循环播放 myDSBuff(Index).Play DSBPLAY_DEFAULT '默认是单次播放 '音量控制 myDSBuff(Index).SetVolume volumeValue '停止播放 If Not (myDSBuff(i) Is Nothing) Then '停止myDSBuf作用并重新设置播放标识位置 myDSBuff(i).Stop myDSBuff(i).SetCurrentPosition 0 End If '资源释放 Set myDSBuff(i) = Nothing Set myDS = Nothing Set myDX = Nothing 

 

    

     3D音效：

     3D音效师以发声者与接收者为基础，依据两者相互作用关系产生具有空间变化的3D音效。主要影响有距离，相对位置，移动速度和发声锥。

     声明相关DirectSound3D对象，过错和DirectSound类似，主要额外声明DS3D缓冲区，主缓冲区和接收者对象。

     'DirectSound相关对象声明区块 Dim myDX As New DirectX8 Dim myDS As DirectSound8 Dim myPrimaryBuf As DirectSoundPrimaryBuffer8 Dim myDSBuf As DirectSoundSecondaryBuffer8 Dim priBufDESC As DSBUFFERDESC Dim secBufDESC As DSBUFFERDESC ' DirectSound3D相关对象声明区块 Dim myDS3DBuf As DirectSound3DBuffer8 Dim myListener As DirectSound3DListener8 

     建立DirectSound对象，需要在建立DirectSound主缓冲区结构时加入DSBCAPS_CTRL3D参数并设置缓冲区可进行3D音频控制。

     '建立DS对象并设定相关属性 Set myDS = myDX.DirectSoundCreate("") myDS.SetCooperativeLevel Me.hWnd, DSSCL_NORMAL '建立主要缓冲区对象以及其结构内容 priBufDESC.lFlags = DSBCAPS_CTRL3D Or DSBCAPS_PRIMARYBUFFER Set myPrimaryBuf = myDS.CreatePrimarySoundBuffer(priBufDESC) Set myListener = myPrimaryBuf.GetDirectSound3DListener '建立副次要缓冲区对象及其结构内容 secBufDESC.lFlags = DSBCAPS_CTRL3D Or DSBCAPS_STATIC Set myDSBuf = myDS.CreateSoundBufferFromFile("sample1.wav", secBufDESC) '建立DS3DBuffer对象与设定相关属性数据 Set myDS3DBuf = myDSBuf.GetDirectSound3DBuffer myDS3DBuf.SetConeOrientation 0, 0, -1, DS3D_IMMEDIATE myDS3DBuf.SetConeAngles 30, 50, DS3D_IMMEDIATE myDS3DBuf.SetConeOutsideVolume -400, DS3D_IMMEDIATE 

     DirectMusic是DirectX中负责MIDI音频文件播放与控制的成员。MIDI文件容量远小于Wave文件，还可以将MIDI中加入混音，达到Wave效果。

     DirectMusic对象的声明，DirectMusicLoader对象用于读取用户指定的MIDI声音文件并保存到DirectMusicSegment对象所打开的缓冲区中，DMSegment对象用于设置缓冲区，程序将MIDI文件读取后，提供DMPerformance对象进行控制。DMPerformace对保存的MIDI文件进行播放输出与状态调节控制。

     Public g_dx As New DirectX8 'DirectMusic对象声明 Public myDMP As DirectMusicPerformance8 Public myDML As DirectMusicLoader8 Public myMtitle(0 To 3) As DirectMusicSegment8 '储存mid文件 '建立DM对象 Set myDML = g_dx.DirectMusicLoaderCreate Set myDMP = g_dx.DirectMusicPerformanceCreate Dim dma As DMUS_AUDIOPARAMS '初始化myDMP对象 myDMP.InitAudio TempForm.hwnd, DMUS_AUDIOF_ALL, dma, Nothing, DMUS_APATH_DYNAMIC_STEREO, 128 '设置是否支持DSL格式 myDMP.SetMasterAutoDownload True '设置主声道音量 myDMP.SetMasterVolume 500  

   声音文件的加载，播放与控制,文件打开成功并加载到DMSegment提供缓冲区后，就可以音频播放控制了。注意DM中不能像DS中仅仅Stop，而需要记录暂停点，StopEx的第2个参数就是表示停止时间点。

   '建立缓冲区 Set myMtitle(0) = myDML.LoadSegment(App.path & "beijing.mid") myMtitle(0).SetRepeats -1 '音频播放 '对象 状态 播放时间 状态DMUS_SEGF_DEF默认循环播放 0表示立即开始 myDMP.PlaySegmentEx myMtitle(Index), DMUS_SEGF_DEFAULT, 0 '对已经具有MIDI数据时，需要StopEx停止数据输出 myDMP.StopEx myMtitle(LastIndex), 0, DMUS_SEGF_DEFAULT '音量 myDMP.SetMasterVolume volumeValue '节奏 myDMP.SendTmpoPMSG musicState,0,tempoValue