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

[DummerDickerHase]

Zitat von xaeralx:

kannst mal bitte kurz beschreiben

Weiß nicht mehr genau, ich mein ich hab einfach das "BassDLLpkg.dpk" Package geöffnet, Compiliert und Installiert. Vorher noch die "create-dcr.bat" gestartet, so dass die Kompo noch ein schmuckes Bildchen bekommt
Bei mir lief es wie geschmiert!

[xaeralx]

problem ist es bei mir, ich bekomme es nicht mal kompilier, delphi meckert das nicht alle dateien vorhanden sind...

[turboPASCAL]

Zitat von xaeralx:

problem ist es bei mir, ich bekomme es nicht mal kompilier, delphi meckert das nicht alle dateien vorhanden sind...

Dann währe es nett wenn du sagst welche. Ohne detalierte Informationen ist es schwer zu helfen.

[nkaaa]

Hallo turbopascal,

kann es sein, dass man die Lautstärke beim Abspielen von Internet Streams nicht verändern kann?
oder mache ich irgendetwas falsch mit deiner komponente? Wäre schade, wenn es nicht ginge..

Ansonsten seht gute Arbeit

edit:
ich merke gerade, dass es prizipiell schon geht, wenn ich mein komplettes form mit einem anderen VoLume wert starte.
aber leider funktioniert das verstellen des volume wertes nicht zur Laufzeit zB mit einem + und einem - Button.

trotzdem noch komisch ist, dass wenn ich den player laufen lasse, dann stoppe, dann die Lautstärke ändere und dann zum schluss wieder starten will, dann hat er die Lautstärke nicht verändert.

najo..wie gesagt, hab die Probleme nur mit Internet Streams :/


nkaaa

[turboPASCAL]

Hi,

Zitat von nkaaa:

[...] wenn ich mein komplettes form mit einem anderen VoLume wert starte.
aber leider funktioniert das verstellen des volume wertes nicht zur Laufzeit zB mit einem + und einem - Button.

Hä, was ?

Zitat von nkaaa:

trotzdem noch komisch ist, dass wenn ich den player laufen lasse, dann stoppe, dann die Lautstärke ändere und dann zum schluss wieder starten will, dann hat er die Lautstärke nicht verändert.

najo..wie gesagt, hab die Probleme nur mit Internet Streams :/

Ich kann dazu so nix sagen da ich deinen Quellcode nicht kenne.

[nkaaa]

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);   //zum Radio starten
begin
  bassdllplayer1.Volume:=LMDspinEdit1.Value; //zB  Value = 50   (geht von 0 bis 100)
  bassdllplayer1.PlayNetStream('http://'+edit5.text);  //zB  [url]http://localhost:8000[/url]
  Bassdllplayer1.GetNetStreamInfo(memo1.lines);
end;

procedure TForm1.Button5Click(Sender: TObject); //zum Musik stoppen
begin
  bassdllplayer1.UnloadChannel;
  memo1.clear;
end;

// und jetzt funktioniert bei mir folgendes nicht, wenn ich den InetStream höre:
// die Lautstärke ändert sich nicht

procedure TForm1.Button6Click(Sender: TObject); //lauter
begin
  bassdllplayer1.Volume:=bassdllplayer1.Volume+10;
end;

procedure TForm1.Button7Click(Sender: TObject); //leiser
begin
  bassdllplayer1.Volume:=bassdllplayer1.Volume-10;
end;

hi, danke schonmal, dass du dir Zeit genommen hast..

hoffe es ist jetzt ausreichend beschrieben

nkaaa

[turboPASCAL]

Ha, jane kann ja auch nicht. Kleiner Bug in der Unit.

Ändere (ersetze) mal in der BassDLLPlayer.pas die folgenden Proceduren so:

Delphi-Quellcode:

function TBassPlayer.GetVolume: Byte;
begin
  Result := 0;
  Case Modus of
    moStream,
    moSamples : Result := BASS_GetConfig(BASS_CONFIG_GVOL_STREAM);
    moMusik   : Result := BASS_MusicGetAttribute(Channel, BASS_MUSIC_ATTRIB_VOL_CHAN);
  end;
end;

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

  Case Modus of
    moSamples, moStream:
      begin
        BASS_SetConfig(BASS_CONFIG_GVOL_STREAM, Volume);
      end;
    moMusik:
      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;
end;

PS.:
Anbei mal eine neue Version die die Bass.dll Version 2.3 unterstützt. In dieser Version wird das einbinden der Bass.Dll nicht unterstützt, das heisst die Bass.dll muss auf dem Rechner vorhanden sein bzw. mitgeliefert werden.

[nkaaa]

hi funktioniert soweit super

hätte nur noch eine frage:

was unterscheidet die methoden "stop" und "unload channel"?


nkaaa

[turboPASCAL]

Zitat von nkaaa:

Was unterscheidet die Methoden "Stop" und "UnloadChannel"?

"Stop" - hält das abspielen an (Play, Stop, Pause)
"UnloadChannel" - inst zum entladen/freigeben der Channels

Im Normalfall brauchst du BassPlayer.UnloadChannel nicht aufrufen, das erledigt BassPlayer.Free.

BassPlayer.UnloadChannel war mal für was ... k.A.

[sailxia]

it's a greate work, but a problem is cannot load Bass's Add_ons to use, can anyone tell me how load the bass's add-ons like basswma.dll, basscd.dll or bass_ac3.dll with TBassDllPlayer? or no ways?

Greets!