在Delphi下用Direct Sound 实现混音器组件
点击次数：51 次 发布日期：2008-11-09 08:42:14 作者：源代码网
源代码网推荐 源代码网推荐 Direct X是微软公司提供给游戏编写人员的一套应用程序编程接口(APIs)，它为编写高效、实时的应用程序提供了有力的支持。因此，有必要将这个接口封装到Delphi的组件库中。Direct X SDK是面向Visual C/C 和Watcom C/C 的，因而使用Object Pascal直接存取Direct X SDK，将带来诸多不便。但我们可先在VC下将Direct X接口封装成动态链接库，然后在Delphi下通过该动态链接库去存取Direct X。 源代码网推荐 源代码网推荐 本文介绍用Delphi封装Direct Sound的方法，这种方法同样也可以应用到Direct Draw（但建议不要使用独占模式，否则会带来不少问题）。 源代码网推荐 源代码网推荐 先简单介绍一下Direct Sound的接口界面。Direct Sound的基本对象有两个，即IDirectDraw和IDirectDrawBuffer。前者代表声卡，后者代表声音数据缓冲区。 源代码网推荐 源代码网推荐 IDirectDraw是整个Direct Sound的基础，其建立方法如下： 源代码网推荐 源代码网推荐 LPDIRECTSOUND lpDS; 源代码网推荐 源代码网推荐 HRESULT ErrorCode; 源代码网推荐 源代码网推荐 HWND hwnd=Mainhwnd;//窗口句柄 源代码网推荐 源代码网推荐 ErrorCode=DirectSoundCreate(NULL, &lpDS, NULL); //建立对象 源代码网推荐 源代码网推荐 if(ErrorCode!=DS_OK)return FALSE; //失败则返回 源代码网推荐 源代码网推荐 ErrorCode=lpDS->SetCooperativeLevel(hwnd, DSSCL_NORMAL);//设置存取模式 源代码网推荐 源代码网推荐 if(ErrorCode!=DS_OK) //失败则返回 源代码网推荐 源代码网推荐 { 源代码网推荐 源代码网推荐 lpDS->Release(); 源代码网推荐 源代码网推荐 lpDS=NULL; 源代码网推荐 源代码网推荐 return FALSE; 源代码网推荐 源代码网推荐 } 源代码网推荐 源代码网推荐 IDirectDrawBuffer通过IDirectDraw建立。IDirectDrawBuffer有两种基本类型，一种被称作“基本缓冲区”(Primary Buffer)， 另一种被称作“辅助缓冲区”(Secondary Buffer)。 基本缓冲区是Direct Sound 混音的基础，一般不直接存取这个缓冲区(虽然也可以)，但可以通过该缓冲区去存取初始化声卡，方法如下： 源代码网推荐 源代码网推荐 HRESULT ErrorCode; 源代码网推荐 源代码网推荐 LPDIRECTSOUND lpDS=lpMainDS;//Direct Sound对象 源代码网推荐 源代码网推荐 LPDIRECTSOUNDBUFFER lpDBP; 源代码网推荐 源代码网推荐 DSBUFFERDESC dsbds; 源代码网推荐 源代码网推荐 ZeroMemory(&dsbds,sizeof(dsbds)); 源代码网推荐 源代码网推荐 dsbds.dwSize=sizeof(dsbds); 源代码网推荐 源代码网推荐 dsbds.dwFlags=DSBCAPS_PRIMARYBUFFER; 源代码网推荐 源代码网推荐 ErrorCode=lpDS->CreateSoundBuffer(&dsbds,&lpDBP,NULL);//建立基本缓冲区 源代码网推荐 源代码网推荐 if(ErrorCode!=DS_OK)return FALSE;//失败则返回 源代码网推荐 源代码网推荐 ErrorCode=lpDBP->Play(0,0,DSBPLAY_LOOPING);//初始化 源代码网推荐 源代码网推荐 if(ErrorCode!=DS_OK)//失败则返回 源代码网推荐 源代码网推荐 { 源代码网推荐 源代码网推荐 lpDBP->Release(); 源代码网推荐 源代码网推荐 lpDBP=NULL; 源代码网推荐 源代码网推荐 lpDS->Release(); 源代码网推荐 源代码网推荐 lpDS=NULL; 源代码网推荐 源代码网推荐 return FALSE; 源代码网推荐 源代码网推荐 } 源代码网推荐 源代码网推荐 lpDBP->Release();//释放基本缓冲区 源代码网推荐 源代码网推荐 return TRUE; //初始化成功 源代码网推荐 源代码网推荐 辅助缓冲区可以建立任意多个，声音数据就放在这种缓冲区内，每个缓冲区可被独立播放(IDirectSoundBuffer::Play)，Direct Sound会处理这些声音并实现混音的效果。其建立方法与基本缓冲区的差不多，只是对DSBUFFERDESC的填写有些不一样： 源代码网推荐 源代码网推荐 ZeroMemory(&dsbufferdesc,sizeof(dsbufferdesc)); 源代码网推荐 源代码网推荐 dsbufferdesc.dwSize=sizeof(dsbufferdesc); 源代码网推荐 源代码网推荐 dsbufferdesc.dwFlags=DSBCAPS_STATIC|DSBCAPS_CTRLDEFAULT; 源代码网推荐 源代码网推荐 dsbufferdesc.dwBufferBytes=BufferSize;//缓冲区大小 源代码网推荐 源代码网推荐 dsbufferdesc.lpwfxFormat=(LPWAVEFORMATEX)&pcmformat;//wav文件的PCM格式 源代码网推荐 源代码网推荐 ErrorCode=lpDS->CreateSoundBuffer(&dsbd,&lpSB,NULL); 源代码网推荐 源代码网推荐 建立该缓冲区后，通过IDirectSoundBuffer::Lock锁定内存即可写入数据。数据可以用普通MCI的多媒体函数读取，由于篇幅所限，这里不再详述，读者可以参考Win32 SDK手册和Direct X SDK的联机帮助。值得注意的是，Direct Sound的缓冲区是循环的，Lock返回两个指针，数据必须分成两部分写入。 源代码网推荐 源代码网推荐 数据进入DirectSoundBuffer后，就可以调用IDirectSoundBuffer的声音控制方法来控制声音的播放、停止、频率、声道等特性。但要注意的是：因为Win95是多任务的，设备有可能被别的程序占用，所以IDirectSoundBuffer的功能调用可能会引发DSERR_BUFFERLOST错误。此时，如果要确保你的请求一定会得到响应，则必须调用IDirectSoundBuffer::Restore以重新获得设备。 源代码网推荐 源代码网推荐 掌握了这些基本概念后，就可以在C 中编写Direct Sound的控制程序了，但Delphi无法直接存取上面提及的数据结构。为了解决这个问题，我们可以定义一个数组，分别代表不同的辅助缓冲区，Dephi通过该数组的索引来使用多个缓冲区。因此，我们的DLL中至少包括以下的接口函数： 源代码网推荐 源代码网推荐 CreateDSoundInterface(HWND hwnd)//初始化 源代码网推荐 源代码网推荐 LoadWave(int index, char *filename)//装入wav数据 源代码网推荐 源代码网推荐 Play(int Index) //播放 源代码网推荐 源代码网推荐 Stop(int Index)//停止 源代码网推荐 源代码网推荐 Clear(int Index)//释放缓冲区 源代码网推荐 源代码网推荐 当然，还可以加入其它控制，例如对频率、声道等的控制。 源代码网推荐 源代码网推荐 有了动态链接库后，在Delphi中编写混音器组件的方法就比较简单了，与其它组件基本上没什么区别。 源代码网推荐 源代码网推荐 首先，新建一个组件(New Component)，设定其祖先类型为TComponent。然后，编写相应的方法初始化设备，实现DLL中提供的功能。这里只作两点说明： 源代码网推荐 源代码网推荐 1、不要在继承的Create函数中加载DLL和初始化设备。不在构造方法中初始化设备是明智的做法，因为这样做较安全。 源代码网推荐 源代码网推荐 2、因为DLL是用C编写的，所以接口函数说明必须是C的调用标准，例如可以像下面这个样子： 源代码网推荐 源代码网推荐 Var 源代码网推荐 源代码网推荐 DllFunction : 源代码网推荐 源代码网推荐 function(Parametre : ParaType) : RusultType; cdecl; 源代码网推荐 源代码网推荐 ...... 源代码网推荐 源代码网推荐 LibraryHandle=LoadLibrary("DllFile.dll"); 源代码网推荐 源代码网推荐 ...... 源代码网推荐 源代码网推荐 @DllFunction:=GetProcAddress(LibHandle,"DllFunction_Name"); 源代码网推荐 源代码网推荐 组件单元编好以后，可通过选择Component|Install Component菜单来将组件装入Delphi的组件库即可使用它。 源代码网推荐 源代码网推荐 本文所介绍的程序在Visual C 4.2、Delphi 3.0、Direct X 5.0 SDK下通过，但程序功能只需VC 2.0、 Delphi 2.0、 Direct X 2.0(Visual C 4.0内置Direct X 2.0 SDK)支持即可。若要确保程序能够正常运行，则必须在Win95下安装Direct X,并将DLL文件放到WindowsSystem目录下。 源代码网推荐 源代码网推荐 源代码网供稿. |
