Hey
i've been trying to create a VB program that interfaces with my midi keyboard and i've got stuck
i'm trying to send a midi sysex message, but it doesn't work. i've confirmed that the actual message is corrected (via a 3rd party program) but i need it to do it within my program.
any help is GREATLY appreciated, cause i've been working on this for about 2 weeks!
i believe the problem is the Chr(&H0) is sending Null rather then 00Code:Sub SendLongMsg() Dim MyHdr As MIDIHDR Dim sysex As String sysex = Chr(&HF0) & Chr(&H41) & Chr(&H10) & Chr(&H0) & Chr(&H0) & Chr(&H27) & Chr(&H12) & Chr(&H1) & Chr(&H0) & Chr(&H0) & Chr(&H0) & Chr(&H0) & Chr(&H7E) & Chr(&HF7) MyHdr.dwBufferLength = Len(sysex) MyHdr.dwBytesRecorded = Len(sysex) MyHdr.lpData = sysex MyHdr.dwFlags = 0 MsgBox(sysex(0)) 'Nur zur Info wieviel Bytes die Sysex hat midiOutPrepareHeader(hMidiOUT, MyHdr, Len(MyHdr)) midiOutLongMsg(hMidiOUT, MyHdr, Len(MyHdr)) midiOutUnprepareHeader(hMidiOUT, MyHdr, Len(MyHdr)) Exit Sub




Reply With Quote