WaveWriter Class

public sealed class WaveWriter

Public NotInheritable Class WaveWriter

int stream = Bass.BASS_StreamCreateFile("test.mp3", 0, 0, BASSFlag.BASS_STREAM_DECODE);
WaveWriter WW = new WaveWriter("test.wav", stream, true);
short[] data = new short[32768];
while (Bass.BASS_ChannelIsActive(stream) == BASSActive.BASS_ACTIVE_PLAYING)
{
  int length = Bass.BASS_ChannelGetData(stream, data, 32768);
  if (length > 0)
    WW.Write(data, length);
}
// finilize the wave file!
WW.Close();
Bass.BASS_StreamFree(stream);

Dim stream As Integer = Bass.BASS_StreamCreateFile("test.mp3", 0, 0, BASSFlag.BASS_STREAM_DECODE)
Dim WW As New WaveWriter("test.wav", stream, True)
Dim data(32768 - 1) As Short
While Bass.BASS_ChannelIsActive(stream) = BASSActive.BASS_ACTIVE_PLAYING
  Dim length As Integer = Bass.BASS_ChannelGetData(stream, data, 32768)
  If length > 0 Then
    WW.Write(data, length)
  End If
End While
' finilize the wave file!
WW.Close()
Bass.BASS_StreamFree(stream)

private WaveWriter _waveWriter = null; // make it global, so that the GC can not remove it
private RECORDPROC _myRecProc;
private int _recHandle = 0;
...
// start recording
_myRecProc = new RECORDPROC(MyRecording);
_recHandle = Bass.BASS_RecordStart(44100, 2, 
                  BASSFlag.BASS_RECORD_PAUSE | BASSFlag.BASS_SAMPLE_FLOAT, _myRecProc, IntPtr.Zero);
// create a WaveWriter using the _recHandle to set the freq. and channels, but write the wave at 24-bit
_waveWriter = new WaveWriter( "test.wav", _recHandle, 24, true);
Bass.BASS_ChannelPlay(_recHandle, false);
...
// when finished recording call this!
if (_waveWriter != null)
{
  // finilize the wave file!
  _waveWriter.Close();
}
...
// the recording callback
private bool MyRecording(int handle, IntPtr buffer, int length, IntPtr user)
{
  // we will get float sample data here
  // so make sure the _waveWriter.OrigResolution property is set to 32
  // this was automatically done, since we started recording with BASSFlag.BASS_SAMPLE_FLOAT
  _waveWriter.Write( buffer, length );
  return true; // always continue recording
}

Private _waveWriter As WaveWriter = Nothing ' make it global, so that the GC can not remove it
Private _myRecProc As RECORDPROC
Private _recHandle As Integer = 0
...
' start recording
_myRecProc = New RECORDPROC(AddressOf MyRecording)
_recHandle = Bass.BASS_RecordStart(44100, 2, 
                  BASSFlag.BASS_RECORD_PAUSE Or BASSFlag.BASS_SAMPLE_FLOAT, _myRecProc, IntPtr.Zero)
' create a WaveWriter using the _recHandle to set the freq. and channels, but write the wave at 24-bit
_waveWriter = New WaveWriter("test.wav", _recHandle, 24, True)
Bass.BASS_ChannelPlay(_recHandle, False)
...
' when finished recording call this!
If Not (_waveWriter Is Nothing) Then
  ' finilize the wave file!
  _waveWriter.Close()
End If
...
' the recording callback
Private Function MyRecording(handle As Integer, buffer As IntPtr, length As Integer, user As IntPtr) As Boolean
  ' we will get float sample data here
  ' so make sure the _waveWriter.OrigResolution property is set to 32
  ' this was automatically done, since we started recording with BASSFlag.BASS_SAMPLE_FLOAT
  _waveWriter.Write(buffer, length)
  Return True ' always continue recording
End Function