关键字: 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,图像就没地方了...
本文地址：http://com.8s8s.com/it/it41735.htm