Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi Audiodatei mit echo wiedergegben (https://www.delphipraxis.net/83238-audiodatei-mit-echo-wiedergegben.html)

NikoMitDaMacht 29. Dez 2006 17:12


Audiodatei mit echo wiedergegben
 
Hi!
Ich wie kann man audiodateien mit echo-effekt abspielen??
würde des mit der bass.dll gehen? wenn ja wie?

Mazel 29. Dez 2006 17:52

Re: Audiodatei mit echo wiedergegben
 
Hallo,

so sollte es gehen:
Delphi-Quellcode:
var
  BassEcho: Integer;
  BassFXEcho: BASS_FXECHO;
  BassChan: HCHANNEL;

procedure MakeEcho;
begin
 BassEcho := BASS_ChannelSetFX(BassChan, BASS_FX_ECHO, 0); // BassChan ist der Bass-Channel
 BassFXEcho.fWetDryMix:= Value1;
 BassFXEcho.fLeftDelay := Value2;
 BassFXEcho.fRightDelay := Value3;
end;

procedure ChangeEcho(Mix, Delay: Integer);
begin
 BASS_FXGetParameters(BassEcho, @BassFXEcho);
 BassFXEcho.fWetDryMix := Mix;
 BassFXEcho.fLeftDelay := Delay;
 BassFXEcho.fRightDelay := Delay;
 BASS_FXSetParameters(BassEcho, @BassFXEcho);
end;

MakeEcho; // wird aufgerufen wenn ein Echo erzeugt werden soll
ChangeEcho; // ändert die entsprechenden Parameter
In der Hilfe steht genau was die die Parameter bedeuten.

Gruß
Mazel


Alle Zeitangaben in WEZ +1. Es ist jetzt 20:31 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz