Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
29 мар 2024, 09:58

Подключение USB сканера штрихкодов для терминального режима работы

Автор mohock, 09 сен 2010, 11:09

0 Пользователей и 1 гость просматривают эту тему.

mohock

Есть такая интересная проблема. Присутствует USB-сканер штрихкодов непонятного производителя, без драйверов. Терминальный доступ.
Клиент сканирует штрихкод - на сервак все прекрасно передается. Но есть одно но. После отсканивания отсутствует последняя команда сканера - нажатие клавиши Enter.
Задача - как эмуляцию нажатия Enter сделать средствами 1С (Предложения переключить сканер на СОМ-порт и всякие другие манипуляции со
сканером не рассматриваются). В общем способна ли 1С вместо сканера отработать Enter?
Штрихкод вводится в обычное поле ввода. Увы событий подходящих в этом поле я не нашел.

mohock

Однако я нашел такую штуку:

Ввод = Новый COMОбъект("Wscript.shell");
Ввод.SendKeys("{ENTER}");

Эта конструкция работает!
Проверял на калькуляторе:

Ввод = Новый COMОбъект("Wscript.shell");
Ввод.Run("calc");
Ввод.AppActivate("Calculator");

Калькулятор прекрасно вызывается. (Кстати так можно любое приложение вызвать)

Так куда этот код можно примостырить чтоб сканер работал как надо и пользователь не нажимал Enter?

skyther

Можно подключить обработчик ожидания, а из него проверять заполненность поля ввода, crc, наличие нового штрихкода...

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск