文档章节

在 Delphi 下使用 DirectSound (10): 测试合唱效果器 IDirectSoundFXChorus8

涂孟超
 涂孟超
发布于 2014/09/26 15:34
字数 788
阅读 3
收藏 0
点赞 0
评论 0

{相关结构}
TDSFXChorus = packed record //最大值 .. 最大值 : 默认值
  fWetDryMix: Single; //  0 .. 100 : 50 (%)
  fDepth: Single;     //  0 .. 100 : 10 (%)
  fFeedback: Single;  //-99 .. 99  : 25 (%)
  fFrequency: Single; //  0 .. 10  : 1.1
  lWaveform: Longint; //  0 .. 1   : 1
  fDelay: Single;     //  0 .. 20  : 16 (ms)
  lPhase: Longint;    //  0 .. 4   : 3
end;

//该结构相关常量:
DSFXCHORUS_WETDRYMIX_MIN  = 0.0;
DSFXCHORUS_WETDRYMIX_MAX  = 100.0;

DSFXCHORUS_DEPTH_MIN      = 0.0;
DSFXCHORUS_DEPTH_MAX      = 100.0;

DSFXCHORUS_FEEDBACK_MIN   = -99.0;
DSFXCHORUS_FEEDBACK_MAX   = 99.0;

DSFXCHORUS_FREQUENCY_MIN  = 0.0;
DSFXCHORUS_FREQUENCY_MAX  = 10.0;

DSFXCHORUS_WAVE_TRIANGLE  = 0;
DSFXCHORUS_WAVE_SIN       = 1;

DSFXCHORUS_DELAY_MIN      = 0.0;
DSFXCHORUS_DELAY_MAX      = 20.0;

DSFXCHORUS_PHASE_MIN      = 0;
DSFXCHORUS_PHASE_MAX      = 4;
DSFXCHORUS_PHASE_NEG_180  = 0;
DSFXCHORUS_PHASE_NEG_90   = 1;
DSFXCHORUS_PHASE_ZERO     = 2;
DSFXCHORUS_PHASE_90       = 3;
DSFXCHORUS_PHASE_180      = 4;


测试代码:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = 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;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses DirectSound, ReadWave2;

var
  myDSound: IDirectSound8;
  buf8: IDirectSoundBuffer8;
  fxChorus: IDirectSoundFXChorus8; //IDirectSoundFXChorus8 效果器

procedure TForm1.FormCreate(Sender: TObject);
begin
  System.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 := '10.0';
  LabeledEdit2.Tag := 2;

  LabeledEdit3.EditLabel.Caption := 'fFeedback: -99.0 - 99.0';
  LabeledEdit3.Text := '25.0';
  LabeledEdit3.Tag := 3;

  LabeledEdit4.EditLabel.Caption := 'fFrequency: 0.0 - 10.0';
  LabeledEdit4.Text := '1.1';
  LabeledEdit4.Tag := 4;

  LabeledEdit5.EditLabel.Caption := 'ffDelay: 0.0 - 20.0';
  LabeledEdit5.Text := '16.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 := 3;

  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);
var
  buf: IDirectSoundBuffer;
  bufDesc: TDSBufferDesc;
  rEffect: TDSEffectDesc;
  wav: TReadWave;
  p1: Pointer;
  n1: DWORD;
begin
  wav := 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_CHORUS;
  buf8.SetFX(1, @rEffect, nil);
  buf8.GetObjectInPath(GUID_DSFX_STANDARD_CHORUS, 0, IID_IDirectSoundFXChorus8, fxChorus);
  buf8.Play(0, 0, DSBPLAY_LOOPING);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if Assigned(buf8) then buf8.Stop;
end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
var
  rChorus: TDSFXChorus;
begin
  if buf8 = nil then Exit;
  rChorus.fWetDryMix := StrToFloat(LabeledEdit1.Text);
  rChorus.fDepth     := StrToFloat(LabeledEdit2.Text);
  rChorus.fFeedback  := StrToFloat(LabeledEdit3.Text);
  rChorus.fFrequency := StrToFloat(LabeledEdit4.Text);
  rChorus.lWaveform  := RadioGroup1.ItemIndex;
  rChorus.fDelay     := StrToFloat(LabeledEdit5.Text);
  rChorus.lPhase     := RadioGroup2.ItemIndex;
  fxChorus.SetAllParameters(rChorus);
end;

procedure TForm1.LabeledEdit1Change(Sender: TObject);
var
  f: Single;
  obj: TLabeledEdit;
begin
  obj := Sender as TLabeledEdit;
  if obj.Text = '-' then Exit;
  f := StrToFloatDef(obj.Text, MaxInt);
  case obj.Tag of
    1: if (f < 0)   or (f > 100) then obj.Text := '50.0';
    2: if (f < 0)   or (f > 100) then obj.Text := '10.0';
    3: if (f < -99) or (f > 99)  then obj.Text := '25.0';
    4: if (f < 0)   or (f > 10)  then obj.Text := '1.1';
    5: if (f < 0)   or (f > 20)  then obj.Text := '16.0';
  end;
  RadioGroup1.OnClick(nil);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  buf8 := nil;
  myDSound := nil;
end;

end.


窗体设计:
object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 287
  ClientWidth = 314
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 24
    Top = 18
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 4
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 120
    Top = 18
    Width = 75
    Height = 25
    Caption = 'Button2'
    TabOrder = 5
    OnClick = Button2Click
  end
  object LabeledEdit1: TLabeledEdit
    Left = 24
    Top = 72
    Width = 138
    Height = 21
    EditLabel.Width = 61
    EditLabel.Height = 13
    EditLabel.Caption = 'LabeledEdit1'
    TabOrder = 0
    OnChange = LabeledEdit1Change
  end
  object LabeledEdit2: TLabeledEdit
    Left = 24
    Top = 115
    Width = 138
    Height = 21
    EditLabel.Width = 61
    EditLabel.Height = 13
    EditLabel.Caption = 'LabeledEdit2'
    TabOrder = 1
  end
  object LabeledEdit3: TLabeledEdit
    Left = 24
    Top = 160
    Width = 138
    Height = 21
    EditLabel.Width = 61
    EditLabel.Height = 13
    EditLabel.Caption = 'LabeledEdit3'
    TabOrder = 2
  end
  object LabeledEdit4: TLabeledEdit
    Left = 24
    Top = 208
    Width = 138
    Height = 21
    EditLabel.Width = 61
    EditLabel.Height = 13
    EditLabel.Caption = 'LabeledEdit4'
    TabOrder = 3
  end
  object LabeledEdit5: TLabeledEdit
    Left = 24
    Top = 253
    Width = 138
    Height = 21
    EditLabel.Width = 61
    EditLabel.Height = 13
    EditLabel.Caption = 'LabeledEdit5'
    TabOrder = 8
  end
  object RadioGroup1: TRadioGroup
    Left = 177
    Top = 56
    Width = 129
    Height = 64
    Caption = 'RadioGroup1'
    TabOrder = 6
    OnClick = RadioGroup1Click
  end
  object RadioGroup2: TRadioGroup
    Left = 176
    Top = 136
    Width = 129
    Height = 138
    Caption = 'RadioGroup2'
    TabOrder = 7
  end
end


运行效果图:


本文转载自:http://www.cnblogs.com/del/archive/2011/01/21/1941751.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
技术解析:如何实现K歌App中的实时合唱

之前我们解析过很多社交直播App中不同场景的开发,比如在线K歌、小程序直播、多人视频聊天、AR等。 我们最近在知乎看到了一个问题「为什么k歌软件始终没有开发出实时合唱功能?」,我们只在知...

Agora
05/31
0
0
DirectSound入门

文档内容: (费话篇) 关于DirectSound DirectSound是DirectX API的音频(waveaudio)组件之一,它可以提供快速的混音、硬件加速功能,并且可以直接访问相关设备,当然,最主要的是它提供的...

长平狐
2012/08/13
824
0
golang语言中的math库中效率低下,可能是类型转换花费了大量时间?

今天写了个加密的东西,用到了math.Sqrt求质数,发现用的时间很久,先不管下面的例子算法是否有问题,我就写了个demo寻找10 000 000以内的质数个数,原本这个demo是delphi写的,我把它翻译成...

大洋的顶端
2017/10/26
0
14
SDL2源代码分析1:初始化(SDL_Init())

===================================================== SDL源代码分析系列文章列表: SDL2源代码分析1:初始化(SDLInit()) SDL2源代码分析2:窗口(SDLWindow) SDL2源代码分析3:渲染器...

leixiaohua1020
2014/11/01
0
0
不在乎y/Duilib for Delphi

###DDuilib 目录 项目介绍 其它说明 初次使用 自行编译 目录详情 Demo截图 作者信息 项目介绍 什么是DDuilib(原名“Duilib for Delphi”)? DDuilib是一个建立在C++开源项目duilib之上,且最...

不在乎y
2015/12/26
0
0
Windows上的音频采集技术(转)

转自:http://shanewfx.github.io/blog/2013/08/14/caprure-audio-on-windows/前一段时间接到一个任务,需要采集到声卡的输出信号,以便与麦克风的输入信号进行混音。 之前一直没有研究过音频...

元谷
2013/12/05
0
0
delphi 与 php 相关连的知识点总结.

为了维护xampps这项目, delphi还必须得会那么一点. 总不能碰到问题就问人吧, 感觉太不长进了. 经过几天的努力编写与学习, 以站在php角度来思考delphi, 感觉php强大的确是真理. 但delphi的理念...

Tuesday
2013/12/12
0
1
为什么使用useLegacyV2RuntimeActivationPolicy?

原文:为什么使用useLegacyV2RuntimeActivationPolicy? 参考:https://msdn.microsoft.com/zh-cn/library/bbx34a2h.aspx MSDN的解释是:指定是否启用 .NET Framework 2.0 运行时激活策略,或...

杰克.陈
03/10
0
0
我的开源视音频项目汇总

本文汇总一下自己视音频编解码学习方面的开源项目。这些开源项目大体上可以分成专业领域程序,FFmpeg示例程序,FFmpeg移植程序,多媒体项目示例程序,视音频编解码原理学习工程几个类别。这些...

leixiaohua1020
2015/01/13
0
0
DJ音频工具--Giada

Giada 是一个免费的、轻便的音频工具,主要用于 DJ、在线演播以及电子音乐家。只需要选择你的样本填充到任何频道,通过使用这个小软件并启动显示作为一个循环机,鼓机,音序器,现场取样器或效应...

匿名
2010/12/17
978
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

(转)SQL语句的执行顺序

(7) SELECT (8) DISTINCT <select_list> (1) FROM <left_table> (3) <join_type> JOIN <right_table> (2) ON <join_condition> (4) WHERE <where_condition> (5) GROUP BY <group_by_list> (......

Avner
11分钟前
0
0
1.14 救援模式

确保开机启动时连接镜像文件,如果是真机服务器,就需要:U盘或光盘镜像启动进入BIOS 不同主板进入bios按键不同,一般是F12或Esc 光标:移动到Boot(开机启动项) 减号移动:光标选中行,按-...

小丑鱼00
19分钟前
0
0
ES11-全文检索

高级别全文检索通常用于在全文本字段(如电子邮件正文)上运行全文检索。 他们了解如何分析被查询的字段,并在执行之前将每个字段的分析器(或search_analyzer)应用于查询字符串。 1.term查...

贾峰uk
22分钟前
0
0
java 复制对象有哪些方式

java 复制对象有哪些方式 Apache的 Common beanutils库 org.apache.commons.beanutils.BeanUtils.copyProperties(dest,origin); Springframework 的BeanUtil 依赖: <dependency> ......

黄威
37分钟前
1
0
jstack的简单使用

公司测试反应, 一个java应用的机器, 即使不做交易, cpu始终是30%多, 于是想到了jstack, 实践步骤记录一下: 1, 找出java应用的进程号 ps -ef|grep 应用名|grep -v grep 2, 找出pid下的cpu占用...

零二一七
44分钟前
1
0
崛起于Springboot2.X之项目war打包部署(18)

将springboot项目打包步骤: 1、启动类 extends SpringBootServletInitializer 2、启动类添加覆盖方法 @Overrideprotected SpringApplicationBuilder configure(SpringApplicationBuilder......

木九天
53分钟前
2
0
导入CSV文件就行数据整理分析

#-*-coding:utf-8-*-import csv,os,re,mathlocalPath=input("请输入所有群文件的根目录:") #所有QQ群文件的物理根目录路径def info(): info_dic=[] dirList=os.listdi...

Kefy
59分钟前
5
0
CoreText进阶(六)-内容大小计算和自动布局

CoreText进阶(六)-内容大小计算和自动布局 其它文章: CoreText 入门(一)-文本绘制 CoreText入门(二)-绘制图片 CoreText进阶(三)-事件处理 CoreText进阶(四)-文字行数限制和显示更...

aron1992
今天
1
0
一个Unity高人的博客,涉猎范围很广,深度也很深。

https://blog.csdn.net/ecidevilin/article/list/

爽歪歪ES
今天
0
0
Spring Cloud Config-Git后端

EnvironmentRepository的默认实现使用Git后端,这对于管理升级和物理环境以及审核更改非常方便。要更改存储库的位置,可以在Config Server中设置“spring.cloud.config.server.git.uri”配置...

itcloud
今天
1
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部