Сканер штрих-кода в режиме эмуляции клавиатуры в COM порт

Именно на этот вопрос я не нашел готового ответа. Считаю, что в десктопном режиме со сканером штрих-кодов (считывателем магнитных карт), необходимо работать исключительно напрямую. Windows Raw Input позволяет легко отследить нажатие клавиш, включая идентификацию с какой именно клавиатуры было нажатие, но не может «проглотить» ввод с определенной клавиатуры. Это можно сделать при помощи SetWindowsHookEx, но в нем нельзя определить с какой клавиатуры пришел символ.

У Атол решение на базе анализа всего трафика нажатий клавиш. Если «драйвер» увидел стартовый перфикс (F7 например), то он начинает все съедать до окончания штрих-кода по суффиксу или таймауту ввода. На мой взгляд это костыль.

Единственное вменяемое решение использование драйвера уровня ядра для прямого доступа к клавиатуре. Именно HID клавиатуре.

Для решения этой проблемы использован libusb — кроссплатформенная библиотека для работы с HID устройствами USB. Сценарий прост:

Создаем пакет драйвера для HID устройства, работающего в режиме клавиатуры (inf-wizard.exe);
Устанавливаем полученный драйвер для HID устройства и драйвер libusb;
Начинаем прямую работу с HID устройством (например, используя LibUsbDotNet как я);

Придется освоить работу с USB и протокол работы клавиатуры, включая преобразование кодов клавиш в символы. Бонусом — перехват подключения/отключения любого USB оборудования, его быстрая готовность после подключения, кроссплатформенное решение и возможность использовать более дешевое оборудование (китайские сканеры от 15USD).

Теперь практика.

Подключаемся к устройству и иницируем поток считывания:

Dim c_usbdev As UsbDevice = <Найденное/подключенное устройство>
c_usbdevwhole = TryCast(c_usbdev, IUsbDevice)

If Not c_usbdevwhole.SetConfiguration(1) Then
	Throw New Exception("can't set configuration")
End If
If Not c_usbdevwhole.ClaimInterface(0) Then
	Throw New Exception("can't set interface")
End If

Dim th As New Threading.Thread(AddressOf DataLoop) With {.IsBackground = True, .Name = "HID Data loop: " & dec.Info.SerialString}
th.Start()

Dim c_usbdev As UsbDevice = <Найденное/подключенное устройство>

c_usbdevwhole = TryCast(c_usbdev, IUsbDevice)

If Not c_usbdevwhole.SetConfiguration(1) Then

Throw New Exception("can't set configuration")

End If

If Not c_usbdevwhole.ClaimInterface(0) Then

Throw New Exception("can't set interface")

End If

Dim th As New Threading.Thread(AddressOf DataLoop) With {.IsBackground = True, .Name = "HID Data loop: " & dec.Info.SerialString}

th.Start()

2. Поток считывания данных будет выглядеть так:

Private Sub DataLoop()
	Dim reader As UsbEndpointReader = c_usbdev.OpenEndpointReader(&H81)
	Dim readBuffer(7) As Byte
	Dim ec As ErrorCode = ErrorCode.None
	Dim buffer As String = ""
	While True
		Dim bytesRead As Integer
		ec = reader.Read(readBuffer, 2000, bytesRead)

		If ec = ErrorCode.Win32Error Or c_stop Then
			Exit While
		End If

		If bytesRead > 0 Then
			If readBuffer(2) > 0 Then
				Dim c As String = GetKeyData(readBuffer)
				If c = vbCr Then
					OnDataReceived(Me, buffer)
					buffer = Nothing
				Else
					buffer &= c
				End If
			End If
		End If
	End While
End Sub

Private Sub DataLoop()

Dim reader As UsbEndpointReader = c_usbdev.OpenEndpointReader(&H81)

Dim readBuffer(7) As Byte

Dim ec As ErrorCode = ErrorCode.None

Dim buffer As String = ""

While True

Dim bytesRead As Integer

ec = reader.Read(readBuffer, 2000, bytesRead)

If ec = ErrorCode.Win32Error Or c_stop Then

Exit While

End If

If bytesRead > 0 Then

If readBuffer(2) > 0 Then

Dim c As String = GetKeyData(readBuffer)

If c = vbCr Then

OnDataReceived(Me, buffer)

buffer = Nothing

Else

buffer &= c

End If

End While

End Sub

При получении символа возврата каретки (Enter) буфер передается в события OnDataReceived(data) до этого символы копятся в буфере нажатых клавиш (buffer).

3. Пример функции распознавания клавиш (делал под свои нужды, так что не полное):

Private Function GetKeyData(buff() As Byte) As String
	Dim res As String = ""
	Dim code As Byte = buff(2)

	If code >= &H04 And code <= &H1D Then
		res = Chr(97 + code - &H04)
	ElseIf code = &H27 Then
		res = "0"
	ElseIf code >= &H1E And code <= &H27 Then
		res = Chr(49 + code - &H1E)
	ElseIf code = &H28 Then
		res = vbCr
	ElseIf code = &H2D Then
		res = "-"
	Else
		res = "(" & Hex(code).PadLeft(2, "0") & ")"
	End If
	Return res.ToUpper
End Function

Private Function GetKeyData(buff() As Byte) As String

Dim res As String = ""

Dim code As Byte = buff(2)

If code >= &H04 And code <= &H1D Then

res = Chr(97 + code - &H04)

ElseIf code = &H27 Then

res = "0"

ElseIf code >= &H1E And code <= &H27 Then

res = Chr(49 + code - &H1E)

ElseIf code = &H28 Then

res = vbCr

ElseIf code = &H2D Then

res = "-"

Else

res = "(" & Hex(code).PadLeft(2, "0") & ")"

End If

Return res.ToUpper

End Function

Вполне достойная замена эмуляции COM порта. Все работает безупречно.

Добавить комментарий Отменить ответ