Unit Monprocs

$Header: /MidiComp/MONPROCS.PAS 2 10/06/97 7:33 Davec $ } { Written by David Churcher , released to the public domain.

Classes

Functions

BinaryToHexList -
MonitorMessageText - Converts MIDI event to text description.

Types

TEventNames
TSysMsgNames

Constants

EventNames
format1
format2
format3
SysMsgNames

Variables


Functions


function BinaryToHexList( bin: PChar; binSize: Word ): String;


function MonitorMessageText( ThisEvent: TMyMidiEvent ): String;

Converts MIDI event to text description. Straight out of Microsoft MIDIMON example

Types


TEventNames = array[1..8] of string[24];

TSysMsgNames = array[1..16] of string[24];

Constants

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')


Variables