I guess it is about time I contributed to this forum so here it is...
Nothing special but if you would want to find out what MIDI devices you have, here's one solution...
Code: Select all
#MAXPNAMELEN = 32
;
; *** For your reference... :)
; 6 Nov 2004 - akee (hey! visit me ... www.akee.com)
;
;Structure MIDIINCAPS
; wMid.w
; wPid.w
; vDriverVersion.l
; szPname.b[#MAXPNAMELEN]
;EndStructure
;
;Structure MIDIOUTCAPS
; wMid.w
; wPid.w
; vDriverVersion.l
; szPname.b[#MAXPNAMELEN]
; wTechnology.w
; wVoices.w
; wNotes.w
; wChannelMask.w
; dwSupport.l
;EndStructure
OpenConsole()
iNumDev.l = midiInGetNumDevs_()
PrintN(Str(iNumDev) + " MIDI in devices.")
PrintN("")
For around.l = 0 To iNumDev - 1
midiInGetDevCaps_(around, mic.MIDIINCAPS, SizeOf(MIDIINCAPS))
PrintN("- " + Str(around) + " " + PeekS(@mic\szPname[0], #MAXPNAMELEN))
Next
PrintN("")
PrintN("")
iNumDev.l = midiOutGetNumDevs_()
PrintN(Str(iNumDev) + " MIDI out devices.")
PrintN("")
For around.l = 0 To iNumDev - 1
midiOutGetDevCaps_(around, moc.MIDIOUTCAPS, SizeOf(MIDIOUTCAPS))
PrintN("- " + Str(around) + " " + PeekS(@moc\szPname[0], #MAXPNAMELEN))
Next
Input()
CloseConsole()
End
