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

[turboPASCAL]

Oder du guckst dir den Demo-Player in der Version 1.09 an.

[Tommy1988]

Ich hab mir, zur Bequemlichkeit, Drag&Drop hinzugefügt.

Ist das erlaubt

Edit:
Hätte mal eine Frage zur TrackBar:
Play:
Der Tracker bewegt sich nicht, nur soein kleines schwarzes dreieck dadrüber.

Was hat das zu bedeuten diese neuerung?

[turboPASCAL]

Äh, das ist wegen einem Bug so. Der Bug entsteht durch das OnChangeEvent der Trackbar wenn
der Player über die Trackbar "seine" aktuelle Position setzt.

Normalerweise müsste man noch das Trackbar.OnChangeEvent überschreiben oder so etwas...

// Edit:
Eine Lösung:

Delphi-Quellcode:

procedure TForm1.GeneralTimerTick;
begin
  if BassdllPlayer1.Status = sndPLAYING then
  begin
    TrackBar1.SelStart  := BassdllPlayer1.GetSongTimeInfo(stUp).asInteger;
    TrackBar1.SelEnd    := BassdllPlayer1.GetSongTimeInfo(stUp).asInteger;

    TrackBar1.Tag := -1; // <--<< diese Zeile einfügen
    TrackBar1.Position := BassdllPlayer1.Position;
    TrackBar1.Tag := 1;  // <--<< diese Zeile einfügen
  end;

// ...

procedure TForm1.TrackBar1Change(Sender: TObject);
begin // Change Song Pos
  if TrackBar1.Tag > 0 then // <--<< diese Zeile einfügen
    BassdllPlayer1.Position := TrackBar1.Position;
end;

[Cyberbob]

Ich habs so gelöst:

Delphi-Quellcode:

if bdpAudioOut.Position <> tbrPosition.Position then
  bdpAudioOut.Position := tbrPosition.Position;

[thabaker]

Zitat:

Oder du guckst dir den Demo-Player in der Version 1.09 an.

Wenn ich die Komponente von der ersten Seite verwende kommen beim Laden Meldungen dass einige Properties nicht existieren. Gibts noch ein andere Version von TBassDLLPlayer?

[turboPASCAL]

Welche genau bitte ?

[Tommy1988]

Ich habe ein Problem:

Wenn man DesignKomponenten von Torry einsetzt, und man dann Musik hört flackert das Bitmap und die Peaks fürchterlich. Was kann man da machen

Habe schon versucht? die Peaks und die Paintbox auf ein Panel zu setzen, aber schlägt alles fehl.

[turboPASCAL]

Zitat von Tommy1988:

Wenn man DesignKomponenten von Torry einsetzt [...]

Tja, da kann ich dir nicht helfen da ich keine Ahnung habe was diese Komponenten alles intern Anstellen.
Was ist wenn du das Panel auf "Doppelgepuffert" stellst ?

Hast du diese Version des Players verwendet ? Sie ist besser Überarbeitet in Bezug auf die Vis-Darstellung.

[Tommy1988]

DoubleBuffered bringt leider nichts, ich habe gedacht schon.

Ich verwende die Version mit der "Flammen-Artiken" Visualisierung.

[turboPASCAL]

Zitat von Tommy1988:

Ich verwende die Version mit der "Flammen-Artiken" Visualisierung.

Hä ?

Aus welchem Pos, #1 oder #221 ? Ich rate dir zum Letzteren. Leider kann ich dir beim Flackerprob. nicht weiterhelfen weil wie gesagt mir die Komponente und deren Innereien sowie Programiergenauigkeit
unbekannt sind.

Welche sind denn das (bitte nur einen Link zu Torry) ?