android播放midi api,MIDI API（一）编程方法

一、API声明

如果声明为Public则需要写到模块中，否则改为Private

Public Declare Function midiOutOpen Lib "winmm.dll" (lphMidiOut

As Long, _

ByVal

uDeviceID As Long, _

ByVal

dwCallback As Long, _

ByVal

dwInstance As Long, _

ByVal

dwFlags As Long) As Long

Public Declare Function midiOutClose Lib "winmm.dll" (ByVal

hMidiOut As Long) As Long

Public Declare Function midiOutShortMsg Lib "winmm.dll" (ByVal

hMidiOut As Long, ByVal dwMsg As Long) As Long

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As

Long)

这里面涉及到打开和关闭，分别是midiOutOpen和midiOutClose，必须先使用midiOutOpen然后才能调用midiOutShortMsg。调用后应立即调用midiOutClose关闭。否则，VB会重启。

Sleep的作用是控制时间。除外，还需要声明一个Long类型的变量作为midiOutOpen、midiOutClose、midiOutShortMsg函数的第一个参数。

二、实例

比如单击Command1