BassPlayerEx mit erweiterten Soundeffekten...

[omata]

Nachdem wir hier mal gestartet sind und der Thread nun doch langsam unübersichtlich wird, mache ich hier mal was neues auf.
Unübersichtlich deshalb, weil es mittlerweile zwei Varianten gibt. Beide haben ihre Vor- und Nachteile. Und leider habe ich keine Möglichkeit gefunden, alles in einem Projekt zu vereinen.

Dieser Thread beschäftigt sich mit dem Einsatz der Bass.dll und ihrer Erweiterungs-Dlls. Dies alles funktioniert allerdings nur auf einer Soundkarte (pro Anwendung). Wer mehr Soundkarten aus einer Anwendung heraus ansteueren möchte (z.B. für einen Monitor) sollte hier mal schauen.

Die Visualisierungen können jetzt auch als Plugin nachgeladen werden. Die Pluginstruktur ist die von Winamp.
Die Plugins findet ihr hier.


Viele Grüsse
Thorsten

[BullsEye]

Hallo, ich weiß, der letzte Post ist schon was her, allerdings ist mir gerade ein Fehler aufgefallen:

BassPlayer -> Visualliersirung -> Wenn keine Visu drinne ist und man start klickt kommt der Fehler, "listenindex überschreitet das maximu (-1)"

besser wäre, wenn da der Öffnen Dialog kommt oder ne Message "Fügen Sie bitte erst ein Visu hinzu"

[100nF]

hallo,

ich hab da ein kleines problemchen...
und zwar öffne ich mein musikprogramm (welches den BassPlayerEX verwendet) manchmal auch durch einen doppelklick auf eine Musikdatei. Also ich habe die Endung .mp3 auf mein Programm registriert.

funktioniert soweit auch ganz gut, doch das problem ist dass das Programm die zwei DLL-Dateien ("bass.dll" und "bass_fx.dll") beim öffnen einfach im ordner ablegt, wo sich die Musikdatei befindet.

Ich denke ich habe den übeltäter auch schon gefunden in der "BassDynamicU":

Delphi-Quellcode:

const
  BASS_FILENAME = 'bass.dll';
  BASSFX_FILENAME = 'bass_fx.dll';

constructor TBassDll.create;
var DLLData:TMemoryStream;
begin
  DLLData:=TMemoryStream.Create;
  try
    if not FileExists(BASS_FILENAME) then begin
      DLLData.Clear;
      DLLData.Write(BASSData, BASSSize);
      DLLData.SaveToFile(BASS_FILENAME);
    end;
    if not FileExists(BASSFX_FILENAME) then begin
      DLLData.Clear;
      DLLData.Write(BASSFXData, BASSFXSize);
      DLLData.SaveToFile(BASSFX_FILENAME);
    end;
  finally
    DLLData.free;
  end;
  if LoadBassDll then
    if LoadBassFxDll then ;
end;

wie man sieht werden keine absoluten Pfadangaben verwendet. Doch ist das überhaup möglich, absolute Pfade zu verwenden? Ich mein, Application.ExeName kann man ja schlecht auslesen^^

Was kann man da nun machen?

mfg

[omata]

Übergib den Pfad doch einfach...

Delphi-Quellcode:

constructor TBassDll.create(Path:string);
var DLLData:TMemoryStream;
begin
  DLLData:=TMemoryStream.Create;
  try
    if not FileExists(Path + BASS_FILENAME) then begin
      DLLData.Clear;
      DLLData.Write(BASSData, BASSSize);
      DLLData.SaveToFile(Path + BASS_FILENAME);
    end;
    if not FileExists(Path + BASSFX_FILENAME) then begin
      DLLData.Clear;
      DLLData.Write(BASSFXData, BASSFXSize);
      DLLData.SaveToFile(Path + BASSFX_FILENAME);
    end;
  finally
    DLLData.free;
  end;
  if LoadBassDll then
    if LoadBassFxDll then ;
end;

[100nF]

naja ok funktioniert^^

thx

[rollstuhlfahrer]

Zitat von urbanbruhin:

wie man sieht werden keine absoluten Pfadangaben verwendet. Doch ist das überhaup möglich, absolute Pfade zu verwenden? Ich mein, Application.ExeName kann man ja schlecht auslesen^^

Warum solte man Application.ExeName nicht auswerten können? Aufrufen kann man das ja auch ohne die Unit Forms. Und überhaupt geht das auch ohne SysUtils, was aber die Exceptions (sind glaub ich doch keine) verhindern.
Bei mir gibts die Exceptions nur, weil ich ein sauberes Laden implementiert hab, das abbricht, falls irgendwas nicht klappt.
Application.ExeName zeigt im Grunde nur auf ParamStr(0), welchen du auswerten kannst.

Bernhard