利用directx處理聲音文件

1、VBVB下利用下利用DirectXDirectX處理聲音文件處理聲音文件責任編輯：ncic更新日期：200742前言微軟提供的DirectX技術不僅可以實現(xiàn)圖形圖像的處理，而且DirectX提供了DirectSound和DirectMusic類以分別支持聲音（WAVE）文件和音樂（I）文件，筆者結合自己的學習體會，介紹如何在VisualBasic環(huán)境下利用DirectX技術實現(xiàn)WAVE和I文件的處理，和廣大編程愛好者一起交流，希望能夠互

2、相學習，共同進步。一、DirectSound聲音處理技術DirectSound類對象是DirectX提供的實現(xiàn)播放、捕捉數(shù)字聲音文件的對象，它不僅可以播放聲音文件，還可以實現(xiàn)聲音在虛擬的三維空間的定位。它包括以下的幾個對象：DirectSound、DirectSoundBuffer、DirectSound3Dbuffer、Direct3DsoundListner、DirectSoundCapture、DirectSoundCapture

3、Buffer。其中DirectSound對象和DirectSoundCapture對象是DirectSound類對象的基本對象，利用DirectX7對象的DirectSoundCreate()方法和DirectSoundCaptureCreate()方法可以分別建立DirectSound對象和DirectSoundCapture對象。DirectSoundBuffer對象和DirectSound3Dbuffer是音頻播放緩沖對象，顧名思

4、義，前者是音頻播放對象，而后者是三維音頻播放對象。DirectSound對象實現(xiàn)聲音文件的播放，而DirectSoundCapture對象是用來捕捉聲音數(shù)據(jù)的基本對象。Direct3DSoundListner對象用于設置播放三維聲音效果時收聽者所處的位置。下面通過一個程序來介紹DirectSound的應用，這個程序可以利用DirectSound3DBuffer播放文件并可以動態(tài)的設置聲音位置。首先建立一個工程文件，在其中加入Direct

5、X7說明庫，然后在Fm1中加入一個PictureBox控件和兩個CommButton控件。將Picture1的Width和Height屬性都設置為3000；將Picture1的Scale屬性設置為3Pixel。保存工程文件，并在工程所在的目錄下放置一個名為Demo.wav的聲音文件。在Fm1的代碼窗口加入以下代碼：Dimm_dxAsNewDirectX7Dimm_dsAsDirectSoundDimm_dsBufferAsDirectS

6、oundBufferDimm_ds3dBufferAsDirectSound3DBufferDimm_dsPrimaryBufferAsDirectSoundBufferDimm_dsListenerAsDirectSound3DListenerDimm_posAsD3DVECTSubDrawPositions()DimXAsIntegerDimzAsIntegerPicture1.Cls以黑色圈標出收聽者所在的位置Picture1.C

7、ircle(Picture1.ScaleWidth2Picture1.ScaleHeight2)4以紅色圈標出聲音所在的位置Ifm_dsBufferIsNothingThenExitSubm_dsBuffer.Stopm_dsBuffer.SetCurrentPosition0EndSubPrivateSubFm_Load()DimiAsIntegerComm1.Caption=“播放“Comm2.Caption=“停止“Me.Show

8、DoEventsOnLocalErrResumeNext建立DirectSound對象Setm_ds=m_dx.DirectSoundCreate(vbNullString)IfErr.Number0ThenMsgBox“無法建立DirectSound對象，請查看聲卡或驅(qū)動程序是否安裝正確“EndEndIf設置DirectSound對象的協(xié)作模式m_ds.SetCooperativeLevelMe.hWndDSSCL_PRIITYDim

9、primDescAsDSBUFFERDESCfmatAsWAVEFMATEXprimDesc.lFlags=DSBCAPS_CTRL3DDSBCAPS_PRIMARYBUFFER建立主聲音緩沖對象Setm_dsPrimaryBuffer=m_ds.CreateSoundBuffer(primDescfmat)建立DirectSound3DListener對象Setm_dsListener=m_dsPrimaryBuffer.GetDir

10、ectSound3DListener()m_pos.X=10:m_pos.z=50UpdatePositionm_pos.Xm_pos.zEndSubPrivateSubPicture1_MouseDown(ButtonAsIntegerShiftAsIntegerXAsSingleYAsSingle)IfButton=1ThenUpdatePositionXYEndIfEndSubPrivateSubPicture1_Paint()D