Player

[djmasi]

Jepp, das steht auch in den Beispielen.

Delphi-Quellcode:

//globale Variable
var    p: BASS_FXPARAMEQ;
       fx: array[1..4] of Integer;


procedure TFPlayer.vrBassChange(Sender: TObject);
begin
  BASS_FXGetParameters(fx[1], @p);
  p.fGain := Round(vrBass.Position/3.33)-15;
  BASS_FXSetParameters(fx[1], @p);
end;

procedure TFPlayer.vrMiddleChange(Sender: TObject);
begin
  BASS_FXGetParameters(fx[2], @p);
  p.fGain := Round(vrMiddle.Position/3.33)-15;
  BASS_FXSetParameters(fx[2], @p);
end;

procedure TFPlayer.vrTrebleChange(Sender: TObject);
begin
  BASS_FXGetParameters(fx[3], @p);
  p.fGain := Round(vrTreble.Position/3.33)-15;
  BASS_FXSetParameters(fx[3], @p);
end;

//dass dann bei play aufrufen
procedure TFPlayer.SetFx;
begin
  fx[1] := BASS_ChannelSetFX(PriChan, BASS_FX_PARAMEQ);
  fx[2] := BASS_ChannelSetFX(PriChan, BASS_FX_PARAMEQ);
  fx[3] := BASS_ChannelSetFX(PriChan, BASS_FX_PARAMEQ);

  p.fGain := Round(vrBass.Position/3.33)-15;
  p.fBandwidth := 18;
  p.fCenter := 125;
  BASS_FXSetParameters(fx[1], @p);
  p.fGain := Round(vrMiddle.Position/3.33)-15;
  p.fCenter := 1000;
  BASS_FXSetParameters(fx[2], @p);
  p.fGain := Round(vrTreble.Position/3.33)-15;
  p.fCenter := 8000;
  BASS_FXSetParameters(fx[3], @p);
end;