MIDI編曲

低階MIDI的API包括字首為midiIn和midiOut的函式,它們分別用於讀取來自外部控制器的MIDI序列和在內部或外部的合成器上播放音樂。儘管其名稱為「低階」,但使用這些函式時並不需要了解MIDI卡上的硬體介面。

頭檔案:mmsystem.h

庫 :winmm.lib

基本介紹

  • 中文名:MIDI編曲
  • 概述  :低階MIDI的API包括字
  • 函式:要在播放音樂的準備期
  • 函式原型:MMRESULTmidiOutOpe
呼叫midiOutOpen函式,函式原型:,向該設備傳送MIDI訊息--midiOutShortMsg,函式原型:,例如,重複演奏--midiOutReset,關閉設備--midiOutClose,使用小結,演奏BACHTOCC,

呼叫midiOutOpen函式

要在播放音樂的準備期間打開一個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訊息--midiOutShortMsg

一旦打開一個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訊息。

重複演奏--midiOutReset

當您一直演奏您想演奏的音樂時,您可以重置MIDI輸出設備以確保關閉所有的音符:
midiOutReset (hMidiOut) ;

關閉設備--midiOutClose

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) ;
}

相關詞條

熱門詞條

聯絡我們