ＭＩＤＩ音源を使用して音を鳴らす。


サンプルを実行して鍵盤を押すとドレミファ♪・・・と音が鳴ります。



■使用するコンポーネント

• Shape1-13

■使用するAPI関数

• midiOutGetNumDevs（MIDI出力デバイス数を取得する）
• midiOutOpen(MIDIデバイスをオープンする)
• midiOutClose（MIDIデバイスをクローズする）
• midiOutShortMsg （MIDIデバイスから音を出す）

■その他　

• Uses節にMmSystemを追加

■今回のサンプルは説明するのが面倒なので（＾＾；大変なので、ダウンロード形式にしました。また、ソースコードはDelphi3.1で作成されています。