[Komponente] Bass Player Komponente: TBassDLLPlayer (+Demos)

[Cyberbob]

Wenn das Lied kurz vor dem Ende ist, wird die Lautstärke langsam runtergefahren, sodass ein fließender übergang entsteht.

[Aurelius]

OK, danke für die Info. Sowas hatte ich mir schon gedacht :)

[Aurelius]

Noch eine Frage:

wie aufwändig wäre es denn die Erweiterungs-Dlls in die TBassDll-Komponente einzubauen bzw. was müsste man denn alles ändern?

Ich ahbe mir gedacht dass man bei der Abspielprocedur einfach die Dateiendung abfragt und dann "einfach" die entsprechende DLL, also Bass.dll, Basswma.dll etc. arbeiten lässt. Würde das so "leicht" gehen?

[DevidEspenschied]

Hallo,

ich habe ein Problem mit der dynamischen Einbindung der Bass.DLL-Datei.

Und zwar geht es darum, die Bass.DLL dynamisch einzubinden, ohne eine Komponente zu verwenden. Das hängt damit zusammen, dass ich von verschiedenen Units auf die Bass-Funktionen zugreifen muss, ohne eine Komponente verwenden zu können und ohne die DLL-Datei separat mitgeben zu müssen. Im Unterverzeichnis "Units" der TBassDLLPlayer.zip existieren ja die beiden Units "Bass_Dynamic.pas" und "DLLLoader.pas", wobei ein Array mit dem Bass.DLL-Inhalt im Speicher geladen wird, und zwar wiefolgt:

Delphi-Quellcode:

VAR DLLData:TMemoryStream; 

INITIALIZATION 

BASSDLL:=TDLLLoader.Create; 
DLLData:=TMemoryStream.Create; 
DLLData.Write(BASSData,BASSSize); 
BASSDLL.Load(DLLData); 
DLLData.Free; 

// Proceduren suchen 
   BASS_SetConfig := BassDll.FindExport('BASS_SetConfig'); 
   BASS_GetConfig := BassDll.FindExport('BASS_GetConfig');
   BASS_GetVersion := BassDll.FindExport('BASS_GetVersion');
   ...

Das funktioniert auch alles soweit so gut, aber wenn ich nach dieser Initialisierung auf irgendeine Prozedur/Funktion der Bass-Datei zugreifen will, wird immer Kauderwelsch zurückgeliefert. Bei Boolean-Funktionen immer False.

Also

Delphi-Quellcode:

IF BASS_Init(-1, 44100, 0, Handle, NIL)

liefert bspw. immer False zurück. An sich finde ich die Möglichkeit sehr gut, die DLL nicht auf der Festplatte mitliefern oder erstellen zu müssen, und das alles mittels TMemoryStream im Speicher geschieht. Leider funktioniert das ganze noch nicht, sobald man ohne Komponenten arbeiten möchte. Wo kann das Problem liegen ?

[Aurelius]

Ich hab nochmal ein Problem mit der Kompo. Wenn ich das Programm unter Vista starten will kommt bei folgender zeile eine Zugriffsverletzung (bzw. 50 Hintereinander):

Delphi-Quellcode:

function TBassPlayer.GetStatus
...
if BASS_ChannelIsSliding(Channel) = BASS_SLIDE_VOL then
..

Die Komponente binde ich zur Laufzeit mit

Delphi-Quellcode:

BassPlayer1 := TBassPlayer.Create(self);

ein. Unter XP klappt das ganze auch ohne probleme, unter Vista gibt es aber wie gesagt eine Zufriffsverletzung...

[turboPASCAL]

Die Kompo. arbeitet mit einer alten Version der Bass.dll. Dies kann den Fehler verursachen.
Auch in der neuen Version gibt es noch kleine Probleme. Es heisst also noch 'n bissel warten.

[Aurelius]

Wie meinst du das jetzt genau?

Zitat:

Auch in der neuen Version gibt es noch kleine Probleme. Es heisst also noch 'n bissel warten.

Soll ich auf eine neue Bass-Version oder eine neue TbassDllPlayer-Version warten? :D

PS: Ich habe bemerkt dass die Beispielvisualisierungen, die du auch in deiner Demo verwendest, mit dem TBassPlayer nicht funktionieren (obwohl es doch der selbe Code ist, oder?).

[turboPASCAL]

:gruebel: Was meinst du jetzt genau ?

[Cyberbob]

Gibt es eine möglichkeit die aktuelle Position des Liedes Millisekundengenau zu erhalten?

[omata]

Zitat:

Zitat von Cyberbob

Gibt es eine möglichkeit die aktuelle Position des Liedes Millisekundengenau zu erhalten?

schau doch mal hier.

Gruss
Thorsten