Einzelnen Beitrag anzeigen

Benutzerbild von rollstuhlfahrer
rollstuhlfahrer

Registriert seit: 1. Aug 2007
Ort: Ludwigshafen am Rhein
1.529 Beiträge
 
Delphi 7 Professional
 
#33

Re: BassPlayerEx - EQ

  Alt 3. Feb 2008, 22:33
noch was wichtiges zum ändern:

wenn man 2 Mal (auch aus versehen) Channelx.Equisiler.Start aufruft, wird dieser auch tatsächlich 2 mal gestartet. Das hat zur folge, dass die Töne kratzen, obwohl der Rechner und die Festplatte schnell genug sind. Folgende Code-Änderunges kann man dann durchführen:

Delphi-Quellcode:
procedure TBassEquiliser.Start;
begin
  if not _Enabled then // <--
  begin // <--
    _Enabled:=true;
    Init;
  end; // <--
end;

procedure TBassEquiliser.Stop;
var i:integer;
    Band:TBassEquiliserBand;
begin
  if _Enabled then // <--
  begin // <--
    for i:=1 to length(_Band) do begin
      Band:=_Band[i-1];
      Band.par.fGain:=0;
      Update(Band);
    end;
    _Enabled:=false;
    ClearAllBand;
  end; // <--
end;
rollstuhlfahrer
Bernhard
  Mit Zitat antworten Zitat