BassdllPlayer Problem mit einbinden

[merlin2539]

Hallo zusammen
bin am verzweifeln, habe ein Problem mit BassdllPlayer. Und das ist folgendes

Delphi-Quellcode:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BassdllPlayer, StdCtrls;

type
  TForm1 = class(TForm)
  TBeassdllPlayer : TBassdllPlayer;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
      procedure Button2Click(Sender: TObject);
  private
      { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;


var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
TBeassdllPlayer.Play;
TBeassdllPlayer.LoadFromFile('test.mp3');
end;

end.

Habe die BassdllPlayer.pas in mein Projekt eingebunden aber er mekert immer herum das er er die Komonente TBassdllPlayer nicht finden kann, könnt ihr mir ein Tip geben wie ich mein Problem in Griff bekommen kann. Ich benutze Delphi 6 Professional

[padavan]

Zitat:

Delphi-Quellcode:

TBeassdllPlayer.Play; 
TBeassdllPlayer.LoadFromFile('test.mp3');

das Ding heißt Bass und nicht Beass

liegt´s daran?
EDIT:
wenn ich recht überlege, du hast´s ja auch so deklariert....hm!


Gruß
Padavan
:hi:

2ter Versuch:
Versuch´s mal so

Delphi-Quellcode:

type 
  TForm1 = class(TForm) 
  BassdllPlayer : TBassdllPlayer;

Delphi-Quellcode:

BassdllPlayer.Play; 
BassdllPlayer.LoadFromFile('test.mp3');

[mumu]

probiers mal so:

Delphi-Quellcode:

var bassdllPlayer: TBassDllPlayer;

bassdllPlayer.Play; 
bassdllPlayer.LoadFromFile('test.mp3');

[merlin2539]

habe beide vorschläge versucht aber es kommt immer folgendes

Delphi-Quellcode:

bei 2 Möglichkeit
Im Projekt 'test.exe ist eine Exeception der Klasse AAccessViolation aufgetreten
Meldung ' Zugriffsverletung bei Adresse 00461401 in Modul 'test.exe' Lesen von Adresse 00000065' Prozeß wurde angehalten. Mit einzelne Anweisung oder Start fortsetzen

Erste möglichkeit hatte ich selber versucht, dann gings kurz 1 mal und wenn ich das gleiche wieder aufgerufen habe auch der gleiche fehler wieder. (beim 1 möglichkeit kam dann immer Komponente konnte nicht gefunden werden.)

[padavan]

ach wir sind aber auch alle do....

das muss natürlich heißen:

Delphi-Quellcode:

bassdllPlayer.LoadFromFile('test.mp3');
bassdllPlayer.Play;

das file muss ja erstmal geladen sein, bevor man es abspielen kann

[mumu]

oder das hier:

Delphi-Quellcode:

var bassdllPlayer: TBassDllPlayer; 

bassdllPlayer := TBassDllPlayer.Create();
bassdllPlayer.LoadFromFile('test.mp3');
bassdllPlayer.Play;

[padavan]

"createn" brauchste doch nur, wenn du mit mehreren Kanälen arbeiten willst, zum Crossfaden zum Beispiel.
- oder?

Kann sein dass ich mich irre, auf jeden Fall läuft´s bei mir ohne "createn" :zwinker:

[DP-Maintenance]

Dieses Thema wurde von "sakura" von "Fragen / Anregungen zur DP" nach "Multimedia" verschoben.
Bitte in Zukunft vor dem Posten über die Bereiche nachdenken ;)

[merlin2539]

Habe das mal versucht wir ihr mir geschrieben habt aber er mosert immer irgendwie rum
muss ich das irgendwie anders noch einbinden, außer beid er projektverwaltung?

http://straubis.de/ims/pic.php?u=13m8C6&i=114

[turboPASCAL]

Hast du schon mal die Demos ( Download ) versucht ? ( Link: Bass Player Komponente: TBassDLLPlayer )

Wenn du die Komponente aus der Palette auf die Form ziehst brauchst du kein ".Create" durchzuführen.


Wo hast du überhaupt den bassdllPlayer deklariert ? Guckst du Bild


- auf der Form sind 3 Buttons, ein Opendialog und ein TBassDLLPlayer:

Delphi-Quellcode:

// ...
type
  TForm1 = class(TForm)
    BassdllPlayer1: TBassdllPlayer;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
// ...

implementation

//...

procedure TForm1.Button1Click(Sender: TObject);
begin
  If OpenDialog1.Execute then
  begin
    BassDLLPlayer1.LoadFromFile(OpenDialog1.FileName);
    BassDLLPlayer1.Play;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  BassDLLPlayer1.Stop;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Close;
end;