ruby - 帮助 Ruby FFI

Question

我只是想进行一些基本的 Windows 调用，以打印来自 MIDI 输入设备(键盘)的信息。这些调用似乎有效，但对 midiInOpen 和 midiInStart 的前两次调用返回 MMSYSERR_NOMEM 和 MMSYSERR_INVALHANDLE。我相信它与 ptr = FFI::MemoryPointer.new(:pointer) 有关，但我对 FFI 了解不够，无法弄清楚。任何帮助表示赞赏。

require 'ffi'

module MIDI; end

module MIDI::Input
  extend FFI::Library

  ffi_lib 'winmm'
  ffi_convention :stdcall

  callback :midiInProc, [ :pointer, :uint, :int, :int, :int  ], :void

  attach_function :midiInOpen, [ :pointer, :uint, :midiInProc, :int, :int ], :int
  attach_function :midiInClose, [ :long ], :int

  attach_function :midiInStart, [ :long ], :int
  attach_function :midiInStop, [ :long ], :int
  attach_function :midiInReset, [ :long ], :int

  MidiInProcCallback = Proc.new do |hmidiin, wmsg, dwintance, dwparam1, dwparam2|
    p hmidiin, wmsg, dwintance, dwparam1, dwparam2
  end
end

require 'pp'
ptr = FFI::MemoryPointer.new(:pointer)
p MIDI::Input.midiInOpen(ptr, 0, MIDI::Input::MidiInProcCallback, 0, 0)
p MIDI::Input.midiInStart(ptr.read_long)

trap("INT") do
  p MIDI::Input.midiInStart(ptr.read_long)
  p MIDI::Input.midiInClose(ptr.read_long)
  p ptr.free
  exit
end

loop {}

Answer 1

没有明确的答案，因为您的代码看起来大部分是正确的，但我怀疑是您传递给 midiInOpen() 的 dwFlags(最后一个参数)才是问题所在。看着http://msdn.microsoft.com/en-us/library/dd798458(v=vs.85).aspx , 它似乎需要非零。

尝试在 winmm 头文件中查找 CALLBACK_FUNCTION 的值，并在您的模块中声明一个类似的常量，然后将其用作标志参数。

在 http://powersdr-iq.googlecode.com/svn/trunk/Source/Console/midi.cs 处有一个 C# 包装器这可能是其他人使用 C# P/Invoke 接口(interface)包装相同 API 的有用示例。

您对 midiInOpen 和回调的签名略有错误(但不会导致此问题)。它们应该是:

callback :midiInProc, [ :pointer, :uint, :pointer, :pointer, :pointer  ], :void

attach_function :midiInOpen, [ :pointer, :uint, :midiInProc, :pointer, :int ], :int

即在 API 文档使用 DWORD_PTR 的地方使用 :pointer