关键字: VB.NET DirectX 9 DirectSound AudioVideoPlayback 作者:董含君

本来打算开始3D Sound的,还有很多东西前面漏掉了,所以先补充一下

希望大风跟么么茶能早点完成Direct3D.

=============以上是废话=======================

前面的例子都是读取的wav

打开资源管理器你会发现他们的内存使用情况.

有多大的wav内存就要消耗多少.一个4分钟以内的音乐消耗大概30M左右.

当然也要看音质,这个跟体积是成正比的.如果你打算做播放器,而不是

游戏音效(游戏背景音乐现在都用MP3或者其他要求即时性不强的方法

来实现)那么可以考虑用流式输入.就是把New SecondaryBuffer(Filename...

换成IO.Stream类才行

IO.Stream不能直接继承....

1 自己写一个SoundStream,可以,但是我比较懒,不干
2 找现成的,FileStream

于是原来的
Buf = New SecondaryBuffer("G:\MEDIA\WAV\rod2.wav", desc, ad)
变成了现在的
Dim S As New FileStream("g:\media\wav\rod2.wav", FileMode.Open)
Buf = New SecondaryBuffer(S, desc, ad)

(其实还有很多办法,但是那个电子鼓的演示实在太长...微软又没有提供

相关的代码)

经过测试,不使用Stream的时候播放一个15M的程序消耗内存38M

使用Stream的时候,消耗内存高达50多M!!!!

我设置缓冲区+异步播放同样狂吃内存.

看来FileStream就是要全装了(以后慢慢研究)

或者为了节约内存,自己写SoundStream类吧

如果你仅仅想用来播放音乐,强烈建议您使用Audio类

这个不应该算DSound,但是还是顺便提一下吧

首先再工程里面添加对AudioVideoPlayback的引用

然后Imports
Imports Microsoft.DirectX.AudioVideoPlayback

用的是后就简单了
Const FN = "G:\MEDIA\WAV\teru_teru_momiji.wav"
Dim Au As New Audio(FN)
Au.Play()

而且仅用了3M的内存,超级节约.

最重要的,还可以网络播放.

Dim Au As Audio
Dim U As New System.Uri("mms://music.comicme.net/free/animemusic/[M][美鸟伴身边][Midori][美鸟の日々]/ED%20Single%20-%20もう少し…もう少し…/01%20-%20もう少し…もう少し….wma")
Au = Audio.FromUrl(U)
Au.Play()

不知道是应该哭还是应该笑.微软对托管的DirectX进行了封装,就把原来

的DirectShow 以及 DirectSound 的一部分放进去了(Video 跟 Audio

正好对应着DShow 跟 DSound&DMusic)

通过代码可以得知,实在是简单太多了.问题是我想在D3DSurface里面播放

动画只能自己想办法了....

==============以下开始废话==============

本来还3D的,结果这里浪费了这么多时间.

如果你打算播放音乐,那么老老实实的用Audio类.DSound只能放wav(我还

没找到播放其他格式的方法.Formats里面只有俩,一个PCM一个flaot)

而且播放的时候内存需求超大,做音效的时候,如果数量比较多,那么要

考虑定期释放了.不然光音效就占用了好几十M,图像就没地方了...