bass.dll einbinden

[Balu der Bär]

Zitat:

Falsch. Seine Komponente heißt zum Einen BassPlayer, nicht Bassdllplayer und zum Anderen ist es eine komplett andere Komponente.

Das ist mir durchaus bewusst. :roll:

Zitat:

die Komponente eigentlich behalten und trotzdem die dll fest einbinden.

Wie gesagt es wäre wohl durchaus einfach auf diese Komponente umzustellen, die Funktionen & Methoden sollten sich stark ähneln. Es ist mit der anderen Komponenten jedenfalls weniger Aufwand als die DLL fest einzubinden.

[Nils_13]

Balu kann ich da nicht zustimmen, nimm die aktulle Bassversion und du kriegst das auch so hin und wirst in Zukunft nicht mehr so viele Probleme haben. Du lernst mit der DLL sowieso viel mehr, da musst du nicht nur [Komponente].Machmal aufrufen.

@Balu: Du sagtest Falsch und da wollte ich dich nur korrigieren.

[newuser01]

Ich versuche jetzt das Projekt umzustellen

Delphi-Quellcode:

//1. Problem

//vorher mit TBassPlayer Komponente
lSongLaenge.Caption := FormatDateTime ('nn:ss', BassPlayer1.PlayLength / (1000 * 24 * 60 * 60))+' -->';

//jetzt ohne Komponente funktioniert aber leider nicht
lSongLaenge.Caption := FormatDateTime ('nn:ss', BASS_ChannelGetLength(Channel) / (1000 * 24 * 60 * 60));

Delphi-Quellcode:

//2. Problem

//vorher mit TBassPlayer Komponente
lSongPosition.Caption := FormatDateTime ('nn:ss', BassPlayer1.Position / (1000 * 24 * 60 * 60));

//jetzt ohne Komponente funktioniert aber leider nicht
lSongLaenge.Caption := FormatDateTime ('nn:ss', BASS_ChannelGetPosition(Channel) / (1000 * 24 * 60 * 60));

und gibt es ein Demo bezüglich Equalizer einbinden ?

[newuser01]

guten Morgen :mrgreen:

Hat sich erledigt ich habe die bass.dll als Resource eingebunden und kann meine Komponente doch weiter verwenden. Ich war vorher nur zu blöd dies zu realisieren :mrgreen: Ich hab es immer in OnCreate der Form versucht aber das ist ja Quatsch :-D

Delphi-Quellcode:

//direkt in der Project.dpr dann geht es  :-D   
program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},FileCtrl,Windows, Messages, SysUtils, Classes, Graphics, Controls,Dialogs,StdCtrls;

{$R *.RES}

begin

 
if not FileExists(ExtractFilePath(Application.ExeName)+'\bass.dll') then
begin
 //create dll
 DLLRes :=TresourceStream.CreateFromID(0, 101, PChar('DLL'));
 DLLres.SaveToFile(ExtractFilePath(Application.ExeName)+'\bass.dll');
end
   else
       begin
          //dll vorhanden
end;//if


Application.Initialize;
Application.Title := 'Form1';
Application.CreateForm(TForm1, Form1);
Application.Run;

end.

Delphi-Quellcode:

unit Unit1;
//in unit1 noch folgendes
var
  DLLRes: TResourceStream;
implementation

uses Unit1;

{$R *.DFM}
{$R DLL.res}