BassDllPlayer.Volume

[Sanguis]

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:

Delphi-Quellcode:

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

[Sanguis]

Weiß keiner woran es liegt? Schade...

[gmc616]

Oho, pushen schon nach nicht mal 4 Stunden ... :dp: ... und das am Wochenende :wall:


Eigenartig finde ich:

Die BASS.DLL 2.3 unterstützt in der procedure BASS_SetVolume und BASS_ChannelSetAttribute eigentlich nur DWORDs von 0 bis 100.
In der BASS.DLL 2.4 wurde das ganze geändert auf float von 0 bis 1.

Welche BASS.DLL verwendet dein TBassDllPlayer ?

[Sanguis]

Die 2.3.
Aber es ist nun auch egal, ich habe mir eine eigene Funktion für die wave Lautstärke gebastelt. Damit geht es auch.

Gruß,
Andreas