Add functionality for most buttons
This commit is contained in:
558
MIDI/Midi_under_the_hood.ahk
Normal file
558
MIDI/Midi_under_the_hood.ahk
Normal file
@@ -0,0 +1,558 @@
|
||||
|
||||
; !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! no edit below here, unless you know what you are doing.
|
||||
|
||||
;*************************************************
|
||||
;* MIDI UNDER THE HOOD
|
||||
;* DO NOT EDIT IN HERE, unless you know what
|
||||
;* what you are doing!
|
||||
;*************************************************
|
||||
|
||||
;****************************************************************************************************************
|
||||
;******************************************** midi "under the hood" *********************************************
|
||||
/*
|
||||
This part is meant to take care of the "under the hood" midi input and output selection and save selection to an ini file.
|
||||
Hopefully it simplifies usage for others out here trying to do things with midi and ahk.
|
||||
|
||||
* use it as an include.
|
||||
|
||||
The code here was taken/modified from the work by TomB/Lazslo on Midi Output
|
||||
http://www.autohotkey.com/forum/viewtopic.php?t=18711&highlight=midi+output
|
||||
|
||||
Orbik's Midi input thread
|
||||
http://www.autohotkey.com/forum/topic30715.html
|
||||
This method does NOT use the midi_in.dll, it makes direct calls to the winmm.dll
|
||||
|
||||
Many different people took part in the creation of this file.
|
||||
|
||||
; Last edited 6/17/2010 11:30 AM by genmce
|
||||
|
||||
*/
|
||||
|
||||
;*************************************************
|
||||
;* GET PORTS LIST PARSE
|
||||
;*************************************************
|
||||
MidiPortRefresh: ; get the list of ports
|
||||
|
||||
MIlist := MidiInsList(NumPorts)
|
||||
Loop Parse, MIlist, |
|
||||
{
|
||||
}
|
||||
TheChoice := MidiInDevice + 1
|
||||
|
||||
MOlist := MidiOutsList(NumPorts2)
|
||||
Loop Parse, MOlist, |
|
||||
{
|
||||
}
|
||||
TheChoice2 := MidiOutDevice + 1
|
||||
|
||||
return
|
||||
|
||||
;*************************************************
|
||||
;* LOAD UP SOME STUFF.
|
||||
;*************************************************
|
||||
;-----------------------------------------------------------------
|
||||
|
||||
ReadIni() ; also set up the tray Menu
|
||||
{
|
||||
Menu, tray, add, MidiSet ; set midi ports tray item
|
||||
Menu, tray, add, ResetAll ; Delete the ini file for testing --------------------------------
|
||||
menu, tray, add, MidiMon
|
||||
global MidiInDevice, MidiOutDevice, version ; version var is set at the beginning.
|
||||
IfExist, %version%.ini
|
||||
{
|
||||
IniRead, MidiInDevice, %version%.ini, Settings, MidiInDevice , %MidiInDevice% ; read the midi In port from ini file
|
||||
IniRead, MidiOutDevice, %version%.ini, Settings, MidiOutDevice , %MidiOutDevice% ; read the midi out port from ini file
|
||||
}
|
||||
Else ; no ini exists and this is either the first run or reset settings.
|
||||
{
|
||||
MsgBox, 1, No ini file found, Select midi ports?
|
||||
IfMsgBox, Cancel
|
||||
ExitApp
|
||||
IfMsgBox, yes
|
||||
gosub, midiset
|
||||
;WriteIni()
|
||||
}
|
||||
}
|
||||
;*************************************************
|
||||
;* WRITE TO INI FILE FUNCTION
|
||||
;*************************************************
|
||||
|
||||
;CALLED TO UPDATE INI WHENEVER SAVED PARAMETERS CHANGE
|
||||
WriteIni()
|
||||
{
|
||||
global MidiInDevice, MidiOutDevice, version
|
||||
|
||||
IfNotExist, %version%io.ini ; if no ini
|
||||
FileAppend,, %version%io.ini ; make one with the following entries.
|
||||
IniWrite, %MidiInDevice%, %version%.ini, Settings, MidiInDevice
|
||||
IniWrite, %MidiOutDevice%, %version%.ini, Settings, MidiOutDevice
|
||||
}
|
||||
|
||||
;*************************************************
|
||||
;* PORT TESTING
|
||||
;*************************************************
|
||||
;------------ port testing to make sure selected midi port is valid --------------------------------
|
||||
|
||||
port_test(numports,numports2) ; confirm selected ports exist ; CLEAN THIS UP STILL
|
||||
|
||||
{
|
||||
global midiInDevice, midiOutDevice, midiok
|
||||
|
||||
; ----- In port selection test based on numports
|
||||
If MidiInDevice not Between 0 and %numports%
|
||||
{
|
||||
MidiIn := 0 ; this var is just to show if there is an error - set if the ports are valid = 1, invalid = 0
|
||||
;MsgBox, 0, , midi in port Error ; (this is left only for testing)
|
||||
If (MidiInDevice = "") ; if there is no midi in device
|
||||
MidiInerr = Midi In Port EMPTY. ; set this var = error message
|
||||
;MsgBox, 0, , midi in port EMPTY
|
||||
If (midiInDevice > %numports%) ; if greater than the number of ports on the system.
|
||||
MidiInnerr = Midi In Port Invalid. ; set this error message
|
||||
;MsgBox, 0, , midi in port out of range
|
||||
}
|
||||
Else
|
||||
{
|
||||
MidiIn := 1 ; setting var to non-error state or valid
|
||||
}
|
||||
; ----- out port selection test based on numports2
|
||||
If MidiOutDevice not Between 0 and %numports2%
|
||||
{
|
||||
MidiOut := 0 ; set var to 0 as Error state.
|
||||
If (MidiOutDevice = "") ; if blank
|
||||
MidiOuterr = Midi Out Port EMPTY. ; set this error message
|
||||
;MsgBox, 0, , midi o port EMPTY
|
||||
If (midiOutDevice > %numports2%) ; if greater than number of availble ports
|
||||
MidiOuterr = Midi Out Port Out Invalid. ; set this error message
|
||||
;MsgBox, 0, , midi out port out of range
|
||||
}
|
||||
Else
|
||||
{
|
||||
MidiOut := 1 ;set var to 1 as valid state.
|
||||
}
|
||||
; ---- test to see if ports valid, if either invalid load the gui to select.
|
||||
;midicheck(MCUin,MCUout)
|
||||
If (%MidiIn% = 0) Or (%MidiOut% = 0)
|
||||
{
|
||||
MsgBox, 49, Midi Port Error!,%MidiInerr%`n%MidiOuterr%`n`nLaunch Midi Port Selection!
|
||||
IfMsgBox, Cancel
|
||||
ExitApp
|
||||
midiok = 0 ; Not sure if this is really needed now....
|
||||
Gosub, MidiSet ;Gui, show Midi Port Selection
|
||||
}
|
||||
Else
|
||||
{
|
||||
midiok = 1
|
||||
Return ; DO NOTHING - PERHAPS DO THE NOT TEST INSTEAD ABOVE.
|
||||
}
|
||||
}
|
||||
Return
|
||||
|
||||
;*************************************************
|
||||
;* MIDI SET GUI
|
||||
;*************************************************
|
||||
; ------------------ end of port testing ---------------------------
|
||||
|
||||
|
||||
MidiSet: ; midi port selection gui
|
||||
|
||||
; ------------- MIDI INPUT SELECTION -----------------------
|
||||
Gui, 6: Destroy
|
||||
Gui, 2: Destroy
|
||||
Gui, 3: Destroy
|
||||
Gui, 4: Destroy
|
||||
Gui, 4: +LastFound +AlwaysOnTop +Caption +ToolWindow ;-SysMenu
|
||||
Gui, 4: Font, s12
|
||||
Gui, 4: add, text, x10 y10 w300 cmaroon, Select Midi Ports. ; Text title
|
||||
Gui, 4: Font, s8
|
||||
Gui, 4: Add, Text, x10 y+10 w175 Center , Midi In Port ;Just text label
|
||||
Gui, 4: font, s8
|
||||
; midi ins list box
|
||||
Gui, 4: Add, ListBox, x10 w200 h100 Choose%TheChoice% vMidiInPort gDoneInChange AltSubmit, %MiList% ; --- midi in listing of ports
|
||||
;Gui, Add, DropDownList, x10 w200 h120 Choose%TheChoice% vMidiInPort gDoneInChange altsubmit, %MiList% ; ( you may prefer this style, may need tweak)
|
||||
|
||||
; --------------- MidiOutSet ---------------------
|
||||
Gui, 4: Add, TEXT, x220 y40 w175 Center, Midi Out Port ; gDoneOutChange
|
||||
; midi outlist box
|
||||
Gui, 4: Add, ListBox, x220 y62 w200 h100 Choose%TheChoice2% vMidiOutPort gDoneOutChange AltSubmit, %MoList% ; --- midi out listing
|
||||
;Gui, Add, DropDownList, x220 y97 w200 h120 Choose%TheChoice2% vMidiOutPort gDoneOutChange altsubmit , %MoList%
|
||||
Gui, 4: add, Button, x10 w205 gSet_Done, Done - Reload script.
|
||||
Gui, 4: add, Button, xp+205 w205 gCancel, Cancel
|
||||
;gui, 4: add, checkbox, x10 y+10 vNotShown gDontShow, Do Not Show at startup.
|
||||
;IfEqual, NotShown, 1
|
||||
;guicontrol, 4:, NotShown, 1
|
||||
Gui, 4: show , , %version% Midi Port Selection ; main window title and command to show it.
|
||||
|
||||
Return
|
||||
|
||||
;-----------------gui done change stuff - see label in both gui listbox line
|
||||
|
||||
|
||||
|
||||
|
||||
;44444444444444444444444444 NEED TO EDIT THIS TO REFLECT CHANGES IN GENMCE PRIOR TO SEND OUT
|
||||
|
||||
DoneInChange:
|
||||
gui +lastfound
|
||||
Gui, Submit, NoHide
|
||||
Gui, Flash
|
||||
Gui, 4: Submit, NoHide
|
||||
Gui, 4: Flash
|
||||
If %MidiInPort%
|
||||
UDPort:= MidiInPort - 1, MidiInDevice:= UDPort ; probably a much better way do this, I took this from JimF's qwmidi without out editing much.... it does work same with doneoutchange below.
|
||||
GuiControl, 4:, UDPort, %MidiIndevice%
|
||||
WriteIni()
|
||||
;MsgBox, 32, , midi in device = %MidiInDevice%`nmidiinport = %MidiInPort%`nport = %port%`ndevice= %device% `n UDPort = %UDport% ; only for testing
|
||||
Return
|
||||
|
||||
DoneOutChange:
|
||||
gui +lastfound
|
||||
Gui, Submit, NoHide
|
||||
Gui, Flash
|
||||
|
||||
Gui, 4: Submit, NoHide
|
||||
Gui, 4: Flash
|
||||
If %MidiOutPort%
|
||||
UDPort2:= MidiOutPort - 1 , MidiOutDevice:= UDPort2
|
||||
GuiControl, 4: , UDPort2, %MidiOutdevice%
|
||||
WriteIni()
|
||||
;Gui, Destroy
|
||||
Return
|
||||
|
||||
;------------------------ end of the doneout change stuff.
|
||||
|
||||
Set_Done: ; aka reload program, called from midi selection gui
|
||||
Gui, 3: Destroy
|
||||
Gui, 4: Destroy
|
||||
sleep, 100
|
||||
Reload
|
||||
Return
|
||||
|
||||
Cancel:
|
||||
Gui, Destroy
|
||||
Gui, 2: Destroy
|
||||
Gui, 3: Destroy
|
||||
Gui, 4: Destroy
|
||||
Gui, 5: Destroy
|
||||
Return
|
||||
|
||||
;*************************************************
|
||||
;* MIDI OUTPUT - UNDER THE HOOD
|
||||
;*************************************************
|
||||
; ********************** Midi output detection
|
||||
|
||||
MidiOut: ; Function to load new settings from midi out menu item
|
||||
OpenCloseMidiAPI()
|
||||
h_midiout := midiOutOpen(MidiOutDevice) ; OUTPUT PORT 1 SEE BELOW FOR PORT 2
|
||||
return
|
||||
|
||||
ResetAll: ; for development only, leaving this in for a program reset if needed by user
|
||||
MsgBox, 33, %version% - Reset All?, This will delete ALL settings`, and restart this program!
|
||||
IfMsgBox, OK
|
||||
{
|
||||
FileDelete, %version%.ini ; delete the ini file to reset ports, probably a better way to do this ...
|
||||
Reload ; restart the app.
|
||||
}
|
||||
IfMsgBox, Cancel
|
||||
Return
|
||||
|
||||
GuiClose: ; on x exit app
|
||||
Suspend, Permit ; allow Exit to work Paused. I just added this yesterday 3.16.09 Can now quit when Paused.
|
||||
|
||||
MsgBox, 4, Exit %version%, Exit %version% %ver%? ;
|
||||
IfMsgBox No
|
||||
Return
|
||||
Else IfMsgBox Yes
|
||||
midiOutClose(h_midiout)
|
||||
|
||||
Gui, 6: Destroy
|
||||
Gui, 2: Destroy
|
||||
Gui, 3: Destroy
|
||||
Gui, 4: Destroy
|
||||
Gui, 5: Destroy
|
||||
gui, 7: destroy
|
||||
;gui,
|
||||
Sleep 100
|
||||
;winclose, Midi_in_2 ;close the midi in 2 ahk file
|
||||
ExitApp
|
||||
|
||||
;*************************************************
|
||||
;* MIDI INPUT / OUTPUT UNDER THE HOOD
|
||||
;*************************************************
|
||||
|
||||
;############################################## MIDI LIB from orbik and lazslo#############
|
||||
;-------- orbiks midi input code --------------
|
||||
; Set up midi input and callback_window based on the ini file above.
|
||||
; This code copied from ahk forum Orbik's post on midi input
|
||||
|
||||
; nothing below here to edit.
|
||||
|
||||
; =============== midi in =====================
|
||||
|
||||
Midiin_go:
|
||||
DeviceID := MidiInDevice ; midiindevice from IniRead above assigned to deviceid
|
||||
CALLBACK_WINDOW := 0x10000 ; from orbiks code for midi input
|
||||
|
||||
Gui, +LastFound ; set up the window for midi data to arrive.
|
||||
hWnd := WinExist() ;MsgBox, 32, , line 176 - mcu-input is := %MidiInDevice% , 3 ; this is just a test to show midi device selection
|
||||
|
||||
hMidiIn =
|
||||
VarSetCapacity(hMidiIn, 4, 0)
|
||||
result := DllCall("winmm.dll\midiInOpen", UInt,&hMidiIn, UInt,DeviceID, UInt,hWnd, UInt,0, UInt,CALLBACK_WINDOW, "UInt")
|
||||
If result
|
||||
{
|
||||
MsgBox, Error, midiInOpen Returned %result%`n
|
||||
;GoSub, sub_exit
|
||||
}
|
||||
|
||||
hMidiIn := NumGet(hMidiIn) ; because midiInOpen writes the value in 32 bit binary Number, AHK stores it as a string
|
||||
result := DllCall("winmm.dll\midiInStart", UInt,hMidiIn)
|
||||
If result
|
||||
{
|
||||
MsgBox, Error, midiInStart Returned %result%`nRight Click on the Tray Icon - Left click on MidiSet to select valid midi_in port.
|
||||
;GoSub, sub_exit
|
||||
}
|
||||
|
||||
OpenCloseMidiAPI()
|
||||
|
||||
; ----- the OnMessage listeners ----
|
||||
|
||||
; #define MM_MIM_OPEN 0x3C1 /* MIDI input */
|
||||
; #define MM_MIM_CLOSE 0x3C2
|
||||
; #define MM_MIM_DATA 0x3C3
|
||||
; #define MM_MIM_LONGDATA 0x3C4
|
||||
; #define MM_MIM_ERROR 0x3C5
|
||||
; #define MM_MIM_LONGERROR 0x3C6
|
||||
|
||||
OnMessage(0x3C1, "MidiMsgDetect") ; calling the function MidiMsgDetect in get_midi_in.ahk
|
||||
OnMessage(0x3C2, "MidiMsgDetect")
|
||||
OnMessage(0x3C3, "MidiMsgDetect")
|
||||
OnMessage(0x3C4, "MidiMsgDetect")
|
||||
OnMessage(0x3C5, "MidiMsgDetect")
|
||||
OnMessage(0x3C6, "MidiMsgDetect")
|
||||
|
||||
Return
|
||||
|
||||
;*************************************************
|
||||
;* MIDI IN PORT HANDLING
|
||||
;*************************************************
|
||||
|
||||
;--- MIDI INS LIST FUNCTIONS - port handling -----
|
||||
|
||||
MidiInsList(ByRef NumPorts)
|
||||
{ ; Returns a "|"-separated list of midi output devices
|
||||
local List, MidiInCaps, PortName, result
|
||||
VarSetCapacity(MidiInCaps, 50, 0)
|
||||
VarSetCapacity(PortName, 32) ; PortNameSize 32
|
||||
|
||||
NumPorts := DllCall("winmm.dll\midiInGetNumDevs") ; #midi output devices on system, First device ID = 0
|
||||
|
||||
Loop %NumPorts%
|
||||
{
|
||||
result := DllCall("winmm.dll\midiInGetDevCapsA", UInt,A_Index-1, UInt,&MidiInCaps, UInt,50, UInt)
|
||||
If (result OR ErrorLevel) {
|
||||
List .= "|-Error-"
|
||||
Continue
|
||||
}
|
||||
DllCall("RtlMoveMemory", Str,PortName, UInt,&MidiInCaps+8, UInt,32) ; PortNameOffset 8, PortNameSize 32
|
||||
List .= "|" PortName
|
||||
}
|
||||
Return SubStr(List,2)
|
||||
}
|
||||
|
||||
MidiInGetNumDevs() { ; Get number of midi output devices on system, first device has an ID of 0
|
||||
Return DllCall("winmm.dll\midiInGetNumDevs")
|
||||
}
|
||||
MidiInNameGet(uDeviceID = 0) { ; Get name of a midiOut device for a given ID
|
||||
|
||||
;MIDIOUTCAPS struct
|
||||
; WORD wMid;
|
||||
; WORD wPid;
|
||||
; MMVERSION vDriverVersion;
|
||||
; CHAR szPname[MAXPNAMELEN];
|
||||
; WORD wTechnology;
|
||||
; WORD wVoices;
|
||||
; WORD wNotes;
|
||||
; WORD wChannelMask;
|
||||
; DWORD dwSupport;
|
||||
|
||||
VarSetCapacity(MidiInCaps, 50, 0) ; allows for szPname to be 32 bytes
|
||||
OffsettoPortName := 8, PortNameSize := 32
|
||||
result := DllCall("winmm.dll\midiInGetDevCapsA", UInt,uDeviceID, UInt,&MidiInCaps, UInt,50, UInt)
|
||||
|
||||
If (result OR ErrorLevel) {
|
||||
MsgBox Error %result% (ErrorLevel = %ErrorLevel%) in retrieving the name of midi Input %uDeviceID%
|
||||
Return -1
|
||||
}
|
||||
|
||||
VarSetCapacity(PortName, PortNameSize)
|
||||
DllCall("RtlMoveMemory", Str,PortName, Uint,&MidiInCaps+OffsettoPortName, Uint,PortNameSize)
|
||||
Return PortName
|
||||
}
|
||||
|
||||
MidiInsEnumerate() { ; Returns number of midi output devices, creates global array MidiOutPortName with their names
|
||||
local NumPorts, PortID
|
||||
MidiInPortName =
|
||||
NumPorts := MidiInGetNumDevs()
|
||||
|
||||
Loop %NumPorts% {
|
||||
PortID := A_Index -1
|
||||
MidiInPortName%PortID% := MidiInNameGet(PortID)
|
||||
}
|
||||
Return NumPorts
|
||||
}
|
||||
|
||||
;*************************************************
|
||||
;* MIDI OUT LIBRARY FROM lASZLO/TOMB
|
||||
; Modified by JimF - removed long message
|
||||
; handling as well as combining status byte with ch
|
||||
; see commented out section below if you want to change it back
|
||||
;*************************************************
|
||||
; =============== end of midi selection stuff
|
||||
|
||||
|
||||
MidiOutsList(ByRef NumPorts)
|
||||
{ ; Returns a "|"-separated list of midi output devices
|
||||
local List, MidiOutCaps, PortName, result
|
||||
VarSetCapacity(MidiOutCaps, 50, 0)
|
||||
VarSetCapacity(PortName, 32) ; PortNameSize 32
|
||||
|
||||
NumPorts := DllCall("winmm.dll\midiOutGetNumDevs") ; #midi output devices on system, First device ID = 0
|
||||
|
||||
Loop %NumPorts%
|
||||
{
|
||||
result := DllCall("winmm.dll\midiOutGetDevCapsA", UInt,A_Index-1, UInt,&MidiOutCaps, UInt,50, UInt)
|
||||
If (result OR ErrorLevel)
|
||||
{
|
||||
List .= "|-Error-"
|
||||
Continue
|
||||
}
|
||||
DllCall("RtlMoveMemory", Str,PortName, UInt,&MidiOutCaps+8, UInt,32) ; PortNameOffset 8, PortNameSize 32
|
||||
List .= "|" PortName
|
||||
}
|
||||
Return SubStr(List,2)
|
||||
}
|
||||
;---------------------midiOut from TomB and Lazslo and JimF --------------------------------
|
||||
|
||||
;THATS THE END OF MY STUFF (JimF) THE REST ID WHAT LASZLo AND PAXOPHONE WERE USING ALREADY
|
||||
;AHK FUNCTIONS FOR MIDI OUTPUT - calling winmm.dll
|
||||
;http://msdn.microsoft.com/library/default.asp?url=/library/en-us/multimed/htm/_win32_multimedia_functions.asp
|
||||
;Derived from Midi.ahk dated 29 August 2008 - streaming support removed - (JimF)
|
||||
|
||||
|
||||
OpenCloseMidiAPI() { ; at the beginning to load, at the end to unload winmm.dll
|
||||
static hModule
|
||||
If hModule
|
||||
DllCall("FreeLibrary", UInt,hModule), hModule := ""
|
||||
If (0 = hModule := DllCall("LoadLibrary",Str,"winmm.dll")) {
|
||||
MsgBox Cannot load libray winmm.dll
|
||||
Exit
|
||||
}
|
||||
}
|
||||
|
||||
;FUNCTIONS FOR SENDING SHORT MESSAGES
|
||||
|
||||
midiOutOpen(uDeviceID = 0) { ; Open midi port for sending individual midi messages --> handle
|
||||
strh_midiout = 0000
|
||||
|
||||
result := DllCall("winmm.dll\midiOutOpen", UInt,&strh_midiout, UInt,uDeviceID, UInt,0, UInt,0, UInt,0, UInt)
|
||||
If (result or ErrorLevel) {
|
||||
MsgBox There was an Error opening the midi port.`nError code %result%`nErrorLevel = %ErrorLevel%
|
||||
Return -1
|
||||
}
|
||||
Return UInt@(&strh_midiout)
|
||||
}
|
||||
|
||||
midiOutShortMsg(h_midiout, MidiStatus, Param1, Param2) { ;Channel,
|
||||
;h_midiout: handle to midi output device returned by midiOutOpen
|
||||
;EventType, Channel combined -> MidiStatus byte: http://www.harmony-central.com/MIDI/Doc/table1.html
|
||||
;Param3 should be 0 for PChange, ChanAT, or Wheel
|
||||
;Wheel events: entire Wheel value in Param2 - the function splits it into two bytes
|
||||
/*
|
||||
If (EventType = "NoteOn" OR EventType = "N1")
|
||||
MidiStatus := 143 + Channel
|
||||
Else If (EventType = "NoteOff" OR EventType = "N0")
|
||||
MidiStatus := 127 + Channel
|
||||
Else If (EventType = "CC")
|
||||
MidiStatus := 175 + Channel
|
||||
Else If (EventType = "PolyAT" OR EventType = "PA")
|
||||
MidiStatus := 159 + Channel
|
||||
Else If (EventType = "ChanAT" OR EventType = "AT")
|
||||
MidiStatus := 207 + Channel
|
||||
Else If (EventType = "PChange" OR EventType = "PC")
|
||||
MidiStatus := 191 + Channel
|
||||
Else If (EventType = "Wheel" OR EventType = "W") {
|
||||
MidiStatus := 223 + Channel
|
||||
Param2 := Param1 >> 8 ; MSB of wheel value
|
||||
Param1 := Param1 & 0x00FF ; strip MSB
|
||||
}
|
||||
*/
|
||||
result := DllCall("winmm.dll\midiOutShortMsg", UInt,h_midiout, UInt, MidiStatus|(Param1<<8)|(Param2<<16), UInt)
|
||||
If (result or ErrorLevel) {
|
||||
MsgBox There was an Error Sending the midi event: (%result%`, %ErrorLevel%)
|
||||
Return -1
|
||||
}
|
||||
}
|
||||
|
||||
midiOutClose(h_midiout) { ; Close MidiOutput
|
||||
Loop 9 {
|
||||
result := DllCall("winmm.dll\midiOutClose", UInt,h_midiout)
|
||||
If !(result or ErrorLevel)
|
||||
Return
|
||||
Sleep 250
|
||||
}
|
||||
MsgBox Error in closing the midi output port. There may still be midi events being Processed.
|
||||
Return -1
|
||||
}
|
||||
|
||||
;UTILITY FUNCTIONS
|
||||
MidiOutGetNumDevs() { ; Get number of midi output devices on system, first device has an ID of 0
|
||||
Return DllCall("winmm.dll\midiOutGetNumDevs")
|
||||
}
|
||||
|
||||
MidiOutNameGet(uDeviceID = 0) { ; Get name of a midiOut device for a given ID
|
||||
|
||||
;MIDIOUTCAPS struct
|
||||
; WORD wMid;
|
||||
; WORD wPid;
|
||||
; MMVERSION vDriverVersion;
|
||||
; CHAR szPname[MAXPNAMELEN];
|
||||
; WORD wTechnology;
|
||||
; WORD wVoices;
|
||||
; WORD wNotes;
|
||||
; WORD wChannelMask;
|
||||
; DWORD dwSupport;
|
||||
|
||||
VarSetCapacity(MidiOutCaps, 50, 0) ; allows for szPname to be 32 bytes
|
||||
OffsettoPortName := 8, PortNameSize := 32
|
||||
result := DllCall("winmm.dll\midiOutGetDevCapsA", UInt,uDeviceID, UInt,&MidiOutCaps, UInt,50, UInt)
|
||||
|
||||
If (result OR ErrorLevel) {
|
||||
MsgBox Error %result% (ErrorLevel = %ErrorLevel%) in retrieving the name of midi output %uDeviceID%
|
||||
Return -1
|
||||
}
|
||||
|
||||
VarSetCapacity(PortName, PortNameSize)
|
||||
DllCall("RtlMoveMemory", Str,PortName, Uint,&MidiOutCaps+OffsettoPortName, Uint,PortNameSize)
|
||||
Return PortName
|
||||
}
|
||||
|
||||
MidiOutsEnumerate() { ; Returns number of midi output devices, creates global array MidiOutPortName with their names
|
||||
local NumPorts, PortID
|
||||
MidiOutPortName =
|
||||
NumPorts := MidiOutGetNumDevs()
|
||||
|
||||
Loop %NumPorts% {
|
||||
PortID := A_Index -1
|
||||
MidiOutPortName%PortID% := MidiOutNameGet(PortID)
|
||||
}
|
||||
Return NumPorts
|
||||
}
|
||||
|
||||
UInt@(ptr) {
|
||||
Return *ptr | *(ptr+1) << 8 | *(ptr+2) << 16 | *(ptr+3) << 24
|
||||
}
|
||||
|
||||
PokeInt(p_value, p_address) { ; Windows 2000 and later
|
||||
DllCall("ntdll\RtlFillMemoryUlong", UInt,p_address, UInt,4, UInt,p_value)
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user