Всем привет!
Есть такая интересная программа "Barcode Harvester", с ее помощью можно проводить инвентаризацию товаров.
На смартфоне нащелкал штрихкоды, затем этот список со штрихкодами отсылается в программу "Barcode Harvester" на комптьютер, а уже оттуда, с помощью пункта "Клавиатурный вывод (имитирует работу физического сканера штрихкода)" можно все выгрузить в другую программу.
Так вот не могу перехватить этот самый "Клавиатурный вывод", если открыть блокнот и выводить туда, то "Barcode Harvester" тупо выкидывает туда штрихкоды, по одному в строчку, в принципе как и любой другой USB-сканер штрихкода.
Пробовал через KeyPreview и обработке KeyPress на форме, но тогда почему-то перехватывается только 1-ый символ штрихкода, остальные игнорируются.
Пробую через TApplicationEvents.OnMessage, но не могу понять как привести в человеческий вид, то, что мне прислали.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if (Msg.message = WM_KEYDOWN) or (Msg.message = WM_CHAR) then begin
if Msg.wParam <> 13 then
KeysBuffer := KeysBuffer + IntToStr(Msg.wParam)
else begin
memo1.Lines.Add(KeysBuffer);
end;
end;
end;
на выходе получается что попало
1.
23149231552314823153231552315523148231512314823153231482315323154
это результат штрихкода 1705770305056
