[Komponente] Bass Player Komponente: TBassDLLPlayer (+Demos)

[Dana]

Hallo Turbo Pascal,

ich habe mit Deinen Komonenten BassdllPlayer versucht die Lautstärke eines Internetstreams zu verändern. Ging leider nicht. Deshalb habe ich folgende Zeilen in Deine Unit eingefügt. Ist das in Ordnung. Oder was habe ich falsch gemacht.


if Modus = moStream then
BASS_SetVolume(Volume);

Delphi-Quellcode:

procedure TBassdllPlayer.SetVolume(Volume: Byte);
var AnzChannels: integer;
begin
  // Begrenzen auf 100
  if Volume > 100 then Volume := 100;

   if Modus = moStream then
  BASS_SetVolume(Volume);

  if Modus = moSamples then
    BASS_SetConfig(BASS_CONFIG_GVOL_STREAM, Volume);

  if Modus = moMusik then
  begin
    AnzChannels := 0;
    while (BASS_MusicSetAttribute(Channel, BASS_MUSIC_ATTRIB_VOL_CHAN + AnzChannels, 1) <> DWord(-1)) do
    begin
      BASS_MusicSetAttribute(Channel, BASS_MUSIC_ATTRIB_VOL_CHAN +  AnzChannels, Volume);
      inc(AnzChannels);
    end;
  end;
end;