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

[Cyberbob]

Wenn das Lied kurz vor dem Ende ist, wird die Lautstärke langsam runtergefahren, sodass ein fließender übergang entsteht.

[Aurelius]

OK, danke für die Info. Sowas hatte ich mir schon gedacht

[Aurelius]

Noch eine Frage:

wie aufwändig wäre es denn die Erweiterungs-Dlls in die TBassDll-Komponente einzubauen bzw. was müsste man denn alles ändern?

Ich ahbe mir gedacht dass man bei der Abspielprocedur einfach die Dateiendung abfragt und dann "einfach" die entsprechende DLL, also Bass.dll, Basswma.dll etc. arbeiten lässt. Würde das so "leicht" gehen?

[devidespe]

Hallo,

ich habe ein Problem mit der dynamischen Einbindung der Bass.DLL-Datei.

Und zwar geht es darum, die Bass.DLL dynamisch einzubinden, ohne eine Komponente zu verwenden. Das hängt damit zusammen, dass ich von verschiedenen Units auf die Bass-Funktionen zugreifen muss, ohne eine Komponente verwenden zu können und ohne die DLL-Datei separat mitgeben zu müssen. Im Unterverzeichnis "Units" der TBassDLLPlayer.zip existieren ja die beiden Units "Bass_Dynamic.pas" und "DLLLoader.pas", wobei ein Array mit dem Bass.DLL-Inhalt im Speicher geladen wird, und zwar wiefolgt:

Delphi-Quellcode:

VAR DLLData:TMemoryStream; 

INITIALIZATION 

BASSDLL:=TDLLLoader.Create; 
DLLData:=TMemoryStream.Create; 
DLLData.Write(BASSData,BASSSize); 
BASSDLL.Load(DLLData); 
DLLData.Free; 

// Proceduren suchen 
   BASS_SetConfig := BassDll.FindExport('BASS_SetConfig'); 
   BASS_GetConfig := BassDll.FindExport('BASS_GetConfig');
   BASS_GetVersion := BassDll.FindExport('BASS_GetVersion');
   ...

Das funktioniert auch alles soweit so gut, aber wenn ich nach dieser Initialisierung auf irgendeine Prozedur/Funktion der Bass-Datei zugreifen will, wird immer Kauderwelsch zurückgeliefert. Bei Boolean-Funktionen immer False.

Also IF BASS_Init(-1, 44100, 0, Handle, NIL) liefert bspw. immer False zurück. An sich finde ich die Möglichkeit sehr gut, die DLL nicht auf der Festplatte mitliefern oder erstellen zu müssen, und das alles mittels TMemoryStream im Speicher geschieht. Leider funktioniert das ganze noch nicht, sobald man ohne Komponenten arbeiten möchte. Wo kann das Problem liegen ?

[Aurelius]

Ich hab nochmal ein Problem mit der Kompo. Wenn ich das Programm unter Vista starten will kommt bei folgender zeile eine Zugriffsverletzung (bzw. 50 Hintereinander):

Delphi-Quellcode:

function TBassPlayer.GetStatus
...
if BASS_ChannelIsSliding(Channel) = BASS_SLIDE_VOL then
..

Die Komponente binde ich zur Laufzeit mit BassPlayer1 := TBassPlayer.Create(self); ein. Unter XP klappt das ganze auch ohne probleme, unter Vista gibt es aber wie gesagt eine Zufriffsverletzung...

[turboPASCAL]

Die Kompo. arbeitet mit einer alten Version der Bass.dll. Dies kann den Fehler verursachen.
Auch in der neuen Version gibt es noch kleine Probleme. Es heisst also noch 'n bissel warten.

[Aurelius]

Wie meinst du das jetzt genau?

Zitat:

Auch in der neuen Version gibt es noch kleine Probleme. Es heisst also noch 'n bissel warten.

Soll ich auf eine neue Bass-Version oder eine neue TbassDllPlayer-Version warten?

PS: Ich habe bemerkt dass die Beispielvisualisierungen, die du auch in deiner Demo verwendest, mit dem TBassPlayer nicht funktionieren (obwohl es doch der selbe Code ist, oder?).

[turboPASCAL]

Was meinst du jetzt genau ?

[Cyberbob]

Gibt es eine möglichkeit die aktuelle Position des Liedes Millisekundengenau zu erhalten?

[omata]

Zitat von Cyberbob:

Gibt es eine möglichkeit die aktuelle Position des Liedes Millisekundengenau zu erhalten?

schau doch mal hier.

Gruss
Thorsten