void Sound::StartRecording()
{

	lastErrorCode = 0;
	WAVEFORMATEX *wf;
    if (recbuf)
    {
	  BASS_StreamFree(chan);
	  chan=0;
	  free(recbuf);
	  recbuf=NULL;
      BASS_Free();
    }
    recbuf=(char*)malloc(BUFSTEP);
    reclen=44;
    memcpy(recbuf,"RIFF\0\0\0\0WAVEfmt \20\0\0\0",20);
    memcpy(recbuf+36,"data\0\0\0\0",8);
    wf=(WAVEFORMATEX*)(recbuf+20);
    wf->wFormatTag=1;
    wf->nChannels=CHANS;
    wf->wBitsPerSample=16;
    wf->nSamplesPerSec=FREQ;
    wf->nBlockAlign=wf->nChannels*wf->wBitsPerSample/8;
    wf->nAvgBytesPerSec=wf->nSamplesPerSec*wf->nBlockAlign;
    rchan=BASS_RecordStart(FREQ,CHANS,0, RecordingCallback,0);
	if (!rchan)
	{
	  free(recbuf);
	  lastErrorCode = -2;
	  lastErrorMsg = "Запись не произведена";
	  recbuf=0;
	  return;
	}
}

BOOL CALLBACK RecordingCallback(HRECORD handle, const void *buffer, DWORD length, void *user)
{
 // ASSERT(1==2);  
	if ((reclen%BUFSTEP)+length>=BUFSTEP) {
        recbuf=(char*)realloc(recbuf,((reclen+length)/BUFSTEP+1)*BUFSTEP);
		if (!recbuf)
		{
		  rchan=0;
		  lastErrorCode = -3;
		  lastErrorMsg = "Выход за предел памяти";
		  return false;
		}
	}
    memcpy(recbuf+reclen,buffer,length);
    reclen+=length;
    return true;
}

private RECORDPROC _myRecProc; // make it global, so that the GC can not remove it 
private int _byteswritten = 0;
private byte[] _recbuffer; // local recording buffer
...
if ( Bass.BASS_RecordInit(-1) )
{
  _myRecProc = new RECORDPROC(MyRecording);
  int recHandle = Bass.BASS_RecordStart(44100, 2, BASSFlag.BASS_RECORD_PAUSE, _myRecProc, IntPtr.Zero);
  ...
  // start recording
  Bass.BASS_ChannelPlay(recHandle, false);
}
...
private bool MyRecording(int handle, IntPtr buffer, int length, IntPtr user)
{
  bool cont = true;
  if (length > 0 && buffer != IntPtr.Zero)
  {
    // increase the rec buffer as needed 
    if (_recbuffer == null || _recbuffer.Length < length)
      _recbuffer = new byte[length];
    // copy from managed to unmanaged memory
    Marshal.Copy(buffer, _recbuffer, 0, length);
    _byteswritten += length;
    // write to file
    ...
    // stop recording after a certain amout (just to demo) 
    if (_byteswritten > 800000)
      cont = false; // stop recording
  }
  return cont;
}

//---------------------------------------------------------------------------
BOOL CALLBACK RecordingCallback(HRECORD handle, const void *buffer, DWORD length, void *user)
{
    if ((reclen%BUFSTEP)+length>=BUFSTEP) {
        recbuf=(char*)realloc(recbuf,((reclen+length)/BUFSTEP+1)*BUFSTEP);
        if (!recbuf) {
            rchan=0;
            ShowMessage("Выход за предел памяти");
            return false;
        }
    }
    memcpy(recbuf+reclen,buffer,length);
    reclen+=length;
    return true;
}

void TForm1::StartRecording()
{
    WAVEFORMATEX *wf;
    if (recbuf)
    {
        BASS_StreamFree(chan);
        chan=0;
        free(recbuf);
        recbuf=NULL;
        BASS_Free();
    }
    recbuf=(char*)malloc(BUFSTEP);
    reclen=44;
    memcpy(recbuf,"RIFF\0\0\0\0WAVEfmt \20\0\0\0",20);
    memcpy(recbuf+36,"data\0\0\0\0",8);
    wf=(WAVEFORMATEX*)(recbuf+20);
    wf->wFormatTag=1;
    wf->nChannels=CHANS;
    wf->wBitsPerSample=16;
    wf->nSamplesPerSec=FREQ;
    wf->nBlockAlign=wf->nChannels*wf->wBitsPerSample/8;
    wf->nAvgBytesPerSec=wf->nSamplesPerSec*wf->nBlockAlign;
	Form1->Button2->Enabled=true;
    rchan=BASS_RecordStart(FREQ,CHANS,0,RecordingCallback,0);
    if (!rchan) {
        free(recbuf);
        ShowMessage("Запись не произведена!");
		Form1->Button2->Enabled=false;
        recbuf=0;
        return;
	}
}

BOOL CALLBACK RecordingCallback(HRECORD handle, const void *buffer, DWORD length, 
void *user)

bool MyRecording(int handle, IntPtr buffer, int length, IntPtr user)