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

[chris2005]

Hallo
Mal ne Frage zu der DLLLoader.pas Unit...
Hat mal jemand versucht damit mehrere DLL`s in einer Appliaction einzubinden ??
Arbeite selber seit ca 1 1/2 Jahren mit der Bass.dll (+basswma.dll+bass_fx.dll)
Problem wenn ich alle 3 DLL`s einbinde
kracht die DLLLoader Unit bei

Code:

InitializeLibrary

Liegt aber nicht an den DLL`s sondern sobald mehr wie eine DLL eingebunden wird....

Gruss
Chris

[omata]

Moin,

Zitat von chris2005:

Hallo
Mal ne Frage zu der DLLLoader.pas Unit...
Hat mal jemand versucht damit mehrere DLL`s in einer Appliaction einzubinden ??
Arbeite selber seit ca 1 1/2 Jahren mit der Bass.dll (+basswma.dll+bass_fx.dll)
Problem wenn ich alle 3 DLL`s einbinde
kracht die DLLLoader Unit bei

Code:

InitializeLibrary

Liegt aber nicht an den DLL`s sondern sobald mehr als eine DLL eingebunden wird....

habe mich mal damit beschäftigt. Das Problem ist, dass die basswma.dll und bass_fx.dll die bass.dll im Speicher erwarten. Diese interne Verbindung zwischen den DLLs kann nur Windows übernehmen, diese Vorgehensweise wird hier aber ausgehebelt.
Wenn man über LoadLibrary eine DLL lädt, bekommt man einen Handle, leider hat man aber keinen Handle, wenn man über den DllLoader eine DLL in den Speicher lädt. Ich sehe leider noch keine Lösung für dieses Problem. Eigentlich müsste man die Windows-Funktion (LoadLibrary) benutzen, diese kann aber leider nur von der Platte und nicht aus dem Speicher laden.

Vielleicht hat ja noch einer ne Idee...

MfG
Thorsten

[kurtm1]

So ich bin wieder im Lande und melde mich wieder zu dem Thema dieser Units.

Also ich habe jetzt wirklich mal jede Unit zerpflückt, und bin dabei einmal auf die Lösung des Speicherlecks gestoßen:

In der BassChannelU.pas steht folgender Code für das Laden einer Datei:

Delphi-Quellcode:

if _BassDll.BASS_ChannelIsActive(_Channel) = 1 
then _BassDll.BASS_StreamFree(_Channel);

genau hier liegt das Problem, da die IF Abfrage niemaals in den unteren Teil des Codes leitet. Löscht man jedoch die Abfrage, so dass nur mehr   _BassDll.BASS_StreamFree(_Channel); dort steht, ist daws Speicherproblem behoben.

Grüße an alle



PS: Bitte gebt mir Anregungen für mein Programm "l33track" in der Freeware Section

[omata]

Hallo,
bin auch wieder da.

Schön, dass du dich mit dem Problem beschäfitgt hast.

Ich würde allerdings nur die IF-Anweisung entfernen und den CASE-Verteiler stehen lassen.
_Modus steht auf moNone, bis eine Datei geladen wird. Somit wird beim erstenmal kein StreamFree oder MusicFree aufgerufen. Aber das ist Geschmacksache, im Destruktur wird auch einfach Free auf dem Channel gemacht.

Wie hast du das mit dem Speicherleck getestet?
Ich habe nämlich leider immer noch die selben Fehler und nicht freigegebene Speicherbereiche. Diese befinden sich in der DllLoaderU.
Also, du hast bestimmt ein Leck gefunden, aber leider ist das eigentliche immer noch vorhanden.

MfG
Thorsten

[kurtm1]

gg also habe ich ein anderes Leck gefunden

Naja ich habe gemerkt dass der verbrauchte Speicher extrem anwächst, wenn ich von vielen Dateien nacheinander die Songlänge einlese (daher einfach irgendeinen Datei mit "loadfromfile" herhole)

Das hat mich auf die Spur gebracht

[Mister X]

Hallo,

wie habt ihr die playlist programmiert?
bei mir spielt er immer nur das letzte lied ab ...

Gruß
Mister X

[turboPASCAL]

Hi Mister X,

Wie und wo/wann kommt das zustande ? Im Normalfall sollte die Liste durchgespielt werden bis zum letzten Eintrag und dann stoppen.

...ich gebe ja zu, das die Playlist von mir ein wenig schlampig prog. ist...(Notlösung)

[Mister X]

also: dein demo-progranmm funktioniert, aber mein selbst geschriebener Player mit dem TBassDllPlayer machts nicht ... entweder bin ich zu blöd oder es liegt an der Ausführung ..:

Delphi-Quellcode:

num := Memo1.Lines.Count;
for i := 0 to num-1 do
begin
BassDllPlayer1.LoadFromFile(Memo1.Lines[i]);
BassDllPlayer1.Play;
end;

Kann das sein dass die for-schleife zu schnell durchgegangen wird oder so?
Bei mir wird immer nur das letzte Lied abgespielt ....

Gruß
Mister X

[Gandalfus]

ja
wenn du wissen willst wann das Lied zuende ist musst du in deinem timer den status des players abfragen. Wenn der gleich stopp ist kann ein neues lied ausgewählt werden.

[Mister X]

natürlich .... manchmal is man aber auch ...

danke

gruß
Mister X