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

[Nuclear-Ping]

Mach mal 'ne Dateisuche in Windows über alle Laufwerke, alle Ordner (auch System und verstecke) nach bass.dll - Alle gefundenen löschen. Dann Kompo neu entpacken, die DLL in dein .exe-Verzeichnis kopieren. Das sollte dann klappen.

[Cyberbob]

lad dir auch die BASS.DLL neu runter, vielleicht wurde sie nicht richtig entpackt

[busybyte]

@omata
erstmal Danke für den Open-Source!
Ich hab's jetzt mit der Ex-Version ,dem Update aus #236 und
ein paar einfachen Anpassungen hinbekommen.
Abgesehen von dem "Soundkarte nicht gefunden" Fehler ???, funktioniert
alles nach den ersten Versuchen mit mehreren Mp3's und Wav's

gleichzeitig sehr gut.
WinXP,Delphi2006

//dllloader.pas
in
dllloaderU.pas umbenennen und die Alte ersetzen

Delphi-Quellcode:

//unit DLLLoader;
unit DLLLoaderU;
.........................

unit BassDynamicU;

  TBassDll = class
  private
//    _BASSDLL:TDLLLoaderEx;
    _BASSDLL:TDLLLoader;


constructor TBassDll.create(AOwner: TComponent);
var DLLData:TMemoryStream;
begin
//  _BASSDLL:=TDLLLoaderEx.Create;
_BASSDLL:=TDLLLoader.Create;

Ein geniales Teil.Ich würde gerne Versuchen es mit OpenGl zu kombinieren,
aber keine Angst meine Projekte werden sowieso nie fertig,deswegen versuche
ich's mal in dieser Rubrik, vieleicht hilft ja schon ein kleiner Teil
zu einem großen Ganzen.

[Blackbandit]

Hallo @ all

ich wollte mal fragen, ob es irgend wie möglich ist den StreamInfo
in einem label auszugeben ( Lauftext wie z.b in WinAmp ).
im Moment lasse ich mir die StreamInfo in einem Memo anzeigen mit

Bassdllplayer1.GetNetStreamInfo(Memo1.lines);
was allerdings nicht besonders gut aussieht
oder ist es möglich so einen Lauftext von rechts nach links in einem memo auszugeben?


Hoffe ihr könnt mir bei meinem Problem weiter helfen


MfG
Blackbandit

[turboPASCAL]

Lauftext unterstützt die Komponente nicht. Dazu ist diese auch nicht da.

Im Forum gibt es dafür garantiert eine Lösung.

[gmc616]

Ich hab mich sehr intensiv mit turboPASCAL Source vom TBassPlayer beschäfigt, weil ich die den Code großteils für sehr gut empfinde. Daher kenne ich aber auch die "Schwachpunkte" des Codes bzw. die Probleme was die Bass.dll betrifft. Hab viel aus turboPASCAL's Code gelernt.
Danke dafür an turboPASCAL, das du den Source OS gestellt hast.

Zitat von Brutus86:

Der Prozedureinsprung "BASS_ChannelGetLength" wurde in der DLL "bass.dll" nicht gefunden.

Damit hatte ich letztens auch Schwierigkeiten, bis ich festgestellt habe, das die Bass.DLL von Version zu Version ihre Einspungpunkte ändert.

Welche Bass.DLL-Version verwendest du?
Schon mal ihn das Manual der Bass.Dll geschaut?

Zitat von Blackbandit:

ich wollte mal fragen, ob es irgend wie möglich ist den StreamInfo
in einem label auszugeben ( Lauftext wie z.b in WinAmp ).

Ja ist möglich.

Zitat von Blackbandit:

im Moment lasse ich mir die StreamInfo in einem Memo anzeigen mit

Bassdllplayer1.GetNetStreamInfo(Memo1.lines);
was allerdings nicht besonders gut aussieht
oder ist es möglich so einen Lauftext von rechts nach links in einem memo auszugeben?
Hoffe ihr könnt mir bei meinem Problem weiter helfen

Nein, das Problem kannst/musst du selbst lösen.

[PatrickB]

Könnte mir jemand erklären wie ich genau einzelne Channel erstellen kann?

Hab mir bass.dll runtergeladen und buss 2.3 auch installiert.

Hier mal mein Code wie weit ich bin:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Player1: TBassdllPlayer;
...

procedure TForm1.Button1Click(Sender: TObject);
var length,vol:integer;
begin
  if OpenDialog1.Execute then
  begin
  Player1.LoadFromFile(OpenDialog1.Filename);
  TrackBar1.Max := Player1.SongLength;
  length := Player1.SongLength;
  s := length mod 60;  m := length div 60;
  vol := Player1.Volume;
  Label1.Caption := Format('%.2d:%.2d',[m,s]);
  Player1.Play;
  end;
end;

Wie kann ich jetzt einen 2. Channel erstellen damit ich ein weiteres Lied gleichzeitig laufen lassen kann?

Danke schonmal

Patrick

[turboPASCAL]

nicht mit dem TBassdllPlayer. Siehe bitte BassPlayerEx. ( http://www.delphipraxis.net/internal...=797072#797072 )

[PatrickB]

Ah, danke!
Hab heute schon über 2 Stunden nach der BassPlayerEx gesucht gehabt

[PatrickB]

Hab es jetzt so weit:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, BassPlayerExU, basschannelu, ComCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    TrackBar1: TTrackBar;
    Timer1: TTimer;
    Label1: TLabel;
    TrackBar2: TTrackBar;
    Label2: TLabel;
    Button2: TButton;
    procedure FormDestroy(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure TrackBar2Change(Sender: TObject);
    procedure poschange(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  s,m:integer;
  Player: TBassPlayerEx;
  ChannelA,ChannelB: Tbasschannel;

implementation

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
begin
  Player := TBassPlayerEx.Create(1,self);
  ChannelA := Player.addChannel(100);
end;

procedure TForm1.Button1Click(Sender: TObject);
var length,vol:integer;
begin
  if OpenDialog1.Execute then
  begin
  ChannelA.LoadFromFile(OpenDialog1.Filename);
  TrackBar1.Max := ChannelA.Lied.SecLaenge;
  ChannelA.Lied.create(OpenDialog1.Filename);
  length := ChannelA.Lied.SecLaenge;
  s := length mod 60;  m := length div 60;
  vol := ChannelA.Volume;
  Label1.Caption := Format('%.2d:%.2d',[m,s]);
  Label2.Caption := inttostr(vol)+'%';
  ChannelA.Play;
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var m1,s1:integer;
begin
  if ChannelA.isComplete then
  begin
  Trackbar1.OnChange := Nil;
  TrackBar1.Position := ChannelA.SecPosition;
  TrackBar1.OnChange := poschange;
  m1 := ChannelA.SecPosition div 60;
  s1 := ChannelA.SecPosition mod 60;
  Label1.Caption := Format('%.2d:%.2d',[m1,s1])+' / '+Format('%.2d:%.2d',[m,s]);
  end;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  ChannelA.SecPosition := TrackBar1.Position;
end;

procedure TForm1.poschange(Sender: TObject);
begin
  ChannelA.SecPosition := TrackBar1.Position;
end;

procedure TForm1.TrackBar2Change(Sender: TObject);
var vol:integer;
begin
  vol := 100 - TrackBar2.Position;
  ChannelA.Volume := vol;
  Label2.Caption := inttostr(vol)+'%';
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessage(inttostr(ChannelA.Lied.SecLaenge));
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  ChannelA.Free;
  Player.Free;
end;

end.

Könnt ihr mir sagen was an dem Code falsch ist?
Es kommt, wenn ich das Programm schließe, die Fehlermeldung: "Ungültiger Zeigeroperator".
Zudem gibt ChannelA.Lied.SecLaenge immer 0 zurück.

Danke schonmal!