|
前言
微软提供的DirectX技术不仅可以实现图形图像的处理，而且DirectX提供了DirectSound和DirectMusic类以分别支持声音（WAVE）文件和音乐（MIDI）文件，笔者结合自己的学习体会，介绍如何在Visual
Basic环境下利用DirectX技术实现WAVE和MIDI文件的处理，和广大编程爱好者一起交流，希望能够互相学习，共同进步。
一、DirectSound声音处理技术
DirectSound类对象是DirectX提供的实现播放、捕捉数字声音文件的对象，它不仅可以播放声音文件，还可以实现声音在虚拟的三维空间的定位。它包括以下的几个对象：DirectSound、DirectSoundBuffer、DirectSound3Dbuffer、Direct3DsoundListner、DirectSoundCapture、DirectSoundCaptureBuffer。其中DirectSound对象和DirectSoundCapture对象是DirectSound类对象的基本对象，利用DirectX7对象的DirectSoundCreate()方法和DirectSoundCaptureCreate()方法可以分别建立DirectSound对象和DirectSoundCapture对象。DirectSoundBuffer对象和DirectSound3Dbuffer是音频播放缓冲对象，顾名思义，前者是音频播放对象，而后者是三维音频播放对象。DirectSound对象实现声音文件的播放，而DirectSoundCapture对象是用来捕捉声音数据的基本对象。Direct3DSoundListner对象用于设置播放三维声音效果时收听者所处的位置。
下面通过一个程序来介绍DirectSound的应用，这个程序可以利用DirectSound3DBuffer播放文件并可以动态的设置声音位置。首先建立一个工程文件，在其中加入DirectX7说明库，然后在Form1中加入一个PictureBox控件和两个CommandButton控件。将Picture1的Width和Height属性都设置为3000；将Picture1的Scale属性设置为3-Pixel。保存工程文件，并在工程所在的目录下放置一个名为
Demo.wav 的声音文件。在Form1的代码窗口加入以下代码：
Dim m_dx As New DirectX7
Dim m_ds As DirectSound
Dim m_dsBuffer
As DirectSoundBuffer
Dim m_ds3dBuffer As DirectSound3DBuffer
Dim
m_dsPrimaryBuffer As DirectSoundBuffer
Dim m_dsListener As
DirectSound3DListener
Dim m_pos As D3DVECTOR
Sub
DrawPositions()
Dim X As Integer
Dim z As
Integer
Picture1.Cls
'以黑色圈标出收听者所在的位置
Picture1.Circle
(Picture1.ScaleWidth / 2, Picture1.ScaleHeight / 2),
4
'以红色圈标出声音所在的位置
X = CInt(m_pos.X) + Picture1.ScaleWidth / 2
z =
CInt(m_pos.z) + Picture1.ScaleHeight / 2
Picture1.Circle (X, z), 4,
RGB(255, 0, 0)
End Sub
Sub Load(sFile As String)
Dim bufferDesc1
As DSBUFFERDESC
Dim waveFormat1 As
WAVEFORMATEX
'设置将建立的DirectSoundBuffer对象的属性
bufferDesc1.lFlags =
(DSBCAPS_CTRL3D Or DSBCAPS_CTRLFREQUENCY Or _
DSBCAPS_CTRLPAN Or
DSBCAPS_CTRLVOLUME) Or DSBCAPS_STATIC
'建立DirectSoundBuffer对象
Set
m_dsBuffer = m_ds.CreateSoundBufferFromFile(sFile, bufferDesc1,
_
waveFormat1)
'设置DirectSoundBuffer对象的声音（0为最大）
m_dsBuffer.SetVolume
0
'设置DirectSoundBuffer对象
Set m_ds3dBuffer =
m_dsBuffer.GetDirectSound3DBuffer
'设置DirectSoundBuffer对象的播放方向属性
m_ds3dBuffer.SetConeOrientation
1, 1, 1, DS3D_IMMEDIATE
m_ds3dBuffer.SetConeAngles DS3D_MINCONEANGLE,
100, DS3D_IMMEDIATE
m_ds3dBuffer.SetConeOutsideVolume -100,
DS3D_IMMEDIATE
'设置DirectSoundBuffer对象的播放位置属性
m_ds3dBuffer.SetPosition
m_pos.X / 50, 0, m_pos.z / 50, DS3D_IMMEDIATE
End Sub
Sub
UpdatePosition(X As Single, z As Single)
m_pos.X = X -
Picture1.ScaleWidth / 2
m_pos.z = z - Picture1.ScaleHeight /
2
DrawPositions
If m_ds3dBuffer Is Nothing Then Exit
Sub
'重新设置DirectSoundBuffer对象的播放位置属性
m_ds3dBuffer.SetPosition m_pos.X
/ 50, 0, m_pos.z / 50, DS3D_IMMEDIATE
End Sub
Private Sub
Command1_Click()
If m_dsBuffer Is Nothing Then
Call
Load(App.Path + "\demo.wav")
End
If
'循环播放声音文件
m_dsBuffer.Play 1
End Sub
Private Sub
Command2_Click()
If m_dsBuffer Is Nothing Then Exit
Sub
m_dsBuffer.Stop
m_dsBuffer.SetCurrentPosition 0
End
Sub
Private Sub Form_Load()
Dim i As Integer
Command1.Caption =
"播放"
Command2.Caption = "停止"
Me.Show
DoEvents
On Local Error
Resume Next
'建立DirectSound对象
Set m_ds =
m_dx.DirectSoundCreate(vbNullString)
If Err.Number <> 0
Then
MsgBox "无法建立DirectSound对象，请查看声卡或驱动程序是否安装正确"
End
End
If
'设置DirectSound对象的协作模式
m_ds.SetCooperativeLevel Me.hWnd,
DSSCL_PRIORITY
Dim primDesc As DSBUFFERDESC, format As
WAVEFORMATEX
primDesc.lFlags = DSBCAPS_CTRL3D Or
DSBCAPS_PRIMARYBUFFER
'建立主声音缓冲对象
Set m_dsPrimaryBuffer =
m_ds.CreateSoundBuffer(primDesc,
format)
'建立DirectSound3DListener对象
Set m_dsListener =
m_dsPrimaryBuffer.GetDirectSound3DListener()
m_pos.X = 10: m_pos.z =
50
UpdatePosition m_pos.X, m_pos.z
End Sub
Private Sub
Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As
Single)
If Button = 1 Then
UpdatePosition X, Y
End If
End Sub
Private Sub Picture1_Paint()
DrawPositions
End
Sub
运行程序，在PictureBox中回出现一个黑色和一个红色的小圆圈。黑色的代表虚拟的收听者的位置，红色的代表音源的位置。点击"播放"按钮即可以播放wav文件，你可以点击PictureBox中的不同位置来设置音源的位置，然后再听一下声音发生的改变，由于本人机器上安装的只是普通双声道声卡，所以效果不是很明显，有高档多声道声卡的朋友可以使用上面的程序感受一下你的声卡的三维效果。
> 159
没有相关教程
|
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
