VPF::USB сканер штрих кодов - Форум программистов

Alex

Дата 15.6.2005, 17:42 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

Нужна помощь, есть сканер 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.

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »