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

[BassFan]

Zitat von turboPASCAL:

Kommt eine Fehlermeldung etc. ?

LaUp.Font.Color 'Ungültiger Eigenschaftswert'

[Cyberbob]

Dann musst du im Obejektinspektor die Farbwerte von LaUp.Font.Color und LaDown.Font.Colorder Unit BassChannel.pas in clBlack ändern. Bei meinem Delphi (D6) hatte ich das selbe Problem und habs damit lösen können

[BassFan]

Zitat von Cyberbob:

Dann musst du im Obejektinspektor die Farbwerte von LaUp.Font.Color und LaDown.Font.Colorder Unit BassChannel.pas in clBlack ändern. Bei meinem Delphi (D6) hatte ich das selbe Problem und habs damit lösen können

Danke geht hier auch
Allerdings schon seltsam das die 6++ die Farbe nicht identifizieren kann.

Grüße

[litsa]

Hi turboPASCAL,

danke für die Antwort...

Code:

procedure TDFSMain.FormCreate(Sender: TObject);
begin
BassdllPlayer1.Volume := 70;
LS.Caption := Format ('%d %%', [BassdllPlayer1.Volume]);
LStrackbar.Position := BassdllPlayer1.Volume;
end;

Code:

procedure TDFSMain.LStrackbarChange(Sender: TObject);
begin 
BassdllPlayer1.Volume := LStrackbar.Position;
LS.Caption := Format ('%d %%', [BassdllPlayer1.Volume]);
end;

Beim Ausführen steht im Label LS 10% und die Trackbar steht auf max. Habe auch die Property Volume auf 70 gesetzt und BassdllPlayer1.Volume := 70; weggelassen aber keine Veränderung...

[turboPASCAL]

@litsa, auf was steht denn der Wert Max im OI bei deiner Trackbar ?

[litsa]

Auf 10..als ob die maximale Lautstärke nur bis 10 gehen würde..also einstellen kann ich nur 1 bis 10 (und das hört sich auch so!)

[donpeppone]

Hallo zusammen!

Ich nutze die BASS-Komponente sowohl als Player wie auch als Recorder.
Da der Player öfters in Remotesessions verwendet wird, ist mir aufgefallen,
dass die Wiedergabe ruckelt. Es hört sich so an, als ob der Track mehrmals
gleichzeitig gestartet wird und nun nicht 100% übereinander liegt.
Dieses Phänomen tritt bei der Nutztung von mstsc also Microzoft TerminalServerClient
auf.
Wollte mal fragen, ob jmd weiß, wodran das liegen könnte. Ob die Dateien
vorher erst gestreamt bzw. zwischengespeichert werden müssten, wie es WinAMP, WinMediaPlayer.. machen.

Will nur nicht nach der Abfrage, ob es sich um eine TerminalServerSession handelt,

Delphi-Quellcode:

function IsRemoteSession:Boolean;
const
 sm_RemoteSession = $1000; // from WinUser.h
begin 
 IsRemoteSession := (GetSystemMetrics(sm_RemoteSession) <> 0); 
end;

dieTMediaPlayer-Komponente nutzen. Das ist ja nicht Sinn der Sache zig Player in
einem zu verwenden.

Hoffe auch, dass ich mit meiner Frage hier an der richtigen Stelle bin.

Vielen Dank D.P.

[Balu der Bär]

Moin turboPASCAL,

ich hoffe du kannst mir nochmal helfen:
Diesmal möchte ich eine Resource aus einer DLL laden und mittels TBassdllPlayer abspielen, kannst da noch was einbauen für mich? *liebguck*

Oder gibt es nicht einen anderen Weg das ich die Resource aus der DLL mittels deiner Komponente abspielen kann, also das irgendwie selber implementiere?

MfG

Edit: Ups, ich hab die Lösung grad hier gefunden.

[BassFan]

Beim BassPlayerEx habe ich ein Problem in dieser Zeile

Delphi-Quellcode:

    else if lParam = IPC_GETPLAYLISTFILE then begin
      ReturnStr := StreamInfo.FileName + chr(0);
      p := @ReturnStr;
      inc(p, 1);
      Result := Longint(p);

Mit dem Plugin Trix3.12 werden mir seltsamer weise nur Titel angezeigt
die im Vorspann nicht mehr als 5 Buchstaben haben.

Beispiel ABBA - Das ist ein Test ..... nur ABBA wird angezeigt
Beispiel ABBA22 - Auch ein Test .. nix wird angezeigt.

Fehlt hier eventuell der (index)

Siehe!

Code:

#define IPC_GETPLAYLISTFILE 211
/* (requires Winamp 2.04+, only usable from plug-ins (not external apps))
** char *name=SendMessage(hwnd_winamp,WM_WA_IPC,index,IPC_GETPLAYLISTFILE);
** IPC_GETPLAYLISTFILE gets the filename of the playlist entry [index].
** returns a pointer to it. returns NULL on error.
*/

Wie würde diese übergabe dann richtig lauten ?

gruß

[omata]

Hallo BassFan,

schau doch mal hier, vielleicht hilft dir das weiter.

Gruss
Thorsten