Τελικά προσπαθησα να χρησιμοποιήσω το Mabry Software, έφτιαξα τον κωδικα αντεγραψα τα dll στο system. Ενα προβλημα υπάρχει μόνο: παρ'ολο οτι στελνω στην συσκευή που εχω επιλεξει σηματα midi η sub που δεχεται τα midi δεν τρεχει. Any suggestions?
Ο κώδικας:
Private Sub Command1_Click()
MIDIInput1.DeviceID = 1
MIDIInput1.Action = 1
MIDIInput1.Action = 4
Print MIDIInput1.State
'Print MIDIInput1.HMidiDevice
MIDIInput1.MaxSysexSize = 1000
End Sub
Private Sub Form_Unload(Cancel As Integer)
MIDIInput1.Action = 2
End Sub
Sub MIDIInput1_Message()
Dim InMessage As Integer
Dim InData1 As Integer
Dim InData2 As Integer
Print MIDIInput1.MessageCount, "midi in"
Do While MIDIInput1.MessageCount > 0
InMessage = MIDIInput1.Message
InData1 = MIDIInput1.Data1
InData2 = MIDIInput1.Data2
Print InData1
MIDIInput1.Action = MIDIIN_REMOVE
Loop
End Sub
Sub Midiiput1_Error()
Print "error"
End Sub