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

//AUFNAHME
function RecordingCallback(Handle: HRECORD; buffer: Pointer; length, user: DWord): boolean; stdcall;
begin
  FileStream.Write(buffer, length);
  Result := True;
end;

//InputStream erzeugen 
i := 0;
InputDevice := 0;
while BASS_RecordSetInput(i, BASS_INPUT_OFF, -1) do i := i + 1;            //alle abschalten
BASS_RecordSetInput(InputDevice, BASS_INPUT_ON, 1);
RecStream:= BASS_RecordStart(44100, 2, 0, @RecordingCallback, 0);          //Stream erzeugen					

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

//WIEDERGABE
function Callback(Handle: HRECORD; buffer: Pointer; length, user: DWord): boolean; stdcall;
begin
  if MemStream.Position + Length > MemStream.Size then begin
    result := false;
  end else begin
    FileStream.Read(buffer, Length); 
    FileStream.Position := MemStream.Position + Length;
    Result := True;
  end;
end;

PlayStream := Bass.BASS_StreamCreate(44100, 2, 0, @Callback, 0);
BASS_ChannelPlay(PlayStream , false);					

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

function Callback(Handle: HRECORD; buffer: Pointer; length, user: DWord): boolean; stdcall;
var
  buf: ^DWord;
  i, len: Integer;
begin
  buf := buffer;
  len := Length div 4;
  for i := 0 to len - 1 do begin
    MemStream.Read(buf^, 4);
    inc(buf);
  end;
  Result := True;
end;					

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

var i: BASS_INFO;
.......
.......
if (HIWORD(BASS_GetVersion) <> BASSVERSION) then
   begin
       MessageBox(0, 'An incorrect version of BASS.DLL was loaded', nil, MB_ICONERROR);
     Halt;
   end;

   if not BASS_Init(-1, 44100, 0, Handle, nil) then
      Error('Error initializing audio!');

   BASS_GetInfo(i);
  
   if (i.speakers < 4) then // no extra speakers detected, enable them anyway?
   begin
       if (MessageBox(0, 'Lautsprecher Zuordnung trotzdem aktivieren?', 'Keine extra Lautsprecher gefunden', MB_ICONQUESTION or MB_YESNO) = IDYES) then
       begin
        // reinitialize BASS - forcing speaker assignment
           BASS_Free;
           if (not BASS_Init(-1, 44100, BASS_DEVICE_SPEAKERS, Handle, nil)) then
           begin
               MessageBox(0, 'Can''t initialize device', nil, 0);
               Halt;
           end;
           BASS_GetInfo(i); // get info again
       end;
   end;					

1:

stream=BASS_StreamCreateURL('http://www.welchesite.com/file.mp3', 0, 0, NULL, 0);