网站地图
MIDI编曲

低阶MIDI的API包括字首为midiIn和midiOut的函数,它们分别用于读取来自外部控制器的MIDI序列和在内部或外部的合成器上播放音乐。尽管其名称为「低阶」,但使用这些函数时并不需要了解MIDI卡上的硬体介面。

头文件:mmsystem.h

库 :winmm.lib

要在播放音乐的准备期间打开一个MIDI输出设备,可以呼叫midiOutOpen函数:

error = midiOutOpen (&hMidiOut, wDeviceID, dwCallBack,dwCallBackData, dwFlags) ;

MMRESULTmidiOutOpen(
  LPHMIDIOUTlphmo,
  UINT_PTRuDeviceID,
  DWORD_PTRdwCallback,
  DWORD_PTRdwCallbackInstance,
  DWORDdwFlags
  );

如果呼叫成功,则函式传回0,否则传回错误代码。如果参数设定正确,则常见的一种错误就是MIDI设备已被其他程式使用。

该函式的第一个参数是指向HMIDIOUT的指针,它接收后面用于MIDI输出函数的MIDI输出代号。

第二个参数是设备ID。要使用真实的MIDI设备,这个参数范围可以是从0到小于UINTmidiOutGetNumDevs(VOID);传回的数值。您还可以使用MIDIMAPPER,它在MMSYSTEM.H中定义为-1。

大多数情况下,函式的后三个参数设定为NULL或0。

一旦打开一个MIDI输出设备并获得了其代号,您就可以向该设备发送MIDI讯息。此时可以呼叫:

error = midiOutShortMsg (hMidiOut, dwMessage) ;

MMRESULT midiOutShortMsg( HMIDIOUThmo,DWORDdwMsg );

第一个参数是从midiOutOpen函式获得的代号。第二个参数是包装在32位元DWORD中的1位元组、2位元组或者3位元组的讯息。我在前面讨论过,MIDI讯息以状态位元组开始,後面是0、1或2位元组的资料。在dwMessage中,状态位元组是最不重要的,第一个资料位元组次之,第二个资料位元组再次之,最重要的位元组是0。

dwMessage =0x** + ((flip) * 0x100) + (volume * 0x10000) + channel;

message = 0x**| channels | (flip << 8) | (volume << 16) ;

0x**:可以是0x90,表示0通道某音符按下;可以是0xc0,表示0通道的乐器改变;

flip:

channel :一般设为0;可以是0~127的任意值;

例如,要在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,如程式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) ;

}


相关文章推荐:
MIDI通道 |
相关词汇词典