| 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
 
 
 |