文档章节

在 Delphi 下使用 DirectSound (17): 频率均衡效果器 IDirectSoundFXParamEq8

涂孟超
 涂孟超
发布于 2014/09/26 15:36
字数 570
阅读 8
收藏 0
点赞 0
评论 0

{相关结构:}
TDSFXParamEq = packed record
  fCenter: Single;    // 80 .. 16000 : 8000.0 (Hz)
  fBandwidth: Single; //  1 .. 36    : 12.0
  fGain: Single;      //-15 .. 15    : 0.0
end;

//该结构相关常量:
DSFXPARAMEQ_CENTER_MIN    = 80.0;
DSFXPARAMEQ_CENTER_MAX    = 16000.0;

DSFXPARAMEQ_BANDWIDTH_MIN = 1.0;
DSFXPARAMEQ_BANDWIDTH_MAX = 36.0;

DSFXPARAMEQ_GAIN_MIN      = -15.0;
DSFXPARAMEQ_GAIN_MAX      = 15.0;


测试代码:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    LabeledEdit1: TLabeledEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure LabeledEdit1Change(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses DirectSound, ReadWave2; //ReadWave2 是前面(9)自定义的单元

var
  myDSound: IDirectSound8;
  buf8: IDirectSoundBuffer8;
  fxParamEqs: array[0..5] of IDirectSoundFXParamEq8; //IDirectSoundFXParamEq8 效果器数组
  arrTrack: array[0..5] of TTrackBar;

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  System.ReportMemoryLeaksOnShutdown := True;
  DirectSoundCreate8(nil, myDSound, nil);
  myDSound.SetCooperativeLevel(Handle, DSSCL_NORMAL);

  Button1.Caption := '打开并播放';
  Button2.Caption := '停止播放';

  for i := 5  downto 0 do
  begin
    arrTrack[i] := TTrackBar.Create(Self);
    arrTrack[i].Parent := Self;
    arrTrack[i].Orientation := trVertical;
    arrTrack[i].ShowSelRange := False;
    arrTrack[i].TickStyle := tsNone;
    arrTrack[i].Width := 32;
    arrTrack[i].Align := alRight;
    arrTrack[i].Tag := i;
    arrTrack[i].Min := -15;
    arrTrack[i].Max := 15;
    arrTrack[i].Position := 0;
    arrTrack[i].OnChange := LabeledEdit1.OnChange;
  end;
  LabeledEdit1.EditLabel.Caption := 'fBandwidth:';
  LabeledEdit1.Text := '12.0';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  buf: IDirectSoundBuffer;
  bufDesc: TDSBufferDesc;
  rEffect: TDSEffectDesc;
  wav: TReadWave;
  p1: Pointer;
  n1: DWORD;
  i: Integer;
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_PARAMEQ;

  for i := 0 to 5 do
  begin
    buf8.SetFX(1, @rEffect, nil);
    buf8.GetObjectInPath(GUID_DSFX_STANDARD_PARAMEQ, 0, IID_IDirectSoundFXParamEq8, fxParamEqs[i]);
  end;

  buf8.Play(0, 0, DSBPLAY_LOOPING);
end;

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

procedure TForm1.LabeledEdit1Change(Sender: TObject);
var
  rParamEqs: TDSFXParamEq;
  i: Integer;
  f: Single;
begin
  if buf8 = nil then Exit;
  if Sender.ClassNameIs('TLabeledEdit') then
  begin
    f := StrToFloatDef(LabeledEdit1.Text, MaxInt);
    if (f < 1) or (f > 36) then LabeledEdit1.Text := '12.0';
    for i := 0 to 5 do arrTrack[i].OnChange(arrTrack[i]);
  end;
  rParamEqs.fBandwidth := StrToFloat(LabeledEdit1.Text);

  i := TTrackBar(Sender).Tag;
  case i of
    0: rParamEqs.fCenter := 100;
    1: rParamEqs.fCenter := 2000;
    2: rParamEqs.fCenter := 4000;
    3: rParamEqs.fCenter := 8000;
    4: rParamEqs.fCenter := 10000;
    5: rParamEqs.fCenter := 12000;
  end;
  rParamEqs.fGain := - TTrackBar(Sender).Position;
  fxParamEqs[i].SetAllParameters(rParamEqs);
end;

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

end.


窗体设计:
object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 205
  ClientWidth = 343
  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 = 32
    Top = 28
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 32
    Top = 67
    Width = 75
    Height = 25
    Caption = 'Button2'
    TabOrder = 1
    OnClick = Button2Click
  end
  object LabeledEdit1: TLabeledEdit
    Left = 32
    Top = 144
    Width = 89
    Height = 21
    EditLabel.Width = 61
    EditLabel.Height = 13
    EditLabel.Caption = 'LabeledEdit1'
    TabOrder = 2
    OnChange = LabeledEdit1Change
  end
end


运行效果图:


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

共有 人打赏支持
涂孟超
粉丝 12
博文 2004
码字总数 14107
作品 0
深圳
程序员
DirectSound入门

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

长平狐 ⋅ 2012/08/13 ⋅ 0

效果器及音响相关术语解释

cable:连线,过线,以上是常规的翻译,意思就是连接一个输出到另一个输入,但根据信号的不同,cable分的很细的种类. instrument cable:乐器线,在电声领域特指高阻抗低电流的信号过线,必须有完善的...

v289 ⋅ 2017/05/29 ⋅ 0

均衡器CTLE的原理、特点及作用

CTLE是什么?上篇文章也提到了,直白的翻译为连续时间线性均衡。它是在接收端芯片上的一种技术。之前也提到了,CTLE的作用可以在传输损耗较大的链路,有效的改善接收端眼图的性能。 对于有过...

edadoc2013 ⋅ 03/22 ⋅ 0

Windows上的音频采集技术(转)

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

元谷 ⋅ 2013/12/05 ⋅ 0

delphi 与 php 相关连的知识点总结.

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

Tuesday ⋅ 2013/12/12 ⋅ 1

Tomcat/Memcached实现会话保持(SessionServer)

前言 在实际生产中,我们常常会面临这样一个问题,那就当我们通过负载均衡调度器进行调度处理时,不同的后端主机需要对客户的访问会话进行状态保持。也就是说,当调度器将用户的请求进行代理...

Eumenides_s ⋅ 2017/11/07 ⋅ 0

Nginx 配置实践

nginx 一般用作请求转发,用作服务器集群的负载均衡 典型的高并发集群是 nginx+tomcat(多个) nginx可以高效处理对静态文件的请求,tomcat 负责动态请求 配置范例: #user nobody;worker_pr...

HZCoder ⋅ 2016/03/29 ⋅ 0

白噪声

白噪声,是一种功率谱密度为常数的随机信号或随机过程。即,此信号在各个频段上的功率是一样的。由于白光是由各种频率(颜色)的单色光混合而成,因而此信号的这种具有平坦功率谱的性质被称作...

天蚕宝衣 ⋅ 2017/04/10 ⋅ 0

端口映射工具--PortMap

端口映射器 由于网络上下载的一个貌似delphi写的PortMap v1.6( http://www.onlinedown.net/soft/7023.htm )版本的工具频率崩溃, 于是花了一些时间重写了一个用于做端口映射的工具程序, 虽然简...

Jackarain ⋅ 2012/01/11 ⋅ 0

SDL2源代码分析1:初始化(SDL_Init())

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

leixiaohua1020 ⋅ 2014/11/01 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

jsonrpc-4j代码解析

解析文件 AutoJsonRpcServiceImplExporter JsonServiceExporter AutoJsonRpcServiceImplExporter 路径:com.googlecode.jsonrpc4j.spring.AutoJsonRpcServiceImplExporter AutoJsonRpcServi......

郭恩洲_OSC博客 ⋅ 36分钟前 ⋅ 0

百度搜索

from selenium import webdriver import time brower=webdriver.Firefox() brower.get('http://www.baidu.com') input=brower.find_element_by_id('kw') input.send_keys('中南大学') time.s......

南桥北木 ⋅ 43分钟前 ⋅ 0

tomcat 日志记录器

1、日志记录器是记录消息的组件 日志记录器需要与某个servlet 容器相关联 2、Logger 接口 共定义了5种日志级别:FATAL、ERROR、WARNING、INFORMATION、DEBUGGER setVerbosity 设置级别 setC...

职业搬砖20年 ⋅ 44分钟前 ⋅ 0

Thrift RPC实战(三) Thrift序列化机制

1.Thrift基础架构 Thrift是一个客户端和服务端的架构体系,数据通过socket传输; 具有自己内部定义的传输协议规范(TProtocol)和传输数据标准(TTransports); 通过IDL脚本对传输数据的数据结构...

lemonLove ⋅ 44分钟前 ⋅ 0

网站建设就要像2018世界杯的俄罗斯队大杀四方[图]

今天心情不错,因为昨天晚上观看了世界杯比赛,尤其是对俄罗斯队的大杀四方感到十分霸气侧漏啊,因此我联想到了自己的博客网站,我的博客是去年年底上线的,一直想建设一个关于读书和读后感作...

原创小博客 ⋅ 53分钟前 ⋅ 0

Greenplum 三节点安装教程(非root用户)

Greenplum 三节点安装教程(非root用户) 环境准备 安装vmware,装三台centos 虚拟机设置: 主机名 IP 内存 硬盘 node1 Xxx1 2G 80G node2 Xxx2 2G 80G node3 Xxx3 2G 80G CSDN下载greenplum...

仔仔1993 ⋅ 54分钟前 ⋅ 0

linux 信号机制

signal(SIGPIPE, SIG_IGN); TCP是全双工的信道, 可以看作两条单工信道, TCP连接两端的两个端点各负责一条. 当对端调用close时, 虽然本意是关闭整个两条信道, 但本端只是收到FIN包. 按照TCP协...

xxdd ⋅ 55分钟前 ⋅ 0

SpringWind

环境搭建和系统部署

颖伙虫 ⋅ 今天 ⋅ 0

vim命令用法

第五章 vim命令 vim和vi几乎是一样的,唯一的区别就是当编辑一个文本时,使用vi不会显示颜色,而使用vim会显示颜色。 vim有三个模式:一般模式,编辑模式,命令模式。 系统最小化安装时没有安...

弓正 ⋅ 今天 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部