oops you will probably need this also:
Import "portmidi28aug06/porttime/*.h"
Import "portmidi28aug06/porttime/porttime.c"
Import "portmidi28aug06/pm_common/*.h"
Import "portmidi28aug06/pm_common/portmidi.c"
Import "portmidi28aug06/porttime/ptwinmm.c"
Import "portmidi28aug06/pm_win/*.h"
Import "portmidi28aug06/pm_win/pmwin.c"
'Import "portmidi28aug06/pm_win/pmdll.c"
Import "portmidi28aug06/pm_win/pmwinmm.c"
Import "sysex.cpp"
Extern "C" ' sysex.cpp
Global OutputDevice:Int
Global InputDevice:Int
Global LoopbackInputDevice:Int
Global LoopbackOutputDevice:Int
Global midi_message:Byte[]
Function midi_open:Int()
Function midi_close:Int()
Function midi_test:Byte Ptr()
Function loopback_open:Int()
Function loopback_close:Int()
Function loopback_test:Int()
Function listener_open:Int()
Function listener_close:Int()
Function listener_test:Int()
Function get_midi_in()
Function get_midi_out()
Function sysex_receive_open:Int()
Function sysex_receive_get:Byte Ptr()
Function sysex_receive_close:Int()
Function diagnostic_send( message:Byte Ptr )
Function sysex_send( message:Byte Ptr )
Function sysex_send_receive:Byte Ptr( message:Byte Ptr )
Function sysex_initalise()
Function sysex_set_device:Int( device:Byte Ptr, dir:Int )
Function sysex_get_next_device:String( nxt:Int, dir:Int )
Function sysex_get_number_of_devices:Int()
Function sysex_finalise()
End Extern
then just call
LoopbackInputDevice = ??
LoopbackOutputDevice = ??
looback_open()
loopback_test()
looback_close()
this will at least give you confidence that it is all working OK.
Last edited 2010
|