BassBASS_StreamCreate Method (Int32, Int32, BASSFlag, STREAMPROC, IntPtr)

[DllImportAttribute("bass")]
public static int BASS_StreamCreate(
	int freq,
	int chans,
	BASSFlag flags,
	STREAMPROC proc,
	IntPtr user
)

<DllImportAttribute("bass">]
Public Shared Function BASS_StreamCreate ( 
	freq As Integer,
	chans As Integer,
	flags As BASSFlag,
	proc As STREAMPROC,
	user As IntPtr
) As Integer

private STREAMPROC _myStreamCreate;  // make it global, so that the GC can not remove it
private byte[] _data = null; // our local buffer
...
_myStreamCreate = new STREAMPROC(MyFileProc);
FileStream fs = File.OpenRead("test.raw");
int channel = Bass.BASS_StreamCreate(44100, 2, 
                   BASSFlag.BASS_DEFAULT, _myStreamCreate, IntPtr.Zero);
Bass.BASS_ChannelPlay(channel, false);
...
private int MyFileProc(int handle, IntPtr buffer, int length, IntPtr user)
{
  // implementing the callback for BASS_StreamCreate...
  // here we need to deliver PCM sample data

  // increase the data buffer as needed
  if (_data == null || _data.Length < length)
    _data = new byte[length];

  int bytesread = _fs.Read( _data, 0, length ); 
  Marshal.Copy( _data, 0, buffer, bytesread );
  if ( bytesread < length )
  {
    // set indicator flag
    bytesread |= (int)BASSStreamProc.BASS_STREAMPROC_END;
    _fs.Close();
  }
  return bytesread;
}

Private _myStreamCreate As STREAMPROC  ' make it global, so that the GC can not remove it
Private _data As Byte() = Nothing  ' our local buffer
...
_myStreamCreate = New STREAMPROC(AddressOf MyFileProc)
Dim fs As FileStream =  File.OpenRead("test.raw")
Dim channel As Integer =  Bass.BASS_StreamCreate(44100, 2, 
                               BASSFlag.BASS_DEFAULT, _myStreamCreate, IntPtr.Zero) 
Bass.BASS_ChannelPlay(channel, False)
...
Private Function MyFileProc(ByVal handle As Integer, ByVal buffer As IntPtr, 
                            ByVal length As Integer, ByVal user As IntPtr) As Integer
  ' implementing the callback for BASS_StreamCreate...
  ' here we need to deliver PCM sample data

  ' increase the data buffer as needed
  If _data = Nothing OrElse _data.Length < length Then
    _data = New Byte(length) {}
  End If

  Dim bytesread As Integer = _fs.Read(_data, 0, length) 
  Marshal.Copy(_data, 0, buffer, bytesread)
  If bytesread < length Then
    bytesread = bytesread Or CInt(BASSStreamProc.BASS_STREAMPROC_END) ' set indicator flag
    _fs.Close()
  EndIf
  Return bytesread
End Function