Решение проблемы со сканером штрих-кодов в Delphi XE6

Delphi , ОС и Железо , Сканер

При разработке приложения, которое использует сканер штрих-кодов, вы можете столкнуться с проблемой, когда сканер отображает только первый символ штрих-кода в поле TEdit. Хотя сканер работает нормально при тестировании в других приложениях, таких как MS Word или Notepad, в вашем Delphi-приложении он отображает только первую цифру. В этой статье мы рассмотрим, как решить эту проблему в Delphi XE6.

Причина проблемы

Проблема заключается в том, что вы используете событие OnChange для захвата значений сканера. Однако событие OnChange может вызываться несколько раз, что приводит к некорректному отображению полного штрих-кода.

Решение проблемы

Чтобы решить эту проблему, вместо события OnChange используйте событие OnKeyPress. Это гарантирует, что значение сканера будет захвачено только один раз, после того как сканер отправит возврат каретки (обычно после завершения сканирования).

Вот как это сделать:

1. Откройте форму в режиме дизайнера.
2. Выберите поле TEdit, в которое вы сканируете штрих-коды.
3. Перейдите на закладку "События" (Events) в панели свойств (Object Inspector).
4. Найдите событие OnKeyPress и дважды щелкните по нему, чтобы открыть редактор кода.
5. Введите следующий код:

procedure TfrmMain.edtWeightKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    ActiveWeight := StrToFloat(edtWeight.Text);
end;

Этот код проверяет, является ли нажатая клавиша клавишей ввода (Carriage Return, #13). Если да, то значение TEdit преобразуется в число и сохраняется в переменной ActiveWeight.

Обратите внимание, что для предотвращения ошибок при вводе пользователем (например, если пользователь нажимает Enter в поле TEdit без значения) вы должны использовать TryStrToFloat вместо StrToFloat.

Надеюсь, это поможет вам решить проблему со сканером штрих-кодов в вашем Delphi-приложении.

Создано по материалам из источника по ссылке.

Статья посвящена решению проблемы, когда сканер штрих-кодов в Delphi XE6 отображает только первый символ кода в поле TEdit, и предлагает использовать событие OnKeyPress вместо OnChange для правильного захвата значения сканера.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Сканер ::