AutoHotkey Community

h_midiin := "0000" ; Important!

result := DllCall("winmm.dll\midiInOpen"
               , UInt, &h_midiin
         , UInt, 0 ;; uDeviceID
         , UInt, 0
            , UInt, 0
           , UInt, 0 ;; dwFlags - set to CALLBACK_NULL (0)
          , "UInt")

midi_in_handle_uint0 := *(&h_midiin + 0)
midi_in_handle_uint1 := *(&h_midiin + 1)
midi_in_handle_uint2 := *(&h_midiin + 2)
midi_in_handle_uint3 := *(&h_midiin + 3)

midi_in_handle_uint := midi_in_handle_uint0 * 16777216 + midi_in_handle_uint1 * 65536 + midi_in_handle_uint2 * 256 + midi_in_handle_uint3

   result := DllCall("winmm.dll\midiInClose"
               , UInt, midi_in_handle_uint)

midi_in_handle_uint3 := *(&h_midiin + 0)
midi_in_handle_uint2 := *(&h_midiin + 1)
midi_in_handle_uint1 := *(&h_midiin + 2)
midi_in_handle_uint0 := *(&h_midiin + 3)

midi_in_handle_uint := midi_in_handle_uint0 * 16777216 + midi_in_handle_uint1 * 65536 + midi_in_handle_uint2 * 256 + midi_in_handle_uint3

;12:32 AM 7/26/2007


;I am going to work on developing a midi in support in this function


MidiIn()
{

   skip_if = 0

   ; first we need to open the MidiIn driver
/*
MMRESULT midiOutOpen(
  LPHMIDIOUT lphmo,             
  UINT_PTR   uDeviceID,         
  DWORD_PTR  dwCallback,         
  DWORD_PTR  dwCallbackInstance,
  DWORD      dwFlags             
);
*/


/*
MMRESULT midiInOpen(
  LPHMIDIIN lphMidiIn,         
  UINT_PTR  uDeviceID,         
  DWORD_PTR dwCallback,         
  DWORD_PTR dwCallbackInstance,
  DWORD     dwFlags             
);
*/
   ;; initializing variables

   h_midiin := "0000" ; Important!
   dw_call_back_uint := "0000" ; probably unnecessary

   ;; registering the "MidiInProc" callback function
   ;; see http://msdn2.microsoft.com/en-us/library/ms711612.aspx

   dw_call_back_uint := RegisterCallback("ProcessMidiIn")
   msgbox after using RegisterCallback dw_call_back_uint = %dw_call_back_uint%


   ;; trying to open midi in device below
   
   msgbox we begin by opening midi in device
   result := DllCall("winmm.dll\midiInOpen"
               , UInt, &h_midiin
         , UInt, 0 ;; uDeviceID
         , UInt, dw_call_back_uint
            , UInt, 0
           , UInt, 196608 ;; dwFlags - set to CALLBACK_NULL (0)
              ;; 196608 = CALLBACK_FUNCTION flag
         
          , "UInt")
   ;; at this point my Callback Function gets called
   msgbox midiInOpen returned `n`n%result% `n`nif 0, everything is fine - it opened

   ;; midiInOpen can return the following:
   ;;  MMSYSERR_ALLOCATED The specified resource is already allocated. ---->MMSYSERR_BASE + 4
   ;;  MMSYSERR_BADDEVICEID The specified device identifier is out of range. --->(MMSYSERR_BASE + 2)
   ;;  MMSYSERR_INVALFLAG The flags specified by dwFlags are invalid. --->(MMSYSERR_BASE + 10)
   ;;  MMSYSERR_INVALPARAM The specified pointer or structure is invalid. -->(MMSYSERR_BASE + 11)
   ;;  MMSYSERR_NOMEM The system is unable to allocate or lock memory.    --->(MMSYSERR_BASE + 7) 

   if (result != 0)
   {
      ;; we don't want to continue with this
      skip_if = 1
      msgbox returning from midi_in() since there was a problem
   }

   if (skip_if == 0)
   {
      ;; msgbox h_midiin handle now points to something `n%h_midiin%
      ;; we should translate this to an actual number.
      ;; so, the convoluted translation code follows
      ;; it needs to be cleaned up someday

      midi_in_handle_uint3 := *(&h_midiin + 0)
      midi_in_handle_uint2 := *(&h_midiin + 1)
      midi_in_handle_uint1 := *(&h_midiin + 2)
      midi_in_handle_uint0 := *(&h_midiin + 3)
   
      midi_in_handle_uint := midi_in_handle_uint0 * 16777216 + midi_in_handle_uint1 * 65536 + midi_in_handle_uint2 * 256 + midi_in_handle_uint3
      msgbox h_midiout as uint = %midi_in_handle_uint%   

      ;; now we need to "listen" for incoming midi in messages
      ;; but how?
      ;; what is this MidiInProc "callback" function?
      ;; How does this all work?
   
      ;; also we need to "start" that midi in device, after
       ;; we open it, I think.

      ; now we try to "start midi in device"
      
      msgbox We're going to start midi in device now
      result := DllCall("winmm.dll\midiInStart"
                  , UInt, midi_in_handle_uint)

      ;; at this point the Callback Function   
      ;; is called. 
      msgbox midiInStart returned %result%

      msgbox We're now going to Reset midi in device
      result := DllCall("winmm.dll\midiInReset"
                  , UInt, midi_in_handle_uint)   
   
      ;; at this point something goes wrong, because
      ;; we don't get to the "MsgBox" line below
      ;; .... why?
      ;; Where is it stuck?
      ;; ...
      ;; Oh, I see.
      ;; as long as I don't display a msgbox
      ;; in response to the Yamaha Sync message (0xFE)
      ;; that gets transmitted every 300ms from my keyboard.
      ;;
      ;; So, now that I have added a little "if != 254" in my
      ;; ProcessMidiIn callback function, everything is fine.
      ;; The function runs as it should.
      ;; However, if, while the msgbox for
      ;; "midiInStart returned ..." is up on screen, and I press
      ;; some note on the keyboard, then ProcessMidiIn
      ;; is called anyway, and the MsgBox there comes up
      ;; and the same "infinite loop" stuck behavior is observed.
      ;;
      ;; Ok, lets try to change it to a tooltip
      ;; and see if this changes anything.
      ;; Obviously, MsgBox is not a problem when we open
      ;; the device at the top.
      ;; No, Changing to Tooltip didn't make a difference.
      ;;
      ;; Obviously, as events arrive to Midi In port, they   
      ;; get stored in some buffer, I guess and, perhaps,
      ;; I need to somehow get at that buffer?
      ;;
      ;; I am still not sure where exactly my program is    
      ;; getting stuck.
      ;; So far, as long as I don't press any keys
      ;; it opens and closes just fine.
      ;; But if I do press some keys (adding them to this buffer
      ;; somewhere) I don't get past midiInReset call


      msgbox midiInReset returned %result%

      loop
      {
         ;; I am probably going to have to use this loop at some point, but for now I have break here to skip out of it
         
         break   
      }

      ; msgbox we are now going to close Midi In device through midiInClose call



      msgbox now stopping midi in device      
      result := DllCall("winmm.dll\midiInStop"
                  , UInt, midi_in_handle_uint)
      msgbox midiInStop returned %result%

      msgbox now closing midi in device
      result := DllCall("winmm.dll\midiInClose"
                  , UInt, midi_in_handle_uint)
      ;; Possible returns
      ;; MMSYSERR_NOERROR (0)
      ;; MIDIERR_STILLPLAYING -> MIDIERR_BASE + 1
      ;; MMSYSERR_INVALHANDLE -> MMSYSERR_BASE + 5
      ;; MMSYSERR_NOMEM -> MMSYSERR_BASE + 7   

      sleep, 100
      msgbox midiInClose returned`n`n%result% `n `n(if 0 - it means everything is fine.  It closed.)
   


   }

   msgbox returning from midi_in()
   return
}

ProcessMidiIn(h_midi_in, wMsg, dwInstance, dwParam1, dwParam2)
{
   ; I have no idea yet how to use this function

   ;; if dwParam1 = 254, i.e. 0xFE
   ;; it is this YAMAHA sync signal,
   ;; which we need to ignore.
   
   if (dwParam1 != 254)
   {
      Tooltip,
      (Ltrim Join
      ProcessMidiIn function is being called`n
      h_midi_in = %h_midi_in%`n
      wMsg = %wMsg%`n
      dwInstance = %dwInstance%`n
      dwParam1 = %dwParam1%`n
      dwParam2 = %dwParam2%`n
   
      )
   }
   
   return
}

ProcessMidiIn(h_midi_in, wMsg, dwInstance, dwParam1, dwParam2)
{
   global dwParam1_holder
   ; I have no idea yet how to use this function

   ;; if dwParam1 = 254, i.e. 0xFE
   ;; it is this YAMAHA sync signal,
   ;; which we need to ignore.
   
   if (dwParam1 != 254)
   {
   
      dwParam1_holder = %dwParam1_holder% %dwParam1%
   }
      
   return
}

      loop
      {
         
         Input, single_key, L1
         if (single_key == "a")
         {
            msgbox %dwParam1_holder%
         }
         if (single_key == "s")
         {
             break   
         }
      }

l_word := dwParam1 & 0xffff