Audiodatei mit echo wiedergegben

[Mazel]

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