1:

Sound.LoadFromFile(Edit1.Text);					

1:
2:
3:
4:
5:
6:
7:

type
OpenDialog1: TOpenDialog;
procedure TForm1.Button7Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  Sound.LoadFromFile(Edit1.Text);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TBassSound.MusikLoad(Path:string);
var
f:PChar;
begin
freeSound;
  FFreeMemAfter := false;
  f := PChar(Path);
  Handle := BASS_Musicload(False,f,0,0,0{$IFDEF UNICODE} or BASS_UNICODE {$ENDIF},0);
  if not Ready then BassError(BASS_ErrorGetCode);
  FSource := BSSo_File;
  RaiseLoad; 
  end;					

1:

raise EBassError.Create('Couldn''t load '+DLLName);					

1:
2:
3:
4:
5:

var
dll:string;
begin
dll:='..\bass.dll'; //dafür hab ich doch das angeben das er sie findet.
OpenDialog1.Filter := TBassSound.InitBassPlugins(dll);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TBassSound.MusikLoad(Path:string);
var
f:PChar;
begin
  freeSound;
  f := PChar(Path);
  Handle := BASS_Musicload(False,f,0,0,0{$IFDEF UNICODE} or BASS_UNICODE {$ENDIF},0);
  if not Ready then BassError(BASS_ErrorGetCode);
  FSource := BSSo_File;
  RaiseLoad; 
end;					

1:

InitBass ('..\bass.dll');					

1:
2:
3:
4:

procedure TForm1.Button10Click(Sender: TObject);
begin
sound.MusikLoad(Edit1.Text);
end;					

1:

BASS_ERROR_NOTAVAIL     : raise EBassError.Create('Requested data is not available!');//Und das ist der error					

1:

Filter := '*.mp3;*.mp2;*.mp1;*.ogg;*.oga;*.ogx;*.ogg;*.spx;*.wav*;*.aif;*.aiff;*.aifc,*.it;*.xm;*.mod,*.s3m';					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TBassSound.LoadFromResource (Instance: THandle; const ResName: string);
var
  stream: TStream;
begin
  try
    stream := TResourceStream.Create(Instance,ResName,RT_RCDATA);
    LoadFromBufferdStream(Stream);
    FSource := BSSo_Resource;
  finally
              //aber kommischer weise wenn es hier ist kommt W1036: Variable '%s' might not have been initialized
  end;
  Stream.Free //ja ich weiss das gehört da nicht hin
end;					

1:
2:
3:
4:
5:
6:

type
  TBassFileSound = class(TBassSound)
    public
      procedure LoadFromFile(FilePath: String);
    procedure MusicLoad(FilePath:string);//neu
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TBassFileSound.MusicLoad(FilePath:string);
var
 f: PChar;//ich meine hier müsste man pansichar verwenden weil es ja fasttracker module sind.
begin
  FreeSound;
  f := PChar(FilePath);
  Handle := BASS_MusicLoad(False,f,0,0,0{$IFDEF UNICODE} or BASS_UNICODE{$ENDIF},Nil);
  if not Ready then BassError(BASS_ErrorGetCode);
  AfterLoaded;
  RaiseLoad;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

type
  TBassDllManager = class
    private
      FOptions: TBassOptions;
      FDeviceManager: TBassDeviceManager;
      FFileExtensionFilter: String;
    protected
      function GetOptions: TBassOptions;
      function GetDeviceManager: TBassDeviceManager;
      function GetCpuUssage: float;
    public
      property CPUUssage: float read GetCpuUssage;
      property FileExtensionFilter: String read FFileExtensionFilter;
      property Options: TBassOptions read GetOptions;
      property DeviceManager: TBassDeviceManager read GetDeviceManager;
    public
      constructor Create(DllPath: String=''{use '' to look in the application dir});
      destructor Destroy; override;
  end;