BassEncBASS_Encode_StartACM Method (Int32, IntPtr, BASSEncode, ENCODEPROC, IntPtr)

[DllImportAttribute("bassenc")]
public static int BASS_Encode_StartACM(
	int handle,
	IntPtr form,
	BASSEncode flags,
	ENCODEPROC proc,
	IntPtr user
)

<DllImportAttribute("bassenc">]
Public Shared Function BASS_Encode_StartACM ( 
	handle As Integer,
	form As IntPtr,
	flags As BASSEncode,
	proc As ENCODEPROC,
	user As IntPtr
) As Integer

// get suggested (maximum) format buffer size
int formlen = BassEnc.BASS_Encode_GetACMFormat(0, IntPtr.Zero, 0, null, BASSACMFormat.BASS_ACM_NONE);
// create a buffer for the codec
byte[] buffer = new byte[formlen];
unsafe
{
  fixed (byte* p = buffer)
  {
    // let the user choose a codec...
    if ( BassEnc.BASS_Encode_GetACMFormat( channel, (IntPtr)p, formlen, "Choose your format", 
                 BASSACMFormat.BASS_ACM_DEFAULT) > 0 )
    {
      // create the delegate
      _myEncProc = new ENCODEPROC(MyEncoderProc);
      // begin encoding using the codec with the delegate callback
      int encHandle = BassEnc.BASS_Encode_StartACMFile(channel, (IntPtr)p, BASSEncode.BASS_ENCODE_DEFAULT, _myEncProc, IntPtr.Zero);
    }
  }
}
...
// the encoding callback
private ENCODEPROC _myEncProc;  // keep the callback delegate in a global member
private bool MyEncodingWriter(int handle, int channel, IntPtr buffer, int length, IntPtr user)
{
  ...
}

' get suggested (maximum) format buffer size
Dim formlen As Integer = BassEnc.BASS_Encode_GetACMFormat(0, IntPtr.Zero, 0, Nothing, BASSACMFormat.BASS_ACM_NONE)
' create a buffer for the codec
Dim buffer(formlen - 1) As Byte
' now create a pinned handle, so that the Garbage Collector will not move this object
Dim hGC As GCHandle = GCHandle.Alloc(buffer, GCHandleType.Pinned)
' get the pointer to that pinned object
Dim codec As IntPtr = hGC.AddrOfPinnedObject()
' let the user choose a codec...
If BassEnc.BASS_Encode_GetACMFormat(channel, codec, formlen, "Choose your format", 
           BASSACMFormat.BASS_ACM_DEFAULT) > 0 Then
  ' create the delegate
  _myEncProc = New ENCODEPROC(AddressOf MyEncoderProc)
  ' begin encoding using the codec with the delegate callback
  Dim encHandle As Integer = BassEnc.BASS_Encode_StartACMFile(channel, codec, 
                                     BASSEncode.BASS_ENCODE_DEFAULT, _myEncProc, IntPtr.Zero)
End If
' free the codec format buffer (you might free it even if encoding is still running)
hGC.Free()
...
Private _myEncProc As ENCODEPROC
Private Function MyEncodingWriter(handle As Integer, channel As Integer, 
                                  buffer As IntPtr, length As Integer, user As IntPtr) As Boolean
  ...
End Function