说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

在Delphi下用Direct Sound 实现混音器组件

HTML文档下载 WORD文档下载 PDF文档下载
在Delphi下用Direct Sound 实现混音器组件

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文件放到\Windows\System目录下。

is(expr) -JQuery API next(expr)-JQuery API not(elems)-JQuery API not(expr)-JQuery API not(el)-JQuery API 文件上传问题,如何返回上传后的文件名 如何通过pc的并口向步进机发送定时脉冲信号? 如何把表A字段B第2行的内容放入到string里? ADOCommand控件调用存储过程出错!!急,赠分 谁能该我Rose2002的下在地址,我找过好多都不能下载,谢谢!!! radius 具体应用求教! 在VC中如何得到DataGrid当前被选中的行 请教各位,在引用shlapi.dll为什么出现这样的错误 我在ie中加入了一个工具条,如何得到现在工具条的确切位置呢? ( )米比80米多多40%,比35千克少30%是( ( )比80米多40%,比( )少30%是35千克 7分之5减去它的5分之2所得的差,再除14分之3, 三分之五÷()等于四十八分之一×()等于1 〔-3分之2-(-4分之1)-12分之5-(-16 (6分之5-8分之3)/48分之1简便算法清晰一些 2√12+√1三分之1-√5三分之1-2/3√48 5又3分之1等于6分之几 等于几分之48最好今晚 ( )米比5米短3分之1 ( )千克比20千克重2 伊媒:中伊就220亿石油欠款达成协议法国两名记者命丧马里英15岁少年欲滑雪闯南极德或成“五只眼”新成员国 美德协议分口腔护理有利癌症治疗国际劳工组织:高质量就业机会短缺或不50多名乘客的埃及航空公司客机从雷达北京市公安局通报雷某案进展:决不护短巴黎飞开罗A320客机进入埃及领空后山东与京津冀治霾差距或扩大 下半年迎紫玉成烟美人迟沐恋上一条龙无限之悲剧骑士网游之邪灵法师香溪源旅游古隆中旅游丹江口旅游襄阳城旅游上关花公园旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘