Dylan/MidiToMacro
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Only convert MIDI port names to UTF-8 if running in Unicode mode.

This commit is contained in:
Laurence Dougal Myers 2014-01-27 17:12:27 +11:00
parent 8581317cf4
commit 33da05e5e9
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Midi_under_the_hood.ahk
View File

@ -355,7 +355,9 @@ MidiInsList(ByRef NumPorts)
Continue
}
DllCall("RtlMoveMemory", Str,PortName, UInt,&MidiInCaps+8, UInt,PortNameSize) ; PortNameOffset 8, PortNameSize 32
if (A_IsUnicode) {
PortName := Strget(&PortName, "UTF-8")
}
List .= "|" PortName
}
Return SubStr(List,2)
@ -389,7 +391,9 @@ MidiInNameGet(uDeviceID = 0) { ; Get name of a midiOut device for a given ID
VarSetCapacity(PortName, PortNameSize)
DllCall("RtlMoveMemory", Str,PortName, Uint,&MidiInCaps+OffsettoPortName, Uint,PortNameSize)
if (A_IsUnicode) {
PortName := Strget(&PortName, "UTF-8")
}
Return PortName
}
@ -432,7 +436,9 @@ MidiOutsList(ByRef NumPorts)
Continue
}
DllCall("RtlMoveMemory", Str,PortName, UInt,&MidiOutCaps+8, UInt,PortNameSize) ; PortNameOffset 8, PortNameSize 32
if (A_IsUnicode) {
PortName := Strget(&PortName, "UTF-8")
}
List .= "|" PortName
}
Return SubStr(List,2)
@ -540,7 +546,9 @@ MidiOutNameGet(uDeviceID = 0) { ; Get name of a midiOut device for a given ID
VarSetCapacity(PortName, PortNameSize)
DllCall("RtlMoveMemory", Str,PortName, Uint,&MidiOutCaps+OffsettoPortName, Uint,PortNameSize)
if (A_IsUnicode) {
PortName := Strget(&PortName, "UTF-8")
}
Return PortName
}