$Header: /MidiComp/MONPROCS.PAS 2 10/06/97 7:33 Davec $ } { Written by David Churcher ,
released to the public domain. BinaryToHexList -
MonitorMessageText - Converts MIDI event to text description.
TEventNames
TSysMsgNames
EventNames
format1
format2
format3
SysMsgNames
function BinaryToHexList( bin: PChar; binSize: Word ): String;
function MonitorMessageText( ThisEvent: TMyMidiEvent ): String;
Converts MIDI event to text description. Straight out of Microsoft MIDIMON example
TEventNames = array[1..8] of string[24];
TSysMsgNames = array[1..16] of string[24];
EventNames = (
'Note Off',
'Note On',
'Key Aftertouch',
'Control Change',
'Program Change',
'Channel Aftertouch',
'Pitch Bend',
'System Message' )
format1 = '%4.4x%4.4x %2.2x %s'
format2 = '%4.4x%4.4x %2.2x %2.2x %s'
format3 = '%4.4x%4.4x %2.2x %2.2x %2.2x %s'
SysMsgNames = (
'System Exclusive',
'MTC Quarter Frame',
'Song Position Pointer',
'Song Select',
'Undefined',
'Undefined',
'Tune Request',
'System Exclusive End',
'Timing Clock',
'Undefined',
'Start',
'Continue',
'Stop',
'Undefined',
'Active Sensing',
'System Reset')