Balance mit Bass

[egon.kaschuba]

Hallo,

ich habe da mal ein Frage ?
Möchte gerne einen Balance-Trackbar in meinem Media-Player einbauen.

Hier der Code :

BASS_ChannelSetAttributes(stream, TrackBalance.max, 100, TrackBalance.min -100); Watt mach ich falsch ?

Bitte um eine Antwort

Gruß
-Egon

[himitsu]

An deiner Stelle würde ich mal in die Hilfedatei reinsehn.

Der zweite Parameter sieht schonmal komisch aus.
Außerdem ist das eine Funktion, der Rückgabewert man auswerten könnte, samt den Fehlercodes ... vorallem dann, wenn etwas nicht (richtig) funktioniert.

[Wishmaster]

Delphi-Quellcode:

(********************************* Set Volume *********************************)
(*
 plVolume Value (0..100)
 plBalance Value (-100..0..100)
*)

function TFilePlayer.Player_Set_Volume(Value : Integer; Mode : TPlayerVolume) : Boolean;
var Vol : Float;
    Tmp : integer;
begin
  tmp:= value;

 case Mode of
   plVolume  :
               begin
                 if Tmp < 0 then Tmp:= 0;
                 if Tmp > 100 then Tmp:= 100;
                 Vol:= tmp / 100.0;
                 Result:= BASS_ChannelSetAttribute(Chan_Source, BASS_ATTRIB_VOL, Vol);
                if Result then
                 begin
                  FChannelVol:=  Value;
                  FChannelMute:= False;
                 end;
               end;
   plBalance :
               begin
                if Tmp < -100 then Tmp:= -100;
                if Tmp > 100 then Tmp:= 100;
                Vol:= Tmp / 100.0;
                 Result:= BASS_ChannelSetAttribute(Chan_Source, BASS_ATTRIB_PAN, Vol);
                if Result then
                 begin
                  FChannelPan:= Value;
                 end;
               end;
 end;
end;

(********************************* Get Volume *********************************)

function TFilePlayer.Player_Get_Volume(var Value : Integer; Mode : TPlayerVolume) : Boolean;
var Vol : Float;
begin
 case Mode of
   plVolume  :
               begin
                 Result:= BASS_ChannelGetAttribute(Chan_Source, BASS_ATTRIB_VOL, Vol);
                if Result then
                 Value:= Round(Vol * 100)
                else
                 Value:= 0;
               end;
   plBalance :
               begin
                 Result:= BASS_ChannelGetAttribute(Chan_Source, BASS_ATTRIB_PAN, Vol);
                if Result then
                 Value:= Round(Vol * 100)
                else
                 Value:= 0;
               end;
 end;
end;

[egon.kaschuba]

Hollo,
mein Danke-Schön kommt etwas späth,aber lieber späht als garnicht.

Ich habe das ganze probiert,und es funktioniet. Prima,prima ....

Nochmal Vielen Dank an " himitsu "

PS:

So gehts auch.


BASS_ChannelSetAttributes(stream, -0,100, TrackBalance.Position);
BalanceLabel.Caption := Format('%d%%', TrackBalance.Position]);

[AlexII]

Balance-Trackbar? Was ist das, wozu ist das gut?