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

[turboPASCAL]

Das Projekt wird nicht weiter entwickelt oder unterstützt.

:arrow: 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)

:arrow: 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. :thumb: Preview


:arrow: 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.

[Superfly]

Hi turboPASCAL
mir gefällt dein project sehr gut :roll:
aber ich habe mal eine frage zum source code!
Also ich möchte gerne eine mp3 datei aus dem selber ordner von deinem player abspielen lassen.
Normal müßte man ja folgenden code nutzen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  sndPlaySound(PChar('Test.mp3'),SND_SYNC);
end;

wie muß ich das abändern das er die datei aus dem ordner automatisch anspielt?
oder gibt es ein guide wo so sowas zu finden.
Hoffe du kannst mir weiter helfen.
Habe noch keine erfahrungen mit der base Komponente.

[turboPASCAL]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); //Sound laden und wiedergeben
begin
  BassDLLPlayer1.LoadFromFile('test.mp3');      // Datei Laden
  BassDLLPlayer1.Volume := 50;                  // Volumevoreinstellung 0..100
  BassDLLPlayer1.Play;                          // Abspielen 
end;

procedure TForm1.Button2Click(Sender: TObject); // Sound anhalten, kann mann muss aber nich'
begin
  BassDLLPlayer1.Stop;  
end;

Fertig.

PS.: Schau dir mal den SimplePayer an :wink:

[Superfly]

Huhu turboPASCAL :-D
besten dank für deine schnelle hilfe auf mein problem.
werde mir deine SimplePayer version mal ansehen^^
Bei mir läüft dein project ohne probleme.
Danke noch mal für diesen nützlichen source code :wiejetzt:
Finde es besser als die dll variante :roll:

[jim_raynor]

Ähh. Irgendwas verstehe ich jetzt nicht so ganz. Es gibt doch bei Torry.net bereits eine Komponente TBassPlayer. :gruebel: Hat der was mit dir zu tuen, oder ist deins eine komplette Neuentwicklung?

[turboPASCAL]

Die TBassPlayer Komponente von torry.net ist sehr komplex. Eine feine Sache aber,
DLL's (BASS.DLL, in_mp3.dll usw.) müssen als extra Datei zum Programm mitgeliefert werden.
Die Komponente auf einfache Weise ins Programm einbauen mit wenig Kentnissen ?



Ich war auf der Suche nach einer einfacheren Art einer Bass-Player Komponente um
sie in Delphi ähnlich wie den TMediaPlayer zu verwenden.

Bei der TBassDLLPlayer Kompo. wird die BASS.DLL (enthalten in einer Unit "Bass_Dynamic.pas")
mit in das Programm eingebunden (wird dynamisch in den Speicher geladen).

Somit braucht man nich nocht eine extra File zu seinem Programm mitgeben und es ist unabhängig
welche Version der BASS.DLL der Anwender installiert hat (Versionskonfikte vermeiden).

[Nils_13]

Hi,

wenn die Komponente keinen Parameter benötigt, wie soll man damit dann eine Playlist prgorammieren ?

[Die Muhkuh]

Zitat:

Zitat von Nils_13

Hi,

wenn die Komponente keinen Parameter benötigt, wie soll man damit dann eine Playlist prgorammieren ?

Wo ist das Problem?

Du sagst ja der BassPlayer-Kompo welches Lied sie spielen soll. Welches Lied das ist, musst aber du bestimmen und den Parameter bei LoadFile übergeben

[OldMan]

Hi,

in der neuen Version Demoplayer 1.05 ist leider das programmwindow zu klein, so daß nicht alle Controls zu sehen sind. So sehe ich erstmal keine Möglichkeit eine Playlist zu laden.

Oldman

[turboPASCAL]

Hi, OldMan thx for download and testing

:wiejetzt:, hast Du schon mal den [>>] - Button verwendet, oder wie ist das gemeint ?