MP3 in Cache "zwischenspeichern"

[BenTech]

Zitat:

Zitat von omata

ja, schade dass du es nicht verstanden hast.

Man kann mit der Bass.dll nur eine Soundkarte ansprechen und auf dieser dann mehrere Channel miteinander mischen.

Wenn man aber mehr als eine Soundkarte hat, dann braucht man für jede Soundkarte eine eigene Dll.
Und dann muss man eben die Dll mehrfach (so oft wie Soundkarten vorhanden sind) laden.

MfG
Thorsten

Oh, sorry. Das kommt davon, wenn man nicht richtig liest ;). War mir kurz, nachdem ich es geschrieben hatte, grad auch aufgefallen :oops:

[kurtm1]

@omata:
Das Demo ist ja einfach ein Wahnsinn!!
*Respekt*

[omata]

Vielen Dank,

aber habe gerade eine unschöne Kleinigkeit entdeckt.
Auf der Suche nach dem Speicherleck, habe ich testweise eine Zeile auskommentiert.

Also, bitte das Kommentar löschen:

Datei: DllLoaderEx - Zeile: 1011

dort steht zur Zeit:

Delphi-Quellcode:

 FOR I:=0 TO LENGTH(Sections)-1 DO BEGIN
  IF ASSIGNED(Sections[I].Base) THEN BEGIN
//    VirtualFree(Sections[I].Base,0,MEM_RELEASE);
  END;
 END;

bitte ändern in:

Delphi-Quellcode:

 FOR I:=0 TO LENGTH(Sections)-1 DO BEGIN
  IF ASSIGNED(Sections[I].Base) THEN BEGIN
    VirtualFree(Sections[I].Base,0,MEM_RELEASE);
  END;
 END;

PS: Das löst leider nicht das Speicherleck!

Danke
Thorsten

[kurtm1]

So ich hab mir jetzt den Code einmal angesehen, und muss sagen dass dieser so umfangreich ist, dass ich eine kleine 'Starthilfe' benötige:

Kannst du vielleicht nochmal nur den Code posten (in der minimalsten Form) den ich jetzt brauche um:
[X] den Player zu initialisieren
[X] einen Channel anzulegen
[X] diesen Channel abspielen

der Rest sollte mir dann von selbst klar werden

[omata]

Gerne...

Komponente initialisieren:
BassdllPlayerEx:=TBassdllPlayerEx.Create(Self);

Kanel hinzufügen (Volume = 100):
BassdllPlayerEx.addChannel(100);

1. Kanal mit Datei laden:
BassdllPlayerEx.Channel[0].LoadFromFile(...);

1. Kanal abspielen:
BassdllPlayerEx.Channel[0].Play;

Komponente freigeben:
BassdllPlayerEx.free;

MfG
Thorsten

[kurtm1]

Super danke

//edit: Fehlt jetzt die EQ Funktion?
(soweit ich es finde, gibts es nur mehr UpdateEQ und RemoveEQ)

[omata]

Ja, sorry.

Verschiebe einfach in der BassChannelEx-Unit die Zeile:

Delphi-Quellcode:

  procedure InitEQ;

vom Private-Teil in den Public-Teil, dann kannst du auch wieder auf InitEQ zugreifen

MfG
Thorsten

[kurtm1]

geht schon, danke

[omata]

So,
habe jetzt noch für jeden Kanal einen eigenen Equiliser eingebaut.
Jeder Equiliser kann wiederrum unendlich viele Bänder haben.

Viel Spass...

MfG
Thorsten

[turboPASCAL]

... :thumb: