-
Notifications
You must be signed in to change notification settings - Fork 0
/
MidiCons.pas
116 lines (103 loc) · 4.31 KB
/
MidiCons.pas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
{ $Header: /MidiComp/MIDICONS.PAS 2 10/06/97 7:33 Davec $ }
{ Written by David Churcher <dchurcher@cix.compulink.co.uk>,
released to the public domain. }
(**
* MidiCons.pas v2010-05r1
**)
(* ***** BEGIN LICENSE BLOCK *****
* Version: MPL 1.1/GPL 3.0/LGPL 3.0
*
* The contents of this file are subject to the Mozilla Public License Version
* 1.1 (the "License"); you may not use this file except in compliance with
* the License. You may obtain a copy of the License at
* http://www.mozilla.org/MPL/
*
* Software distributed under the License is distributed on an "AS IS" basis,
* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
* for the specific language governing rights and limitations under the
* License.
*
* The Original Code is MIDI constants.
*
* The Initial Developer of the Original Code is
* David Churcher <dchurcher@cix.compulink.co.uk>.
* Portions created by the Initial Developer are Copyright (C) 1997
* the Initial Developer. All Rights Reserved.
*
* Contributor(s):
* Manuel Kroeber <manuel.kroeber@googlemail.com>
*
* Alternatively, the contents of this file may be used under the terms of
* either the GNU General Public License Version 3 or later (the "GPL"), or
* the GNU Lesser General Public License Version 3 or later (the "LGPL"),
* in which case the provisions of the GPL or the LGPL are applicable instead
* of those above. If you wish to allow use of your version of this file only
* under the terms of either the GPL or the LGPL, and not to allow others to
* use your version of this file under the terms of the MPL, indicate your
* decision by deleting the provisions above and replace them with the notice
* and other provisions required by the GPL or the LGPL. If you do not delete
* the provisions above, a recipient may use your version of this file under
* the terms of any one of the MPL, the GPL or the LGPL.
*
* ***** END LICENSE BLOCK ***** *)
{ MIDI Constants }
unit MidiCons;
interface
uses Messages, SysUtils;
const
MIDI_ALLNOTESOFF = $7B;
MIDI_NOTEON = $90;
MIDI_NOTEOFF = $80;
MIDI_KEYAFTERTOUCH = $a0;
MIDI_CONTROLCHANGE = $b0;
MIDI_PROGRAMCHANGE = $c0;
MIDI_CHANAFTERTOUCH = $d0;
MIDI_PITCHBEND = $e0;
MIDI_SYSTEMMESSAGE = $f0;
MIDI_BEGINSYSEX = $f0;
MIDI_MTCQUARTERFRAME = $f1;
MIDI_SONGPOSPTR = $f2;
MIDI_SONGSELECT = $f3;
MIDI_ENDSYSEX = $F7;
MIDI_TIMINGCLOCK = $F8;
MIDI_START = $FA;
MIDI_CONTINUE = $FB;
MIDI_STOP = $FC;
MIDI_ACTIVESENSING = $FE;
MIDI_SYSTEMRESET = $FF;
MIM_OVERFLOW = WM_USER; { Input buffer overflow }
MOM_PLAYBACK_DONE = WM_USER+1; { Timed playback complete }
{ device ID for MIDI mapper - copied from MMSystem }
MIDIMAPPER = LongWord(-1); // UINT = LongWord as in Windows.pas
MIDI_MAPPER = LongWord(-1);
function MidiMessageToStr(const MidiMessage: Byte): string;
implementation
function MidiMessageToStr(const MidiMessage: Byte): string;
begin
case (MidiMessage and $F0) of
MIDI_ALLNOTESOFF : Result := 'MIDI_ALLNOTESOFF';
MIDI_NOTEON : Result := 'MIDI_NOTEON';
MIDI_NOTEOFF : Result := 'MIDI_NOTEOFF';
MIDI_KEYAFTERTOUCH : Result := 'MIDI_KEYAFTERTOUCH';
MIDI_CONTROLCHANGE : Result := 'MIDI_CONTROLCHANGE';
MIDI_PROGRAMCHANGE : Result := 'MIDI_PROGRAMCHANGE';
MIDI_CHANAFTERTOUCH : Result := 'MIDI_CHANAFTERTOUCH';
MIDI_PITCHBEND : Result := 'MIDI_PITCHBEND';
MIDI_SYSTEMMESSAGE : Result := 'MIDI_BEGINSYSEX or MIDI_SYSTEMMESSAGE';
MIDI_MTCQUARTERFRAME : Result := 'MIDI_MTCQUARTERFRAME';
MIDI_SONGPOSPTR : Result := 'MIDI_SONGPOSPTR';
MIDI_SONGSELECT : Result := 'MIDI_SONGSELECT';
MIDI_ENDSYSEX : Result := 'MIDI_ENDSYSEX';
MIDI_TIMINGCLOCK : Result := 'MIDI_TIMINGCLOCK';
MIDI_START : Result := 'MIDI_START';
MIDI_CONTINUE : Result := 'MIDI_CONTINUE';
MIDI_STOP : Result := 'MIDI_STOP';
MIDI_ACTIVESENSING : Result := 'MIDI_ACTIVESENSING';
MIDI_SYSTEMRESET : Result := 'MIDI_SYSTEMRESET';
else
Result := 'Unknown MIDI Message 0x' +
IntToHex(MidiMessage, 2) + ' | ' +
IntToStr(MidiMessage);
end;
end;
end.