Нужна помощь, есть сканер USB штрих кодов и нужно сделать прогу чтоб сканировать шк заносить в базу, но не нашел ниче по поводу работы с USB сканером.
Он работает также как клавиатура. Тебе отправляется WM_CHAR с ASCII кодом цифры. Когда все цифры отправлены посылается завершающий #13.
| Код |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
private
procedure WMChar(var Message: TWMChar); message WM_CHAR;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
const
Buff: String = '';
{ TForm1 }
procedure TForm1.WMChar(var Message: TWMChar);
begin
inherited;
if Message.CharCode <> 13 then
Buff := Buff + Chr(Message.CharCode)
else
begin
ShowMessage(Buff);
Buff := '';
end;
end;
end.
|
|