handcanner an USB

[Bummi]

Ich finde nicht die Zeit alles zu erklären, geht:


Du benötigst JWAWinUser

ladbar unter http://sourceforge.net/projects/jedi-apilib/files/

ein Fetzen Code aus einer unserer Anwendungen...

hoffe Du kommst klar

Delphi-Quellcode:

procedure TMyForm.RawInputMessage(var Message: TMessage);
var
  dwSize : UINT;
  raw : RAWINPUT;
  buffer: array[0..255] of char;
  buffersize:dword;
  result:dword;
begin
  dwSize := sizeof(RAWINPUT);
  GetRawInputData(Message.lParam, RID_INPUT, @raw, dwSize, sizeof(RAWINPUTHEADER));

  if (raw.header.dwType = RIM_TYPEKEYBOARD) then begin
    buffersize := 256;
    result := GetRawInputDeviceInfo(raw.header.hDevice, RIDI_DEVICENAME, @buffer, buffersize);
    if (result > 0) and (FScannerKey = buffer) then
      CaptureAmountForArticle(Chr(raw.keyboard.VKey));
  end;
end;

[khh]

danke euch, ich schau es mir durch

[Sir Rufo]

Hab da im Netz auch etwas (mehr) Code zu gefunden, basiert aber auf dem gleichen Ansatz mit Erläuterung

http://meinews.niuz.biz/wie-t60980.html