RawInput WinAPI：GetRawInputBuffer（）和消息处理

问题描述 投票：2回答：1

为什么我正在尝试从条形码扫描仪获取输入到我的（可视）应用程序。我想忽略其他设备的输入并获得输入，即使应用程序失去了焦点。我发现在SO以及其他地方推荐使用RawInput API来实现此目的。

我一直专注于GetRawInputBuffer()来读取输入，因为我希望每秒进行约2次扫描，并且每次扫描都会触发约700个事件（按下键/按下键）（假设扫描仪充当键盘） 。该文档提到“对于可能产生大量原始输入的设备”使用GetRawInputBuffer（）。我不知道以上条件是否真的合格...

问题我已经成功接收到输入数据-但是我必须做错了某些事情（可能是根本上的问题...），因为我找不到能够获得一致结果的好方法。原始数据似乎很快“消失”，而且我经常无法获得任何数据。关于GetRawInputBuffer（），也有类似的现有问题，但到目前为止，它们只是让我感到困惑...一些注释：

（编辑）问题我应该如何/何时（在可视化应用程序中）正确调用GetRawInputBuffer（）以获取一致的结果，例如自上次通话以来all个关键事件？或者：事件如何/为什么在呼叫之间被“丢弃”，我该如何防止呢？

代码下面的代码是一个64位控制台应用程序，展示了到目前为止我尝试过的3种方法以及它们的问题（取消注释/注释掉方法，如主要begin-end.-block的代码注释中所述）。

  • 方法＃1：输入发生时的Sleep（），然后立即读取缓冲区。我从the docs.microsoft.com sample code获得了Sleep（）的想法-效果很好，因为它似乎获得了所有输入，但是我认为这不切实际，因为我的应用程序需要保持响应速度。
  • 方法2：使用GetMessage（）-通常，它不会产生任何数据，除非您快速键入（例如mash键），即使如此，它也可能是输入的50％，顶部。
  • 方法＃3：使用PeekMessage（）和PM_NOREMOVE-这似乎可以非常一致地获取输入，但会使线程最大化。 
program readrawbuffer;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  WinAPI.Windows,
  WinAPI.Messages,
  System.Classes,
  System.SysUtils,
  URawInput in '..\URawInput.pas';       // from: https://github.com/lhengen/RawInput

type
  TGetInput = class
  strict private
    fRawInputStructureSize: UINT;
    fRawInputHeaderSize: UINT;
    fRawInputBufferSize: Cardinal;
    fRawInputDevice: RAWINPUTDEVICE;
    fRawInputBuffer: PRAWINPUT;
    procedure RawInputWndProc(var aMsg: TMessage);
  public
    fRawInputWindowHnd: HWND;
    function ReadInputBuffer(): String;
    constructor Create();
    destructor Destroy(); override;
  end;

  constructor TGetInput.Create();
  begin
    inherited;
    fRawInputStructureSize := SizeOf(RAWINPUT);
    fRawInputHeaderSize := SizeOf(RAWINPUTHEADER);
    // create buffer
    fRawInputBufferSize := 40 * 16;
    GetMem(fRawInputBuffer, fRawInputBufferSize);
    // create handle and register for raw (keyboard) input
    fRawInputWindowHnd := AllocateHWnd(RawInputWndProc);
    fRawInputDevice.usUsagePage := $1;
    fRawInputDevice.usUsage := $6;
    fRawInputDevice.dwFlags := RIDEV_INPUTSINK;
    fRawInputDevice.hwndTarget := fRawInputWindowHnd;
    if RegisterRawInputDevices(@fRawInputDevice, 1, SizeOf(RAWINPUTDEVICE)) then
      WriteLn('device(s) registered; start typing...')
    else
      WriteLn('error registering device(s): ' + GetLastError().ToString());
  end;

  destructor TGetInput.Destroy();
  begin
    if Assigned(fRawInputBuffer) then
      FreeMem(fRawInputBuffer);

    DeallocateHWnd(fRawInputWindowHnd);
    inherited;
  end;

  function TGetInput.ReadInputBuffer(): String;
  var
    pcbSize, pcbSizeT: UINT;
    numberOfStructs: UINT;
    pRI: PRAWINPUT;

  begin
    Result := String.Empty;
    pcbSize := 0;
    pcbSizeT := 0;

    numberOfStructs := GetRawInputBuffer(nil, pcbSize, fRawInputHeaderSize);
    if (numberOfStructs = 0) then
    begin
      // docs.microsoft.com says for 'nil'-call: "minimum required buffer, in bytes, is returned in *pcbSize"
      // though probably redundant, I guess it can't hurt to check:
      if (fRawInputBufferSize < pcbSize) then
      begin
        fRawInputBufferSize := pcbSize * 16;
        ReallocMem(fRawInputBuffer, fRawInputBufferSize);
      end;

      repeat
        pcbSizeT := fRawInputBufferSize;
        numberOfStructs := GetRawInputBuffer(fRawInputBuffer, pcbSizeT, fRawInputHeaderSize);
        if ((numberOfStructs > 0) and (numberOfStructs < 900000)) then
        begin
          {$POINTERMATH ON}
          pRI := fRawInputBuffer;

          for var i := 0 to (numberOfStructs - 1) do
          begin
            if (pRI.keyboard.Flags = RI_KEY_MAKE) then
              Result := Result + pRI.keyboard.VKey.ToHexString() + #32;

            pRI := NEXTRAWINPUTBLOCK(pRI);
          end;
          {$POINTERMATH OFF}
          // DefRawInputProc();   // doesn't do anything? http://blog.airesoft.co.uk/2014/04/defrawinputproc-rastinating-away/
        end
        else
          Break;
      until False;

    end
  end;

  procedure TGetInput.RawInputWndProc(var aMsg: TMessage);
  begin
    // comment-out case block for Sleep() approach; leave last DefWindowProc() line
    // leave case block for GetMessage() / PeekMessage() -approaches; comment-out last DefWindowProc() line
//    case aMsg.Msg of
//      WM_INPUT:
//        begin
//          Write(ReadInputBuffer(), '-');
//          aMsg.Result := 0;
//        end
//    else
//      aMsg.Result := DefWindowProc(fRawInputWindowHnd, aMsg.Msg, aMsg.WParam, aMsg.LParam);
//    end;

    // comment-out for GetMessage() / PeekMessage() -approaches
    aMsg.Result := DefWindowProc(fRawInputWindowHnd, aMsg.Msg, aMsg.WParam, aMsg.LParam);
  end;


var
  getInput: TGetInput;
  lpMsg: tagMSG;

begin
  getInput := TGetInput.Create();


////////////////////////////////////////////////////////////////////////////////
// approach #1: Sleep()
// >> comment-out other aproaches; comment-out case block in RawInputWndProc(), leave last DefWindowProc() line

  repeat
    WriteLn('sleeping, type now...');
    Sleep(3000);
    WriteLn('VKeys read: ', getInput.ReadInputBuffer());
  until False;


////////////////////////////////////////////////////////////////////////////////
// approach #2: GetMessage()
// >> comment-out other approaches; comment-out last DefWindowProc() line in RawInputWndProc(), leave case block

//  repeat
//    // docs.microsoft.com: "Use WM_INPUT here and in wMsgFilterMax to specify only the WM_INPUT messages."
//    if GetMessage(lpMsg, getInput.fRawInputWindowHnd, WM_INPUT, WM_INPUT) then
//      DispatchMessage(lpMsg);
//  until False;


////////////////////////////////////////////////////////////////////////////////
// approach #3: PeekMessage()
// >> comment-out other approaches; comment-out last DefWindowProc() line in RawInputWndProc(), leave case block

//  repeat
//    if PeekMessage(lpMsg, getInput.fRawInputWindowHnd, WM_INPUT, WM_INPUT, PM_NOREMOVE) then
//      DispatchMessage(lpMsg);
//
//    if PeekMessage(lpMsg, 0, 0, 0, PM_REMOVE) then
//      DispatchMessage(lpMsg);
//  until False;

  getInput.Free();
end.
delphi messaging raw-input
1个回答
0
投票

我已采用Sertac Akyuz的建议，使用Sleep()方法（方法1）在后台线程中读取缓冲区，到目前为止，它似乎工作得很好。但是，我仅在“最小”应用程序中对此进行了测试，该应用程序除了读取缓冲区并将结果写入TMemo之外没有什么其他作用。我仍然不敢相信这是使用GetRawInputBuffer()的“预期”方式，因此请不要真的将其视为“已回答”。

一些说明：

  • 我正在使用TThreadedQueue<T>推送/弹出项目。在Daniele Teti的Delphi Cookbook中的“食谱”之一中提出了这一建议，甚至提到了类似的情况作为可能的应用。
  • 要读取缓冲区，将使用问题中TGetInput类的几乎1：1的副本。
  • 我用TStopWatch看了读取缓冲区需要多长时间（遍历包含的所有记录/结构，读取VKey，将它们转换为十六进制字符串并连接结果）以及出队这些项目，似乎远远超过了我的测试扫描仪传输数据的速度（读取缓冲区最多需要3ms，显然...）。尽管有成百上千的“按键”，但结果似乎是完整的。这可能表明在此使用情况下，GetRawInputBuffer()是“过大杀伤力”。
最新问题
© www.soinside.com 2019 - 2024. All rights reserved.