1:
2:

  TBassSoundStatus = (BSS_STOPPED = 0, BSS_PLAYING = 1, BSS_STALLED = 2, BSS_PAUSED  = 3);
IncludeTrailingPathDelimiter                    

1:
2:
3:
4:
5:

        for a := 0 to Info^.formatc - 1 do
        begin
          // Filter erweitern
          Filter := Filter + Info^.Formats^[a].exts;
        end;                    

1:
2:
3:
4:

const
  // special STREAMPROCs
  STREAMPROC_DUMMY : STREAMPROC = STREAMPROC(0);  // "dummy" stream
  STREAMPROC_PUSH  : STREAMPROC = STREAMPROC(-1); // push stream                    

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

class procedure TBassSound.InitBass{$IFDEF DYNAMIC_BASS_LOAD}(const DLLName:String = 'bass.dll'){$ENDIF};
begin
....
....
....
   if not BASS_Init(-1, 44100, 0, 0, nil) then    
    .....
....
.... 
end;                    

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

procedure TForm1.btnLoadClick(Sender: TObject);
begin
if dlgOpensong.Execute then
sound.LoadFromFile(dlgOpensong.FileName);

end;

procedure TForm1.btnPlayClick(Sender: TObject);
begin
sound.Play(False);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
sound.Create;
sound.InitBass();
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
sound.Free;
sound.DeInitBass;
end;                    

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

procedure TbassSound.MusicLoad(Path:Ansistring);
var
f:Pansichar;
begin
freeSound;
FFreeMemAfter := false;
f:=Pansichar(path);
handle:=BASS_MusicLoad(False,f,0,0,0{$IFDEF UNICODE} or BASS_UNICODE{$ENDIF},Nil);
if Handle = 0 then BassError(BASS_ErrorGetCode);
FSource:=BSSo_File;
end;                    

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

procedure TForm1.btnLoadClick(Sender: TObject);
begin
  if dlgOpensong.Execute then
  sound.LoadFromFile(dlgOpensong.FileName);
end;

procedure TForm1.btnPlayClick(Sender: TObject);
begin
  sound.Play(False);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  TBassSound.InitBass();
  sound := TBassSound.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  sound.Free;
  TBassSound.DeInitBass;
end;                    

1:

sound.musicload(opendialog.filename);                    

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

procedure TbassSound.MusicLoad(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); //NIL ist hier falsch
if Handle = 0 then BassError(BASS_ErrorGetCode);
FSource:=BSSo_File;
end;                    

1:

357  Filter := 'mp3;*.mp2;*.mp1;*.ogg;*.wav*;*.aif;*.it;*.xm;*.mod,*.s3m';                    

1:
2:
3:
4:
5:

//----Getcpu-------
function TbassSound.cpu:string;
begin
result:=FloatToStrF(BASS_GetCPU,ffFixed, 4, 2) + '%';   //gibt an wie viel cpu verwendet wird.
end;                    

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;