Einzelnen Beitrag anzeigen

omata

Registriert seit: 26. Aug 2004
Ort: Nebel auf Amrum
3.154 Beiträge
 
Delphi 7 Enterprise
 
#43

Re: BassPlayerEx mit erweiterten Soundeffekten...

  Alt 22. Jul 2008, 23:16
Ü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;
  Mit Zitat antworten Zitat