Hallo,
ich spiele mit Hilfe der TBassDllPlayer Komponente einen Shoutcast Stream ab. Das abspielen klappt auch. Aber die Lautstärkeregelung funzt nicht. Ich hab folgenden Code:
Delphi-Quellcode:
procedure TForm1.bsSkinSlider1Change(Sender: TObject);
begin
form1.BassdllPlayer1.Volume := func.IntToByte(form1.bsSkinSlider1.Value);
form1.Caption := IntToStr(form1.BassdllPlayer1.Volume);
end;
In func.IntToByte(int) steht folgendes:
Result := Math.Max(0, Math.Min(255, Value));
Aber leider klappt es nicht. BassdllPlayer1.Volume ergibt immer 0. Aber das stimmt auch nicht, ich höre Musik.
Gruß,
Andreas