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

[chris2005]

Hallo
Mal ne Frage zu der DLLLoader.pas Unit...
Hat mal jemand versucht damit mehrere DLL`s in einer Appliaction einzubinden ??
Arbeite selber seit ca 1 1/2 Jahren mit der Bass.dll (+basswma.dll+bass_fx.dll)
Problem wenn ich alle 3 DLL`s einbinde
kracht die DLLLoader Unit bei

Code:

InitializeLibrary

Liegt aber nicht an den DLL`s sondern sobald mehr wie eine DLL eingebunden wird....

Gruss
Chris

[omata]

Moin,

Zitat:

Zitat von chris2005

Hallo
Mal ne Frage zu der DLLLoader.pas Unit...
Hat mal jemand versucht damit mehrere DLL`s in einer Appliaction einzubinden ??
Arbeite selber seit ca 1 1/2 Jahren mit der Bass.dll (+basswma.dll+bass_fx.dll)
Problem wenn ich alle 3 DLL`s einbinde
kracht die DLLLoader Unit bei

Code:

InitializeLibrary

Liegt aber nicht an den DLL`s sondern sobald mehr als eine DLL eingebunden wird....

habe mich mal damit beschäftigt. Das Problem ist, dass die basswma.dll und bass_fx.dll die bass.dll im Speicher erwarten. Diese interne Verbindung zwischen den DLLs kann nur Windows übernehmen, diese Vorgehensweise wird hier aber ausgehebelt.
Wenn man über LoadLibrary eine DLL lädt, bekommt man einen Handle, leider hat man aber keinen Handle, wenn man über den DllLoader eine DLL in den Speicher lädt. Ich sehe leider noch keine Lösung für dieses Problem. Eigentlich müsste man die Windows-Funktion (LoadLibrary) benutzen, diese kann aber leider nur von der Platte und nicht aus dem Speicher laden.

Vielleicht hat ja noch einer ne Idee...

MfG
Thorsten

[kurtm1]

So ich bin wieder im Lande und melde mich wieder zu dem Thema dieser Units.

Also ich habe jetzt wirklich mal jede Unit zerpflückt, und bin dabei einmal auf die Lösung des Speicherlecks gestoßen:

In der BassChannelU.pas steht folgender Code für das Laden einer Datei:

Delphi-Quellcode:

if _BassDll.BASS_ChannelIsActive(_Channel) = 1 
then _BassDll.BASS_StreamFree(_Channel);

genau hier liegt das Problem, da die IF Abfrage niemaals in den unteren Teil des Codes leitet. Löscht man jedoch die Abfrage, so dass nur mehr

Delphi-Quellcode:

  _BassDll.BASS_StreamFree(_Channel);

dort steht, ist daws Speicherproblem behoben.

Grüße an alle



PS: Bitte gebt mir Anregungen für mein Programm "l33track" in der Freeware Section

[omata]

Hallo,
bin auch wieder da.

Schön, dass du dich mit dem Problem beschäfitgt hast.

Ich würde allerdings nur die IF-Anweisung entfernen und den CASE-Verteiler stehen lassen.
_Modus steht auf moNone, bis eine Datei geladen wird. Somit wird beim erstenmal kein StreamFree oder MusicFree aufgerufen. Aber das ist Geschmacksache, im Destruktur wird auch einfach Free auf dem Channel gemacht.

Wie hast du das mit dem Speicherleck getestet?
Ich habe nämlich leider immer noch die selben Fehler und nicht freigegebene Speicherbereiche. Diese befinden sich in der DllLoaderU.
Also, du hast bestimmt ein Leck gefunden, aber leider ist das eigentliche immer noch vorhanden.

MfG
Thorsten

[kurtm1]

gg also habe ich ein anderes Leck gefunden

Naja ich habe gemerkt dass der verbrauchte Speicher extrem anwächst, wenn ich von vielen Dateien nacheinander die Songlänge einlese (daher einfach irgendeinen Datei mit "loadfromfile" herhole)

Das hat mich auf die Spur gebracht

[Mister X]

Hallo,

wie habt ihr die playlist programmiert?
bei mir spielt er immer nur das letzte lied ab ...

Gruß
Mister X

[turboPASCAL]

Hi Mister X,

:gruebel: Wie und wo/wann kommt das zustande ? Im Normalfall sollte die Liste durchgespielt werden bis zum letzten Eintrag und dann stoppen.

...ich gebe ja zu, das die Playlist von mir ein wenig schlampig prog. ist...(Notlösung) :wink:

[Mister X]

also: dein demo-progranmm funktioniert, aber mein selbst geschriebener Player mit dem TBassDllPlayer machts nicht ... entweder bin ich zu blöd oder es liegt an der Ausführung ..:

Delphi-Quellcode:

num := Memo1.Lines.Count;
for i := 0 to num-1 do
begin
BassDllPlayer1.LoadFromFile(Memo1.Lines[i]);
BassDllPlayer1.Play;
end;

Kann das sein dass die for-schleife zu schnell durchgegangen wird oder so?
Bei mir wird immer nur das letzte Lied abgespielt ....

Gruß
Mister X

[Gandalfus]

ja
wenn du wissen willst wann das Lied zuende ist musst du in deinem timer den status des players abfragen. Wenn der gleich stopp ist kann ein neues lied ausgewählt werden.

[Mister X]

natürlich .... manchmal is man aber auch ...

danke

gruß
Mister X