Use directsound (14) in Delphi: test the edge effect idirectsoundfxflanger8

{Related structure:} tdsfxflanger = packed record fwetdrymix: single; // 0 .. 100: 50 (%) fdepth: single; // 0 .. 100: 100 (%) ffeedback: single; //-99 .. 99:-50 (%) ffrequency: single; // 0 .. 10: 0.25 lwaveform: longint; // 0 .. 1: 1 fdelay: single; // 0 .. 4: 2 (MS) lphase: longint; // 0 .. 4: 2end; // constants related to the structure: Limit = 0.0; Limit = 100.0; Limit = 0.0; Limit = 100.0; dsfxflanger_feedback_min =-99.0; dsfxflanger_feedback_max = 99.0; Limit = 0.0; token = 10.0; dsfxflanger_wave_triangle = 0; dsfxflanger_wave_sin = 1; token = 0; token = 4; token = 0.0; token = 4.0; token = 0; token = 1; dsfxflanger_phase_zero = 2; dsfxflanger_phase_90 = 3; dsfxflanger_phase_180 = 4;
 

Test Code :

Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls, extctrls; Type tform1 = Class (tform) button1: tbutton; button2: tbutton; tags: tags; labelededit3: tlabelededit; labelededit4: tags; tags: tags; radiogroup1: tradiogroup; radiogroup2: tradiogroup; Procedure formcreate (Sender: tobject ); procedure extract (Sender: tobject); Procedure button2click (Sender: tobject); Procedure extract (Sender: tobject ); end; var form1: tform1; implementation {$ R *. DFM} uses directsound, readwave2; var mydsound: idirectsound8; buf8: success; fxflanger: fail; // Effect Generator procedure tform1.formcreate (Sender: tobject); begin system. reportmemoryleaksonshutdown: = true; directsoundcreate8 (nil, mydsound, nil); mydsound. setcooperativelevel (handle, dsscl_normal); button1.caption: = 'open and play'; button2.caption: = 'Stop play'; 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: = '2017. 0'; labelededit2.tag: = 2; labelededit3.editlabel. caption: = 'ffeedback:-99.0-99.0 '; labelededit3.text: ='-000000'; 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; latency: = latency; latency: = labelededit1.onchange; labelededit4.onchange: = latency; latency: = latency; radiogroup2.onclick: = radiogroup1.onclick; end; Procedure tform1.button1click (Sender: tobject); var Buf: queue; bufdesc: tdsbufferdesc; reffect: Pipeline; 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: = require; buf8.setfx (1, @ reffect, nil); buf8.getobjectinpath (latency, 0, latency, fxflanger); buf8.play (0, 0, dsbplay_looping); end; procedure outputs (Sender: tobject); begin if assigned (buf8) Then buf8.stop; end; Procedure outputs (Sender: tobject); var rflanger: tdsfxflanger; begin if 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); 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 100) Then obj. text: = '50. 0'; 2: If (F 100) Then obj. text: = '100. 0 '; 3: If (F 99) Then obj. text: = '-50.0'; 4: If (f 10) Then obj. text: = '0. 25'; 5: If (F 20) Then obj. text: = '2'; end; radiogroup1.onclick (NiL); end; Procedure tform1.formdestroy (Sender: tobject); begin buf8: = nil; mydsound: = nil; end.

Form Design:

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 = 0 onclick = button1click end object button2: tbutton left = 120 top = 18 width = 75 Height = 25 caption = 'button2' taborder = 1 onclick = button2click end object labelededit1: tlabelededit left = 24 Top = 72 width = 138 Height = 21 editlabel. width = 61 editlabel. height = 13 editlabel. caption = 'labelededit1' taborder = 2 onchange = labelededit1change end object labelededit2: tlabelededit left = 24 Top = 115 width = 138 Height = 21 editlabel. width = 61 editlabel. height = 13 editlabel. caption = 'labelededit2' taborder = 3 end object labelededit3: tlabelededit left = 24 Top = 160 width = 138 Height = 21 editlabel. width = 61 editlabel. height = 13 editlabel. caption = 'labelededit3' taborder = 4 end object labelededit4: tlabelededit left = 24 Top = 208 width = 138 Height = 21 editlabel. width = 61 editlabel. height = 13 editlabel. caption = 'labelededit4' taborder = 5 end object labelededit5: tlabelededit left = 24 Top = 253 width = 138 Height = 21 editlabel. width = 61 editlabel. height = 13 editlabel. caption = 'labelededit5' taborder = 6 end object radiogroup1: tradiogroup left = 177 Top = 56 width = 129 Height = 64 caption = 'radiogroup1' taborder = 7 onclick = radiogroup1click end object radiogroup2: tradiogroup left = 176 Top = 136 width = 129 Height = 138 caption = 'radiogroup2' taborder = 8 endend

Run: