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

[busybyte]

Den Timer würde ich vor dem Beenden abschalten,bzw. Du solltest die Zugriffe auf ChannelA mit
if (channelA=Nil)then exit; oder so ähnlich absichern.

Delphi-Quellcode:

Len:=channelA.GetSongTimeInfo(SongTimeLength);
//bzw.
TrackBarPosition.Max := ChannelA.SongTimeInfo[SongTimeLength].asMilliSecInteger;

wo kommt denn das .Lied. her?
Ist das aus einer abgeleiteten Klasse?
In meiner BasschannelU.pas gibts das .Lied nicht und brauche ich auch nicht.
Bei Problemen einfach mal die einzelnen Units anschauen und mit Breakpoints debuggen
(wenn sie dem Projekt zugefügt wurden).
P.S. meine Units sind von Omata(supergeile TFramechannels)

PPS. und das hier ist auch Quatsch weil "Lied" noch gar nicht existiert/Created ist,Du aber schon die Länge wissen willst

Delphi-Quellcode:

  ChannelA.LoadFromFile(OpenDialog1.Filename);
  TrackBar1.Max := ChannelA.Lied.SecLaenge;          //<-- ?????
  ChannelA.Lied.create(OpenDialog1.Filename);

und zum Schluß die Katastrophe,geht gar nicht !!!

Delphi-Quellcode:

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;             //<- !

das hat im Timer nichts verloren und reicht im OnCreate der Form völlig aus,mal davon abgesehen das onchange und poschange genau das selbe machen
und das überhaupt nicht nötig ist.

Bei mir sieht das so aus und läuft prima,thx 2 omata bzw. an Alle ,die diese Zeilen verfasst haben.

Delphi-Quellcode:

Var _noAwnChangePos:boolean;
procedure TFrameChannel.TrackBarPositionChange(Sender: TObject);
begin
  if _noAwnChangePos then
    _noAwnChangePos := False
  else
   ChannelA.MilliSecPosition := TrackBarPosition.Position;
end;

//Timer bzw. SonginfoUpdatetimer
while not Assigned(Self) do exit;
_noAwnChangePos:=True;
TrackBarPosition.Position :=ChannelA.MilliSecPosition;;

[PatrickB]

Wenn ich versuche es so einzufügen:

TrackBar1.Max := ChannelA.SongTimeInfo(SongTimeLength); Dann wird bei mir SongTimeLength immer rot unterkringelt :/

Es steht dann dort:

Zitat:

[Fehler] Unit1.pas(61): E2029 '[' erwartet, aber '(' gefunden

Wenn ich es zu einer runden Klammer ändere steht dort:

Zitat:

[Fehler] Unit1.pas(61): E2003 Undefinierter Bezeichner: 'SongTimeLength'

Helft mir bitte

[busybyte]

//edit gelöscht

[PatrickB]

Ahja, danke =)
Jetzt wirds zwar immer noch rot unterkringelt aber es steht dort:

Zitat:

[Fehler] Unit1.pas(61): E2361 Auf private-Symbol TBassChannel.GetSongTimeInfo kann nicht zugegriffen werden

Und nun? Bin dir echt dankbar für deine Hilfe!

[busybyte]

//edit gelöscht

[busybyte]

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;
    Label1: TLabel;
    Label2: TLabel;
    TrackBar2: TTrackBar;
    Timer1: TTimer;
    Button2: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure TrackBar2Change(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}

Uses BassTypenU;                 //<-!!!
Var _noAwnChangePos:boolean; 

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Timer1.Enabled:=False;
if Assigned(ChannelA) then
  ChannelA.Stop;
if Assigned(Player) then
  begin
  Player.delChannel;
  Player.Free;
  end;
end;

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.SongTimeInfo[SongTimeLength].asMilliSecInteger;
  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
  _noAwnChangePos:=True;
  TrackBar1.Position := ChannelA.SongTimeInfo[SongTimeUp].asMilliSecInteger;
{  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
  if _noAwnChangePos then
    _noAwnChangePos := False
  else
   ChannelA.MilliSecPosition := 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.SongTimeInfo[SongtimeLength].asMilliSecInteger));
end;

end.


//in der BasschannnelU sollte noch folgendes editiert werden
procedure TScanThread.WriteData;
begin
while (Self=nil) do terminate;     //<----!!! weil Thread terminate sonst exit
  _WaveBufferUpdateEvent(_WaveBufL, _WaveBufR, _Start, _Ende, _Max, _Complete);
end;

Viel Spass !!!

[Xen]

Hallo, kann jemand bitte nochmal eine kompatibe Vesersion der Bass.dll uppen?
Das gesamte Internet scheint ältere Versionen als 2.4.x.x vollständig vernichtet zu haben.

Wäre toll wen jemand noch so eine rumfliegen hat.

[Fussball-Robby]

Auf un4seen.com gibts die älteren Versionen noch, hier ein Link zur Version 2.3. Wenn ich mich richtig erinnere, habe ich, nachdem die neueste Version nicht kompatibel war, diese Version benutzt...

[Xen]

Super! danke dir

Ich war natürlich so doof und hab überall anders nach der Version gesucht, nur nicht auf der Seite selber.

[Micha88]

Mhh... komischerweise kann ich die Komponente nicht installieren.

Delphi: 2007 RAD Studio
BASS DLL-Version: 2.4.2.1 (Liegt im BIN-Ordner)

Fehlermeldung:
Der Prozedureinsprungpunkt "BASS_ChannelSlideAttributes" wurde in der "bass.dll" nicht gefunden.

Wurde das in der neueren Version von der bass.dll herausgenommen?