标题：MIDI编曲
呼叫midiOutOpen函式
要在播放音乐的准备期间打开一个MIDI输出设备，可以呼叫midiOutOpen函式：
error = midiOutOpen (&hMidiOut, wDeviceID, dwCallBack, 
dwCallBackData, dwFlags) ;
如果呼叫成功，则函式传回0，否则传回错误代码。如果参数设定正确，则常见的一种错误就是MIDI设备已被其他程式使用。
该函式的第一个参数是指向HMIDIOUT型态变数的指标，它接收後面用於MIDI输出函式的MIDI输出代号。第二个参数是设备ID。要使用真实的MIDI设备，这个参数范围可以是从0到小於由midiOutGetNumDevs传回的数值。您还可以使用MIDIMAPPER，它在MMSYSTEM.H中定义为-1。大多数情况下，函式的后三个参数设定为NULL或0。
向该设备发送MIDI讯息
一旦打开一个MIDI输出设备并获得了其代号，您就可以向该设备发送MIDI讯息。此时可以呼叫：
error = midiOutShortMsg (hMidiOut, dwMessage) ;
第一个参数是从midiOutOpen函式获得的代号。第二个参数是包装在32位元DWORD中的1位元组、2位元组或者3位元组的讯息。我在前面讨论过，MIDI讯息以状态位元组开始，後面是0、1或2位元组的资料。在dwMessage中，状态位元组是最不重要的，第一个资料位元组次之，第二个资料位元组再次之，最重要的位元组是0。
例如
例如，要在MIDI通道5上以0x7F的速度演奏中音C（音符是0x3C），则需要3位元组的Note On讯息：
0x95 0x3C 0x7F
midiOutShortMsg的参数dwMessage等于0x007F3C95。
三个基础的MIDI讯息是Program Change（可为某一特定通道而改变乐器声音）、Note On和Note Off。打开一个MIDI输出设备後，应该从一条Program Change讯息开始，然後发送相同数量的Note On和Note Off讯息。
当您一直演奏您想演奏的音乐时，您可以重置MIDI输出设备以确保关闭所有的音符：
midiOutReset (hMidiOut) ;
然後关闭设备：
midiOutClose (hMidiOut) ;
使用低阶的MIDI输出API时，midiOutOpen、midiOutShortMsg、midiOutReset和midiOutClose是您需要的四个基础函式。
演奏BACHTOCC
现在让我们演奏一段音乐。BACHTOCC，如程式22-8所示，演奏了J. S. Bach著名的风琴演奏的D小调《Toccata and Fugue》中托卡塔部分的第一小节。
程式22-8  BACHTOCC
BACHTOCC.C
/*-----------------------------------------------------------------------------
BACHTOCC.C --   Bach Toccata in D Minor (First Bar)
(c) Charles Petzold, 1998
-----------------------------------------------------------------------------*/
#include <windows.h>
#define ID_TIMER    1
LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM) ;
TCHAR szAppName[] = TEXT ("BachTocc") ;
int WINAPI WinMain (HINSTANCE hInstance, HINSTANCE hPrevInstance,
PSTR szCmdLine, int iCmdShow)
{
HWND        hwnd ;
MSG         msg ;
WNDCLASS   wndclass ;
wndclass.style            = CS_HREDRAW | CS_VREDRAW ;
wndclass.lpfnWndProc      = WndProc ;
wndclass.cbClsExtra       = 0 ;
wndclass.cbWndExtra       = 0 ;
wndclass.hInstance        = hInstance ;
wndclass.hIcon            = LoadIcon (NULL, IDI_APPLICATION) ;
wndclass.hCursor          = LoadCursor (NULL, IDC_ARROW) ;
wndclass.hbrBackground   = GetStockObject (WHITE_BRUSH) ;
wndclass.lpszMenuName    = NULL ;
wndclass.lpszClassName   = szAppName ;
if (!RegisterClass (&wndclass))
{
MessageBox ( NULL, TEXT ("This program requires Windows NT!"),
szAppName, MB_ICONERROR) ;
return 0 ;
}
hwnd = CreateWindow ( szAppName, TEXT ("Bach Toccata in D Minor (First Bar)"),
WS_OVERLAPPEDWINDOW,
CW_USEDEFAULT, CW_USEDEFAULT,
CW_USEDEFAULT, CW_USEDEFAULT,
NULL, NULL, hInstance, NULL) ;
if (!hwnd)
return 0 ;
ShowWindow (hwnd, iCmdShow) ;
UpdateWindow (hwnd) ;
while (GetMessage (&msg, NULL, 0, 0))
{
TranslateMessage (&msg) ;
DispatchMessage (&msg) ;
}
return msg.wParam ;
}
DWORD MidiOutMessage ( HMIDIOUT hMidi, int iStatus, int iChannel,
int iData1,  int iData2)
{
DWORD dwMessage = iStatus | iChannel | (iData1 << 8) | (iData2 << 16) ;
return midiOutShortMsg (hMidi, dwMessage) ;
}
LRESULT CALLBACK WndProc ( HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
{
static struct
{
int iDur ;
int iNote [2] ;
}
noteseq [] = {  110, 69, 81,  110, 67, 79,  990, 69, 81,  220, -1, -1,
110, 67, 79,  110, 65, 77,  110, 64, 76,  110, 62, 74,
220, 61, 73,  440, 62, 74, 1980, -1, -1,  110, 57, 69,
110, 55, 67,  990, 57, 69,  220, -1, -1,  220, 52, 64,
220, 53, 65,  220, 49, 61,  440, 50, 62, 1980, -1, -1 } ;
static HMIDIOUT   hMidiOut ;
static int          iIndex ;
int                   i ;
switch (message)
{
case  WM_CREATE:
// Open MIDIMAPPER device
if (midiOutOpen (&hMidiOut, MIDIMAPPER, 0, 0, 0))
{
MessageBeep (MB_ICONEXCLAMATION) ;
MessageBox  ( hwnd, TEXT ("Cannot open MIDI output device!"),
szAppName, MB_ICONEXCLAMATION | MB_OK) ;
return -1 ;
}
// Send Program Change messages for "Church Organ"
MidiOutMessage (hMidiOut, 0xC0,  0, 19, 0) ;
MidiOutMessage (hMidiOut, 0xC0, 12, 19, 0) ;
SetTimer (hwnd, ID_TIMER, 1000, NULL) ;
return 0 ;
case  WM_TIMER:
// Loop for 2-note polyphony
for (i = 0 ; i < 2 ; i++)
{
// Note Off messages for previous note
if  (iIndex != 0 && noteseq[iIndex - 1].iNote!= -1)
{
MidiOutMessage (hMidiOut, 0x80,  0, noteseq[iIndex - 1].iNote, 0) ;
MidiOutMessage (hMidiOut, 0x80, 12, noteseq[iIndex - 1].iNote, 0) ;
}
// Note On messages for new note
if (iIndex != sizeof (noteseq) / sizeof (noteseq[0]) &&
noteseq[iIndex].iNote!= -1)
{
MidiOutMessage (hMidiOut, 0x90,  0, noteseq[iIndex].iNote, 127) ;
MidiOutMessage (hMidiOut, 0x90, 12,noteseq[iIndex].iNote, 127) ;
}
}
if (iIndex != sizeof (noteseq) / sizeof (noteseq[0]))
{
SetTimer (hwnd, ID_TIMER, noteseq[iIndex++].iDur - 1, NULL) ;
}
else
{
KillTimer (hwnd, ID_TIMER) ;
DestroyWindow (hwnd) ;
}
return 0 ;
case  WM_DESTROY:
midiOutReset (hMidiOut) ;
midiOutClose (hMidiOut) ;
PostQuitMessage (0) ;
return 0 ;
}
return DefWindowProc (hwnd, message, wParam, lParam) ;
}