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

[turboPASCAL]

Das Projekt wird nicht weiter entwickelt oder unterstützt.

KOMPONENTE Update 20.08.2006

Beschreibung:

Komponente zum einfachen Einbinden der BASS.DLL Funktionen, wobei die BASS.DLL als Unit dynamisch eingebunden ist (BASS.DLL muss nicht extra als Datei weitergeben werden).

Package ist mit Delphi 6 erstellt, für Versionen unter Delphi 6 sollte ein neues erstellt werden.

Name: TBassDLLPlayer
Version: 1.26
Features:

• Abspielen aller Bass.DLL Formate (*.WAV;*.MP3;*.MP2;*.MP1;*.OGG; *.MO3;*.IT;*.XM;*.S3M;*.MTM;*.MOD;*.UMX')
• Einfache Effekte (Echo, Flanger...)
• Visualisierung
• Aufnamefunktion (nicht Getestet)

Bugs:

• Anzeige Position/Länge beim Abspielen noch nicht i.O.
• Aktuelle Position von MOD - Files (Zeigt im Moment nur die Gesamtlänge)

Eine Erweiterte Komponente (+ Demo) BassPlayerEx zu diesem Thema hat omata geschrieben.
Mit ihr ist es möglich mehrere Sound-Kanäle gleichzeitig abzuspielen. Unbedingt Sehenswert. Preview


DEMOPROGRAMME

Beschreibung: Demoplayer Update 20.06.2005
Programm: BassPlayer Preview
Version: 1.06
Features:

• einfache Playlist
• einfache Visualisierung
• Abspielen aller Bass.DLL Formate (siehe TBassDLLPlayer)

Demo-Player in der Version 1.09b

Programm: SimplePayer Demos
Beschreibung: Verschiedene einfache Demo Player
Features:

• Datei öffnen und Wiedergabe (SimplePlayer 1)
• Wiedergabegeschwindigkeit (SimplePlayer 2)
• Visualisierung (LeftPeak, RightPeak) (SimplePlayer 3)
• Equalizer (SimpleEQ)
• Wiedergabe aus der Resource (SimpleRes)

Update:

Ich habe nun noch eine zweite Version namens TBassPlayer mit den selben Features wie TBassDLLPlayer
mit hinzugefügt. Diese Version benutzt die externe BASS.DLL (Version 2.3).

Getestet unter OS: Win98 (+DirectX) / Win2000 / WinXP
Nicht Getestet: Zusammenarbeit von mehreren BassDLLPlayern in einem Programm.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~

Autor ....: Gandalfus (TBassDLLPlayer Version 1.00) Homepage: www.blubplayer.de
Edit by ..: turboPASCAL

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~
Weiterhin gelten die Lizenen der BASS.DLL Autoren. http://www.un4seen.com/


Das Projekt wird nicht weiter entwickelt oder unterstützt.
Es kann zu Problemen bei der Installation kommen wenn andere / neuere Bass.dll-Versionen im Windows bzw. Windows/System32/-Verzeichnis
vorhanden sind. Da die Entwickler der Bass-Lib un4seen ihr Projekt stehst weiter entwickeln
und ggf. grössere Änderungen vornehmen, kann ich diese Komponente nicht immer, aus Zeitgründen, auf den aktuellen Stand halten.

Bei Delphiversionen ab D2007 lässt sich die Komponente laut eineigen Usern nicht installieren oder verwenden.

[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!