Einzelnen Beitrag anzeigen

AlexII

Registriert seit: 28. Apr 2008
1.717 Beiträge
 
FreePascal / Lazarus
 
#1

Lautstärke normalisieren?

  Alt 9. Okt 2009, 20:02
Hallo,
ich nutze das Beispielprogramm "netradio" von bass.dll, die Lautstärke wird bei mir so geregelt:

Delphi-Quellcode:
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
BASS_ChannelSetAttribute(chan, BASS_ATTRIB_VOL, TrackBar1.Position/100);
end;
Wenn ich allerdings die Lautstärke ganz leise stelle, den Sender stoppe und einen anderen starte wird die Lautstärke wieder laut und leiser kann ich die nicht mehr stellen, da es schon fast auf 0 steht.

So... ich hab eine Lösung gefunden wie ich das Problem lösen kann und zwar so:

Delphi-Quellcode:
procedure TForm1.Timer3Timer(Sender: TObject);
begin
BASS_ChannelSetAttribute(chan, BASS_ATTRIB_VOL, TrackBar1.Position/100);
end;
den Timer.Interval ist auf 66 gesetzt und sobald anderer Sender gestartet wird wird die Lautstärke auf die jeweilige Position der TrackBar gesetzt.

Jetzt meine Frage, wie löse ich dieses Problem anders, professionell, den meine spinnt ab und zu, manchmal hört man doch dass die Lautstärke leise gemacht wird.

Danke!
  Mit Zitat antworten Zitat