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:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:

function RecordCallback(Buffer: Pointer; Length: Cardinal; User: Pointer): Boolean;
begin
  result := false;
end;

//[...]

  //INIT
  Dev := 0;
  InputDevCB.Items.Clear;
  while BASS_WASAPI_GetDeviceInfo(Dev, DevInfo) do begin
    inc(Dev);
    InputDevCB.Items.Add(IntToStr(Dev) + ': ' + DevInfo.name);
  end;
  InputDevCB.Text  := 'Please choose InputDevCB';
 
//[...]

  //CHOOSE DEVICE
  InputDev := InputDevCB.ItemIndex;
  BASS_WASAPI_Free;

  if not BASS_WASAPI_Init(InputDev, 0, 0, BASS_WASAPI_BUFFER, 0, 0, @RecordCallback, @Error) then begin
    Error := BASS_ErrorGetCode;
    case error of
      BASS_ERROR_WASAPI: ShowMessage('WASAPI is not available.');
      BASS_ERROR_DEVICE: ShowMessage('device is invalid.');
      BASS_ERROR_ALREADY: ShowMessage('The device has already been initialized. BASS_WASAPI_Free must be called before it can be initialized again.');
      BASS_ERROR_ILLPARAM: ShowMessage('A WASAPIPROC must be provided for an input device.');
      BASS_ERROR_DRIVER: ShowMessage('The driver could not be initialized.');
      BASS_ERROR_FORMAT: ShowMessage('The specified format is not supported by the device. If the BASS_WASAPI_AUTOFORMAT flag was specified, no other format could be found either.');
      BASS_ERROR_BUSY: ShowMessage('The device is already in use, eg. another process may have initialized it in exclusive mode.');
      BASS_ERROR_INIT: ShowMessage('The BASS "no sound" device has not been initialized.');
    else
      ShowMessage('Some other mystery problem!');
    end;
  end;  

//[...]

  //GET DATA  
  Level := BASS_WASAPI_GetDeviceLevel(InputDev, -1);

  if BASS_WASAPI_GetData(@FFTData, BASS_DATA_FFT512) = -1 then begin
    Error := BASS_ErrorGetCode;
    case Error of
      BASS_ERROR_INIT: ShowMessage('BASS_WASAPI_Init has not been successfully called.');
      BASS_ERROR_NOTAVAIL: ShowMessage('The BASS_WASAPI_BUFFER flag was not specified in the device''s initialization.');
    else
      ShowMessage('Some other mystery problem!');
    end;
  end;
  PaintBox1.Repaint;					

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

  if not BASS_Init(OutputDev, 44100, BASS_DEVICE_SPEAKERS, Handle, nil) then
    LogError('OutputDevCBChange.BASS_Init')
  else begin
    OutStreams[STREAM_FRONT] :=
      BASS_StreamCreate(44100, 1, BASS_SAMPLE_FLOAT or BASS_SPEAKER_FRONT, STREAMPROC_PUSH, nil);
    if OutStreams[STREAM_FRONT] <= 0 then
      LogError('OutputDevCBChange.[STREAM_FRONT].BASS_StreamCreate')
    else
      if not BASS_ChannelPlay(OutStreams[STREAM_FRONT], True) then
        LogError('OutputDevCBChange.[STREAM_FRONT].BASS_ChannelPlay');					

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

function RecordCallback(Buffer: Pointer; Length: DWord; User: Pointer): DWord;
var
  written: Cardinal;
begin
  result := 1;
  if Length = 0 then
    exit;

  writeln(' read: '+IntToStr(length));
  with Form1 do begin
    if (OutStreams[STREAM_REAR] > 0) and
        EnableRearCB.Checked then begin
      written := BASS_StreamPutData(OutStreams[STREAM_REAR], Buffer, Length);
      writeln('write: '+IntToStr(written));
      if written = High(Cardinal) then
        LogError('RecordCallback.[STREAM_REAR].BASS_StreamPutData');
    end;
  end;
end;