Подключение USB сканера штрих кодов

[kreator]

По какой-то причине не запускается инсталлятор из этого архива. Попробовал на двух компах с Win7-64. Может, из-за 64-битности. Если кому надо, без инсталлятора -

COM2KBD.rar

(169.54 КБ) 751 скачивание

. Удивительно, вроде программа бесплатная, а не найдёшь в Инете. Оказалось, у клиента сканер NewLand, он в драйверах имеет переключалку "клавиатура/com-порт". Но меня это не спасёт, придумали авторизацию делать по табельному номеру, а он простой, с клавиатуры можно зайти под любым пользователем. Может предложить дактилоскопический сканер?

[kreator]

А кто-нибудь знает - как определить наличие сканера в системе и определить его параметры. Может сделать опрос COM-портов? Но что послать и что получить?

[Admin]

Сканер у меня никак не определяется. Просто по работе видно. В трее программа мигает иконкой, значит данные прочитаны и порт настроен верно. Обычные сканеры односторонние устройства. Они только пишут в компорт, не читают ничего и не настраиваются через порт.
Настраиваются они штрихкодами специальными.
Включаемые в разрыв клавиатуры тем более фиг проверишь.
Есть еще новые китайские с алиэкспресса, они подключаются по USB без эмуляции компорта. Они эмулируют USB клавиатуру по сути.
Их тоже х.з. как ты проверишь.

[kreator]

Речь идёт только о Компортовском сканере. Если драйвер установлен, то можно попробовать вот так:

Код: Выделить всё

if LOC:BarcodeScannerUseComPort
  if ~LOC:Port
    GetRegValues(REG_LOCAL_MACHINE, 'HARDWARE\DEVICEMAP\SERIALCOMM', LOC:RegQueue)
    loop i#=1 to records(LOC:RegQueue)
      get(LOC:RegQueue, i#)
      if LOC:RegQueue.LOC:RQValue[1:14]<>'\Device\Serial'
        LOC:Port = GetReg(REG_LOCAL_MACHINE, 'HARDWARE\DEVICEMAP\SERIALCOMM', clip(LOC:RegQueue.LOC:RQValue))
        break
      end
    end
    free(LOC:RegQueue)
    v" = GetReg(REG_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows NT\CurrentVersion\Ports', clip(LOC:Port)&':')
    i# = instring(',', v", 1, 1)
    if i#
      LOC:BaudRate = v"[1:(i#-1)]
    else
      LOC:BaudRate = 9600
    end
    case v"[i#+1]
      of 'n'
              LOC:Parity = 'Нет'
      of 'm'
              LOC:Parity = 'Маркер'
      of 's'
              LOC:Parity = 'Пробел'
      of 'o'
              LOC:Parity = 'Нечёт'
      of 'e'
              LOC:Parity = 'Чёт'
      else
              LOC:Parity = 'Нет'
    end
    i# += 2
    LOC:ByteSize = v"[i#+1]
    i# += 2
    LOC:StopBits = v"[(i#+1):len(clip(v"))]
  end 
end

Стопроцентной уверенности определения COM-порта нет, но параметры его - сто процентов. Пока статистику определения не собрал, да и вряд ли соберу. Хотелось бы дополнительной проверки порта. 1С-ники показали как у них. Есть кнопка типа "Тест сканера". Правда, подключить сканер не дали, без сканера кнопка сообщила об отсутствии нужного оборудования.

[Admin]

Если драйвер установлен

Насколько я понимаю, тут вы узнаете только то что ком порт присутствует в системе.

[Дед Пахом]

Мы пользуемся WinEvent, функциями Newport и ReadPort:

Код: Выделить всё

    ThisDevice.ThisPort = NewPort('Com' & ThisDevice.ComPort & ':' & ThisDevice.BaudRate & ',' & ThisDevice.Parity & ',' & ThisDevice.DataBits & ',' & ThisDevice.Stopbits,1024,1024)

    IF ThisDevice.ThisPort < 0
       BEEP(BEEP:SystemExclamation)
       MESSAGE('--> port open: ERROR '& ThisDevice.ComPort,'Barcode Error',icon:Hand)
       gUtils.Trace('--> port open: ERROR '& ThisDevice.ComPort)
    ELSE
       gUtils.Trace('--> port open: OK')
    END

[kreator]

Хорошо, но в системе может быть много COM-портов, в том числе виртуальных. И, допустим, они все "открываются". А вот как понять, что на данном порту висит нужный мне сканер, а не что-то ещё. Случай, когда к одному компу подключены несколько сканеров, не интересен. Пользователь всё равно должен сам сделать окончательный выбор порта и настроек. Но хотелось бы предоставить ему первичную информацию.

[Admin]

А вот как понять, что на данном порту висит нужный мне сканер, а не что-то ещё

Т.к. стандартно сканеры не определяются вижу один вариант:
1. Жмем кнопку определить порт.
2. Открыть все возможные порты.
3. Сканером сканируем штрихкод.
4. Если что то пришло из порта - это он.
Как то так.

[kreator]

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

[gopstop2007]

Поднимаю тему, так как появилась необходимость использовать несколько сканеров штрих-кода на сервере терминалов (win2012) по RDP, кто сталкивался?

[Игорь Столяров]

несколько сканеров штрих-кода на сервере терминалов

Не совсем понятна задача. Если сканеры подключены на рабочих станциях, работающих в терминальной сети - то никакой проблемы нет (подключение и работа сканера ничем не отличается от подключения мыши или клавиатуры). Такое же локальное устройство, все прекрасно работает ...

[kreator]

Наверно задача в том, можно ли увидеть с терминала подключённый к локальной станции сканер? И работать с ним? У меня была (и, наверно, остаётся) проблема увидеть камеру планшета на котором запущена сессия rdp. Полазил по Инету, ничего стоящего. Временно сделал синхронизацию с центральным сервером. Но ничто так не постоянно, как временное.

[gopstop2007]

Сканер ШК работал локально на компьютере в разрыв клавиатуры (виртуальная клавиатура), понадобилось добавить сканеров ШК в магазине для склада, поставили терминальный сервер (win2012).
Взяли планшет (windows 8 ), USB сканер для него подключили к терминалу (WI-FI) и звиздец, приплыли... Куда грести не знаю
Как передать со сканера на планшет данные или наоборот с сервера на планшет

[gopstop2007]

проблема увидеть камеру планшета на котором запущена сессия rdp

интересно зачем? VLC в помощь, лет 8 назад делал

[Игорь Столяров]

Взяли планшет (windows 8 ), USB сканер для него подключили к терминалу (WI-FI)

Т.е. сканер подключен совсем к другому компьютеру ? Наверно это сделать нельзя, сканер нельзя отдать в общий доступ как принтер.
Здесь нужно сканер подключать к планшету (т.е. непосредственно к рабочей станции на которой сканер используется).