在 Delphi 下使用 DirectSound (14): 测试镶边效果器 IDirectSoundFXFlanger8


{相关结构:}
TDSFXFlanger = packed recordfWetDryMix: Single; //  0 .. 100  : 50  (%)fDepth: Single;     //  0 .. 100  : 100 (%)fFeedback: Single;  //-99 .. 99   : -50 (%)fFrequency: Single; //  0 .. 10   : 0.25lWaveform: Longint; //  0 .. 1    : 1fDelay: Single;     //  0 .. 4    : 2   (ms)lPhase: Longint;    //  0 .. 4    : 2
end;//该结构相关常量:
DSFXFLANGER_WETDRYMIX_MIN = 0.0;
DSFXFLANGER_WETDRYMIX_MAX = 100.0;DSFXFLANGER_DEPTH_MIN     = 0.0;
DSFXFLANGER_DEPTH_MAX     = 100.0;DSFXFLANGER_FEEDBACK_MIN  = -99.0;
DSFXFLANGER_FEEDBACK_MAX  = 99.0;DSFXFLANGER_FREQUENCY_MIN = 0.0;
DSFXFLANGER_FREQUENCY_MAX = 10.0;DSFXFLANGER_WAVE_TRIANGLE = 0;
DSFXFLANGER_WAVE_SIN      = 1;DSFXFLANGER_PHASE_MIN     = 0;
DSFXFLANGER_PHASE_MAX     = 4;DSFXFLANGER_DELAY_MIN     = 0.0;
DSFXFLANGER_DELAY_MAX     = 4.0;DSFXFLANGER_PHASE_NEG_180 = 0;
DSFXFLANGER_PHASE_NEG_90  = 1;
DSFXFLANGER_PHASE_ZERO    = 2;
DSFXFLANGER_PHASE_90      = 3;
DSFXFLANGER_PHASE_180     = 4;

测试代码:
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls;typeTForm1 = class(TForm)Button1: TButton;Button2: TButton;LabeledEdit1: TLabeledEdit;LabeledEdit2: TLabeledEdit;LabeledEdit3: TLabeledEdit;LabeledEdit4: TLabeledEdit;LabeledEdit5: TLabeledEdit;RadioGroup1: TRadioGroup;RadioGroup2: TRadioGroup;procedure FormCreate(Sender: TObject);procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);procedure RadioGroup1Click(Sender: TObject);procedure LabeledEdit1Change(Sender: TObject);procedure FormDestroy(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}uses DirectSound, ReadWave2;varmyDSound: IDirectSound8;buf8: IDirectSoundBuffer8;fxFlanger: IDirectSoundFXFlanger8; //IDirectSoundFXFlanger8 效果器procedure TForm1.FormCreate(Sender: TObject);
beginSystem.ReportMemoryLeaksOnShutdown := True;DirectSoundCreate8(nil, myDSound, nil);myDSound.SetCooperativeLevel(Handle, DSSCL_NORMAL);Button1.Caption := '打开并播放';Button2.Caption := '停止播放';LabeledEdit1.EditLabel.Caption := 'fWetDryMix: 0.0 - 100.0';LabeledEdit1.Text := '50.0';LabeledEdit1.Tag := 1;LabeledEdit2.EditLabel.Caption := 'fDepth: 0.0 - 100.0';LabeledEdit2.Text := '100.0';LabeledEdit2.Tag := 2;LabeledEdit3.EditLabel.Caption := 'fFeedback: -99.0 - 99.0';LabeledEdit3.Text := '-50.0';LabeledEdit3.Tag := 3;LabeledEdit4.EditLabel.Caption := 'fFrequency: 0.0 - 10.0';LabeledEdit4.Text := '1.0';LabeledEdit4.Tag := 4;LabeledEdit5.EditLabel.Caption := 'ffDelay: 0.0 - 4.0';LabeledEdit5.Text := '2.0';LabeledEdit5.Tag := 5;RadioGroup1.Caption := 'lWaveform:';RadioGroup1.Items.CommaText := 'WAVE_TRIANGLE, WAVE_SIN';RadioGroup1.ItemIndex := 1;RadioGroup2.Caption := 'lPhase:';RadioGroup2.Items.CommaText := '-180,-90,0,90,180';RadioGroup2.ItemIndex := 2;LabeledEdit2.OnChange := LabeledEdit1.OnChange;LabeledEdit3.OnChange := LabeledEdit1.OnChange;LabeledEdit4.OnChange := LabeledEdit1.OnChange;LabeledEdit5.OnChange := LabeledEdit1.OnChange;RadioGroup2.OnClick := RadioGroup1.OnClick;
end;procedure TForm1.Button1Click(Sender: TObject);
varbuf: IDirectSoundBuffer;bufDesc: TDSBufferDesc;rEffect: TDSEffectDesc;wav: TReadWave;p1: Pointer;n1: DWORD;
beginwav := TReadWave.Create;if not wav.OpenDialog then begin wav.Free; Exit; end;ZeroMemory(@bufDesc, SizeOf(TDSBufferDesc));bufDesc.dwSize := SizeOf(TDSBufferDesc);bufDesc.dwFlags := DSBCAPS_CTRLFX;bufDesc.dwBufferBytes := wav.Size;bufDesc.lpwfxFormat := @wav.Format;myDSound.CreateSoundBuffer(bufDesc, buf, nil);buf.QueryInterface(IID_IDirectSoundBuffer8, buf8);buf8.Lock(0, 0, @p1, @n1, nil, nil, DSBLOCK_ENTIREBUFFER);wav.Read(p1, n1);wav.Free;buf8.Unlock(p1, n1, nil, 0);ZeroMemory(@rEffect, SizeOf(TDSEffectDesc));rEffect.dwSize := SizeOf(TDSEffectDesc);rEffect.dwFlags := 0;rEffect.guidDSFXClass := GUID_DSFX_STANDARD_FLANGER;buf8.SetFX(1, @rEffect, nil);buf8.GetObjectInPath(GUID_DSFX_STANDARD_FLANGER, 0, IID_IDirectSoundFXFlanger8, fxFlanger);buf8.Play(0, 0, DSBPLAY_LOOPING);
end;procedure TForm1.Button2Click(Sender: TObject);
beginif Assigned(buf8) then buf8.Stop;
end;procedure TForm1.RadioGroup1Click(Sender: TObject);
varrFlanger: TDSFXFlanger;
beginif buf8 = nil then Exit;rFlanger.fWetDryMix := StrToFloat(LabeledEdit1.Text);rFlanger.fDepth     := StrToFloat(LabeledEdit2.Text);rFlanger.fFeedback  := StrToFloat(LabeledEdit3.Text);rFlanger.fFrequency := StrToFloat(LabeledEdit4.Text);rFlanger.lWaveform  := RadioGroup1.ItemIndex;rFlanger.fDelay     := StrToFloat(LabeledEdit5.Text);rFlanger.lPhase     := RadioGroup2.ItemIndex;fxFlanger.SetAllParameters(rFlanger);
end;procedure TForm1.LabeledEdit1Change(Sender: TObject);
varf: Single;obj: TLabeledEdit;
beginobj := Sender as TLabeledEdit;if obj.Text = '-' then Exit;f := StrToFloatDef(obj.Text, MaxInt);case obj.Tag of1: if (f < 0)   or (f > 100) then obj.Text := '50.0';2: if (f < 0)   or (f > 100) then obj.Text := '100.0';3: if (f < -99) or (f > 99)  then obj.Text := '-50.0';4: if (f < 0)   or (f > 10)  then obj.Text := '0.25';5: if (f < 0)   or (f > 20)  then obj.Text := '2';end;RadioGroup1.OnClick(nil);
end;procedure TForm1.FormDestroy(Sender: TObject);
beginbuf8 := nil;myDSound := nil;
end;end.

窗体设计:
object Form1: TForm1Left = 0Top = 0Caption = 'Form1'ClientHeight = 287ClientWidth = 314Color = clBtnFaceFont.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -11Font.Name = 'Tahoma'Font.Style = []OldCreateOrder = FalseOnCreate = FormCreateOnDestroy = FormDestroyPixelsPerInch = 96TextHeight = 13object Button1: TButtonLeft = 24Top = 18Width = 75Height = 25Caption = 'Button1'TabOrder = 0OnClick = Button1Clickendobject Button2: TButtonLeft = 120Top = 18Width = 75Height = 25Caption = 'Button2'TabOrder = 1OnClick = Button2Clickendobject LabeledEdit1: TLabeledEditLeft = 24Top = 72Width = 138Height = 21EditLabel.Width = 61EditLabel.Height = 13EditLabel.Caption = 'LabeledEdit1'TabOrder = 2OnChange = LabeledEdit1Changeendobject LabeledEdit2: TLabeledEditLeft = 24Top = 115Width = 138Height = 21EditLabel.Width = 61EditLabel.Height = 13EditLabel.Caption = 'LabeledEdit2'TabOrder = 3endobject LabeledEdit3: TLabeledEditLeft = 24Top = 160Width = 138Height = 21EditLabel.Width = 61EditLabel.Height = 13EditLabel.Caption = 'LabeledEdit3'TabOrder = 4endobject LabeledEdit4: TLabeledEditLeft = 24Top = 208Width = 138Height = 21EditLabel.Width = 61EditLabel.Height = 13EditLabel.Caption = 'LabeledEdit4'TabOrder = 5endobject LabeledEdit5: TLabeledEditLeft = 24Top = 253Width = 138Height = 21EditLabel.Width = 61EditLabel.Height = 13EditLabel.Caption = 'LabeledEdit5'TabOrder = 6endobject RadioGroup1: TRadioGroupLeft = 177Top = 56Width = 129Height = 64Caption = 'RadioGroup1'TabOrder = 7OnClick = RadioGroup1Clickendobject RadioGroup2: TRadioGroupLeft = 176Top = 136Width = 129Height = 138Caption = 'RadioGroup2'TabOrder = 8end
end

运行效果图:

o_20111023_3.png

转载于:https://www.cnblogs.com/del/archive/2011/01/23/1942732.html

本文来自互联网用户投稿，该文观点仅代表作者本人，不代表本站立场。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如若转载，请注明出处：http://www.mzph.cn/news/410744.shtml

如若内容造成侵权/违法违规/事实不符，请联系多彩编程网进行投诉反馈email:809451989@qq.com，一经查实，立即删除！

相关文章

html判断是否在页面,html判断当前页面是否在iframe中的实例

html判断是否在页面,html判断当前页面是否在iframe中的实例

html判断当前页面是否在iframe中的实例在做HTML页面的时候&#xff0c;经常会遇到“如果当前页面显示在iframe中&#xff0c;我们就相应的处理”判断方法为&#xff1a;//判断是否在iframe中if(self!top){parent.window.location.replace(window.location.href);}以上这篇html判…
阅读更多...
一种用户体验-显示对话框时灰化你的主窗体

一种用户体验-显示对话框时灰化你的主窗体

袁永福 ( http://www.xdesigner.cn ) 2007&#xff0d;8&#xff0d;10 程序全部源代码下载(工程文件使用VS.NET2003格式):/Files/xdesigner/DisableMask.rar 在一些Web程序中,有一种页面效果,当弹出一个模拟的对话框时,主页面就整体灰化了,其他的元素不能动弹,只有这个对话框能…
阅读更多...
html文档中用于表示页面标题的标记对是,汽车发动机拆装与检修实训超星尔雅答案...

html文档中用于表示页面标题的标记对是,汽车发动机拆装与检修实训超星尔雅答案...

摘要&#xff1a;汽车生活事件也称为应激源( )在教师的直接领导下整个班级的学生一起进行的学习&#xff0c;机拆检修称为( )实训教学二字连用最早出自( )...汽车生活事件也称为应激源( )发动下列不属于课程与教学关系观的是( )在教师的直接领导下整个班级的学生一起进行的学习…
阅读更多...
H5|web移动前端自适应适配布局解决方案

H5|web移动前端自适应适配布局解决方案

方案&#xff1a; 固定一个某些宽度&#xff0c;使用一个模式&#xff0c;加上少许的媒体查询方案使用flexbox解决方案使用百分比加媒体查询使用rem1. 简单问题简单解决 我觉得有些web app并一定很复杂&#xff0c;比如拉勾网&#xff0c;你看看它的页面在iphone4,iphone6,ipad…
阅读更多...
[转] 用Diff和Patch工具维护源码

[转] 用Diff和Patch工具维护源码

在Unix系统下&#xff0c;维护源码版本可以使用很多方法&#xff0c;其中最常用的当然是大名鼎鼎的CVS&#xff0c;但实际上&#xff0c;简单的版本维护工作并没有必要使用复杂的CVS等专门的版本维护工具&#xff0c;Unix标配中的diff和patch工具就完全可以完成代码的简单备份和…
阅读更多...
jQuery 结合 Json 提交数据到Webservice，并接收从Webservice返回的Json数据

jQuery 结合 Json 提交数据到Webservice，并接收从Webservice返回的Json数据

简单的Json数据提交 jQuery ajax webservice&#xff1a;get 和 post 一、GET 方式客户端代码vardata { classCode: "0001"}; //这里要直接使用JOSN对象$.ajax({ type: "GET", contentType: "application/json; chars…
阅读更多...
X86逆向教程10：学会使用硬件断点

X86逆向教程10：学会使用硬件断点

本节课我们将学习硬件断点的使用技巧&#xff0c;硬件断点是由硬件提供给我们的一组寄存器&#xff0c;我们可以对这些硬件寄存器设置相应的值&#xff0c;然后让硬件帮我们断在需要下断点的地址上面&#xff0c;这就是硬件断点&#xff0c;硬件断点依赖于寄存器&#xff0c;这…
阅读更多...
html 监控键盘,后台监控鼠标和键盘(可监听全局的鼠标以及键盘按键)

html 监控键盘,后台监控鼠标和键盘(可监听全局的鼠标以及键盘按键)

资源下载此资源下载价格为3D币&#xff0c;请先登录资源文件列表MouseKeyboardLibrary/MouseKeyboardLibrary/app.config , 134MouseKeyboardLibrary/MouseKeyboardLibrary/bin/Debug/MouseKeyboardLibrary.exe , 23040MouseKeyboardLibrary/MouseKeyboardLibrary/bin/Debug/Mo…
阅读更多...
POJ 3258 River Hopscotch

POJ 3258 River Hopscotch

题目链接&#xff1a;https://vjudge.net/problem/POJ-3258 题目大意 给定数轴上一个起点 0&#xff0c;终点 L&#xff0c;以及中间 N 个不同的点&#xff0c;现准备删除中间 N 个点中的 M 个&#xff0c;使得剩下来的点&#xff08;包括起点和终点&#xff09;&#xff0c;相…
阅读更多...
2021泉州高考学校成绩查询,2021泉州市地区高考成绩排名查询,泉州市高考各高中成绩喜报榜单...

2021泉州高考学校成绩查询,2021泉州市地区高考成绩排名查询,泉州市高考各高中成绩喜报榜单...

距离2018年高考还有不到一个月的时间了&#xff0c;很多人在准备最后冲刺的同时&#xff0c;也在关心高考成绩。2018各地区高考成绩排名查询,高考各高中成绩喜报榜单尚未公布&#xff0c;下面是往年各地区高考成绩排名查询,高考各高中成绩喜报榜单&#xff0c;想要了解同学可以…
阅读更多...
转载:CEO如何“养好CIO同时管好CIO”?

转载:CEO如何“养好CIO同时管好CIO”?

http://www.enet.com.cn/article/2010/1214/A20101214800028.shtml 在现代企业经营理论中&#xff0c;有个着名的“二八定律”&#xff0c;即人才对企业贡献而言&#xff0c;常常是20%的人做出了80%的企业效益。显而易见&#xff0c;这“20%”就是企业的骨干与核心。而这“20%”…
阅读更多...
Abraca：XMMS2 的客户端

Abraca：XMMS2 的客户端

Toy Posted in AppsRSSTrackback Abraca 是基于 GTK2 而开辟的 XMMS2 音乐播放器的客户端。今后具有播放列表、音乐经管等功用。需留神的是&#xff0c;此法式要求 XMMS2、GTK 2、libglade、libnotify&#xff08;可选&#xff09;、Python 等。- Download Abraca 0.1版权声明&…
阅读更多...
pandas plot label_数据科学| 手把手教你用 pandas 索引、汇总、处理缺失数据

pandas plot label_数据科学| 手把手教你用 pandas 索引、汇总、处理缺失数据

作者&#xff1a;Paul编者按&#xff1a; pandas提供了很多常用的数学和统计方法&#xff0c;本文中将用十分详细的例子来具体进行介绍&#xff1b;另外在许多数据分析工作中,缺失数据是经常发生的&#xff0c;将会具体介绍如何处理缺失数据。本文十分详细并实在低介绍了pandas…
阅读更多...
2011年三八妇女节搜索引擎LOGO设计欣赏

2011年三八妇女节搜索引擎LOGO设计欣赏

今天是一年一度的三八国际妇女节&#xff0c;在这个特别的日子&#xff0c;烈火学院向所有女性致以节日的祝福&#xff0c;祝愿每位女同胞节日快乐&#xff0c;工作愉快&#xff01;并送上本期的搜索引擎LOGO设计欣赏&#xff0c;希望大家喜欢&#xff01; 一。百度 有作家曾说…
阅读更多...
诺基亚2亿欧元建越南新工场

诺基亚2亿欧元建越南新工场

诺基亚昨天颁布发表将会在越南北部河内左近设立扶植一个新的装配厂&#xff0c;方案于2012年尾投入运用&#xff0c;初期投资达到2亿欧元&#xff0c;约合18.3亿人夷易近币。诺基亚目下当今在世界上拥有10个工场&#xff0c;新厂将会进入到诺基亚的举世制造搜集&#xff0c;为他…
阅读更多...
Android 一直往文件写数据_( 十 ) 小众但好用：通过 Google drive 备份与同步 Keepass 数据库...

Android 一直往文件写数据_( 十 ) 小众但好用：通过 Google drive 备份与同步 Keepass 数据库...

之前有提到过&#xff0c;keepass 的数据库是加密保存在本地的。而且 keepass 又是多平台免费的密码管理软件。所以如果需要实现 keepass 在多平台读取同一个数据库&#xff0c;我们需要自己搭一个服务器才怪&#xff01;搭服务器太麻烦&#xff0c;还要额外支出费用&#xff0…
阅读更多...
mysql操作数据库

mysql操作数据库

转载于:https://www.cnblogs.com/sunpxit/p/11189089.html
阅读更多...
win7锁定计算机会断网吗,win7系统如何设置电脑定时断网

win7锁定计算机会断网吗,win7系统如何设置电脑定时断网

有些win7系统用户在使用电脑过程中&#xff0c;想要给电脑设置定时断网&#xff0c;但是却不知道要怎么操作&#xff0c;其实我们可以通过系统自带的任务计划功能来进行操作&#xff0c;该怎么操作呢&#xff0c;本教程就给大家讲解一下win7系统设置电脑定时断网的详细步骤。1、…
阅读更多...
回文_Manacher算法

回文_Manacher算法

算法简介:算法的目的是在O(n)的时间复杂度内找到一个字符串中各个字母所在的最大长度的回文串。 此算法用到了一个Rad[]数组的定义&#xff0c;Rad[i]表示回文的半径&#xff0c;即最大的j满足str[i-j1...i] str[i1...ij]。 我们的工作就是把全部的Rad[]求出来。 有两个结论: …
阅读更多...
linux 查当前pid_杀死僵尸进程，你需要这些神奇高效的Linux命令行

linux 查当前pid_杀死僵尸进程，你需要这些神奇高效的Linux命令行

Linux 高手&#xff0c;其实都是玩儿命令行很熟练的人。命令行的学习捷径Linux 命令有许多强大的功能&#xff1a;从简单的磁盘操作、文件存取&#xff0c;到进行复杂的多媒体图像和流媒体文件的制作&#xff0c;都离不开命令行。在 Linux 的学习中&#xff0c;新手都会遇到这么…
阅读更多...
推荐文章
最新文章

Copyright @ 2022~2023