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

Da du die Fehlermeldung mit der BASS.DLL bekommst, würde ich sagen, das du versuchst die aktuelle Version zu installieren.
In diesem Package sind beide enthalten. Su müsstest also im Packegadialog auswählen, welche Komponenten du Installieren möchtest.
Ansonsten braucht die aktuelle Version die bass.dll

[Tommy1988]

Also, von den allen Downloads lade ich das este runter:

ich öffne es:
BassDLLpkg.dpk

klicke mit der rechten maustaste auf BassDLLpkg.dpk, compilieren. COMPILIEREN klappt,
dann mach ich installieren.
dann kommt: bass.dll nicht gefunden, neuinstallation usw..

ich klicke okdann kommt wieder
packe konnte nicht geladen werden....

Ich hab Delphi2005

Zitat:

Ansonsten braucht die aktuelle Version die bass.dll

Wenn ich die Bass.dll ins Verzeichnis packe sagt der trotzdem dass ich die anwendung neuinstallieren sol..

Was muss ich machen, schritt für schritt?

mache ich das überhaupt richig mit dem BassDLLpkg.dpk??

[Cyberbob]

Wohin hast du die Bass.dll gepackt? Ins Lib-Verzeichnis? Dann kopier so auch nochmal ins Bin-Verzeichnis!

[Tommy1988]

Ok, installieren hat geklappt, jetzt meckert Delphi aber überall--

z.b.

"TBassPlayer enthält kein Element Namens 'status'"

oder

=> "TBassPlayer enthält kein Element Namens 'GetSongLengthAsString'"
[Fehler] Main.pas(328): E2003 Undefinierter Bezeichner: 'GetSongLengthAsString'

[turboPASCAL]

da kann ich im moment nix zu sagen da ich den Quelltext deriner Main.pas ned kenne.

[Tommy1988]

Das Problem ist ja, der Quelltext ist aus der Main.pas von deinem BassPlayer-Source

[turboPASCAL]

Aha, das kann ich ja nicht wissen oder ?

Ersetze in der Main.pas des BassPlayer Demos die Zeile
label2.Caption := BassdllPlayer1.GetSongLengthAsString; durch:
label2.Caption := BassdllPlayer1.GetSongTimeInfo(stUp).asString; in der Timer-Procedure ( procedure TForm1.Timer2Timer(Sender: TObject); ).


Das Demo ist wohl vergessen worden zu aktualisieren...

[Hendi48]

hm, ich hab jetz die Komponente installiert (in Delphi 2007 geöffnet, rechtsklick drauf -> installieren). Wenn ich jetz so einen TBassPlayer auf mein Formular pack, tut der BassPlayer in uses aber das kennt der nicht (Datei nicht gefuden: BassPlayer.dcu)
edit: ah es geht ich hab die ganzen dcu's mal in den lib ordner kopiert

[Tommy1988]

Hallo, ich habe versucht ein Repeat in den Player einzubauene:

Ein Timer wird gestartet, wenn ein Lied läuft, andernfalls ist er aus:

Ist das Lied vorbei, und ein Haken ist bei Repeat (Checkbox) drin, dann wird das lied durch einen simulierten doppelklick auf das selektierte item in der listbox gemacht.

das klappt aber nur 2 mal hintereinander.

desweiteren:
ein Shuffle habe ich versucht zu bauen:
ist ein lied vorbei, so wird ein random gestartet, das random enthält die anzahl der titel
in der listbox.

nach liedende wird ein neues lied selektiert, das klappt, aber es wird, durch simulierten dolleklick nicht abgespielt ?
what's wrong?

[Cyberbob]

Ein Repeat musst du nicht durch ein klicken in den Listboxeintrag realisieren. Es genügt wenn du statt dessen einfach nochmal ein BassDllPlayer.Play machst.
Bei einem Shuffleeffekt würde ich so machen:

Delphi-Quellcode:

BassDllPlayer.LoadFromFile(ListBox1.Items.Strings[Random(ListBox1.Items.Count)]);
BassDllPlayer.Play;

wenn in der Listbox nur die Dateinamen ohne Pfad stehen hat, musst du auf das Array mit den Pfaden über den jeweiligen Index zugreifen.


Gruss,
Christian