MidiSysExMessage Class

[SerializableAttribute]
public sealed class MidiSysExMessage

<SerializableAttribute>
Public NotInheritable Class MidiSysExMessage

private MIDIOUTPROC _midiProc;
private IntPtr _midiOutHandle;
...
// Open the Midi device #0
_midiProc = new MIDIOUTPROC(MyMidiOutProc);
MIDIError ret = Midi.MIDI_OutOpen(ref _midiOutHandle, 0, _midiProc, 0);
if (ret == MIDIError.MIDI_OK)
{
  // output ready
}
...
private void SendSysExBuffer(IntPtr handle, byte[] data)
{
  MidiSysExMessage msg = new MidiSysExMessage(false, handle);
  msg.CreateBuffer(data);
  if (msg.Prepare())
  {
    // if the message was perpared successfully
    // send a system-exclusive message to the output device
    Midi.MIDI_OutLongMsg(handle, msg.MessageAsIntPtr);
  }
}

public void MyMidiOutProc(IntPtr handle, MIDIMessage msg, IntPtr instance, IntPtr param1, IntPtr param2)
{
  // handle all Midi messages here
  if (msg == MIDIMessage.MOM_DONE)
  {
    // process the message...
    // param1 will contain the pointer to the MIDI_HEADER
    MidiSysExMessage sysexMsg = new MidiSysExMessage(false, handle, param1);
    // the internal header is already unprepared here
    // so you can still use the data...
    Console.WriteLine( sysexMsg.ToString() );
  }
  ...
}

Private _midiProc As MIDIOUTPROC
Private _midiOutHandle As IntPtr
...
' Open the Midi device #0
_midiProc = New MIDIOUTPROC(AddressOf MyMidiOutProc)
Dim ret As MIDIError = Midi.MIDI_OutOpen(_midiOutHandle, 0, _midiProc, 0)
If ret = MIDIError.MIDI_OK Then
  ' output ready
End If
...
Private Sub SendSysExBuffer(handle As IntPtr, data() As Byte)
  Dim msg As New MidiSysExMessage(False, handle)
  msg.CreateBuffer(data)
  If msg.Prepare() Then
    ' if the message was perpared successfully
    ' send a system-exclusive message to the output device
    Midi.MIDI_OutLongMsg(handle, msg.MessageAsIntPtr)
  End If
End Sub

Public Sub MyMidiOutProc(handle As IntPtr, msg As MIDIMessage, instance As IntPtr, param1 As IntPtr, param2 As IntPtr)
  ' handle all Midi messages here
  If msg = MIDIMessage.MOM_DONE Then
    ' process the message...
    ' param1 will contain the pointer to the MIDI_HEADER
    Dim sysexMsg As New MidiSysExMessage(False, handle, param1)
    ' the internal header is already unprepared here
    ' so you can still use the data...
    Console.WriteLine(sysexMsg.ToString())
  End If
End Sub

private MIDIINPROC _midiProc;
private IntPtr _midiInHandle;
...
// Open the Midi device #0
_midiProc = new MIDIINPROC(MyMidiInProc);
MIDIError ret = Midi.MIDI_InOpen(ref _midiInHandle, 0, _midiProc, IntPtr.Zero, MIDIFlags.MIDI_IO_STATUS);
if (ret == MIDIError.MIDI_OK)
{
  // already supply the device with 2 buffers (each 1K)
  AddSysExBuffer(_midiInHandle, 1024);
  AddSysExBuffer(_midiInHandle, 1024);
  // Start the device
  ret = Midi.MIDI_InStart(_midiInHandle);
}
...
// prepare receiving system-exclusive messages
private void AddSysExBuffer(IntPtr handle, int size)
{
  MidiSysExMessage msg = new MidiSysExMessage(true, handle);
  msg.CreateBuffer(size);
  if (msg.Prepare())
  {
    // Add the buffer to the InputDevice.
    Midi.MIDI_InAddBuffer(handle, msg.MessageAsIntPtr);
  }
}

MidiSysExMessage _sysexMsg = null;
public void MyMidiInProc(IntPtr handle, MIDIMessage msg, IntPtr instance, IntPtr param1, IntPtr param2)
{
  if (msg == MIDIMessage.MIM_LONGDATA || msg == MIDIMessage.MIM_LONGERROR)
  {
    // process the sysex message...
    // param1 will contain the pointer to the MIDI_HEADER
    _sysexMsg = new MidiSysExMessage(true, handle, param1, _sysexMsg);
    if (_sysexMsg.IsDone)
    {
      // use it...
      Console.WriteLine( sysexMsg.ToString() );
    }
    ...
    // add a new buffer
    // since we should constantly provide new buffers until we finished recording
    AddSysExBuffer(handle, 1024);
  }
  ...
}

Private _midiProc As MIDIINPROC
Private _midiInHandle As IntPtr
...
' Open the Midi device #0
_midiProc = New MIDIINPROC(AddressOf MyMidiInProc)
Dim ret As MIDIError = Midi.MIDI_InOpen(_midiInHandle, 0, _midiProc, IntPtr.Zero, MIDIFlags.MIDI_IO_STATUS)
If ret = MIDIError.MIDI_OK Then
  ' already supply the device with 2 buffers (each 1K)
  AddSysExBuffer(_midiInHandle, 1024)
  AddSysExBuffer(_midiInHandle, 1024)
  ' Start the device
  ret = Midi.MIDI_InStart(_midiInHandle)
End If
...
' prepare receiving system-exclusive messages
Private Sub AddSysExBuffer(handle As IntPtr, size As Integer)
  Dim msg As New MidiSysExMessage(True, handle)
  msg.CreateBuffer(size)
  If msg.Prepare() Then
    ' Add the buffer to the InputDevice.
    Midi.MIDI_InAddBuffer(handle, msg.MessageAsIntPtr)
  End If
End Sub

' prepare sending system-exclusive messages
Dim _sysexMsg As MidiSysExMessage = Nothing
Public Sub MyMidiInProc(handle As IntPtr, msg As MIDIMessage, instance As IntPtr, param1 As IntPtr, param2 As IntPtr)
  If msg = MIDIMessage.MIM_LONGDATA OrElse msg = MIDIMessage.MIM_LONGERROR Then
    ' process the sysex message...
    ' param1 will contain the pointer to the MIDI_HEADER
    _sysexMsg = New MidiSysExMessage(True, handle, param1, _sysexMsg)
    If _sysexMsg.IsDone Then
      ' use it...
      Console.WriteLine(sysexMsg.ToString())
    End If
    ...
    ' add a new buffer
    ' since we should constantly provide new buffers until we finished recording
    AddSysExBuffer(handle, 1024)
  End If
  ...
End Sub