USB сканер, безпроводной. Вроде винда его распознала, но вот в TEXT ничего не вводит. Событие KeyPress ничего не замечает.... Есть знатоки этого процесса?

А. С.,

нет, не вводит.
Пробовал сопряжение провести - он доходит до 6-го шага и не пикает в знак успешного сопряжения.

Dima T,
Клиент дал мне для настройки сам сканер и папочку с руководством. Диск потеряли.
Попробовал - удалось сопряжение сделать, когда сканирую - на приемнике красная моргает, т.е. приемник получает код. Но вот дальше - тишина.

Сканер USB-COM. Т.е. должен эмулировать и садиться на CОM порт....

Dima T,

Еще обнаружил драйвер эмулятора СОМ3 из USB. Но как читать именно из этого порта?

В итоге пришлось сначала установить эмулятор (PL2303_Prolific_DriverInstaller_v1.6.0.exe), потом стало возможно читать в цикле, который взял с этого форума. Эмулятор садится на COM3, но это вполне можно изменить в управлении компьютером.

Но код вполне кривой. Посоветуйте...

*SET STEP ON
THISFORM.text1.Value='Начато сканирование. Для завершения сканируйте код завершения сканирования или нажмите выбор "Завершить"'
THISFORM.text1.Refresh()
THISFORM.text1.SetFocus()
THISFORM.BackColor=RGB(0,255,0)
THISFORM.Refresh()

NamePort = NameComPortsScan
str_read = ''
CntSc = 0

DO WHILE LEN(str_read) == 0
IF CntSc=0 AND MESSAGEBOX('Завершить сканирование',36,'Сканирование с порта'+NameComPortsScan) = 6
THISFORM.text1.Value='Сканирование завершено'
THISFORM.text1.Refresh()
ret = FCLOSE( hComPort)

RETURN
ENDIF


hComPort = FOPEN(NamePort)
IF hComPort<1
FOR ii = 1 TO 30
ret=FCLOSE(ii)
ENDFOR
hComPort = FOPEN(NamePort)
ENDIF


DoEvents
str_read = FREAD( hComPort,10)
WITH thisform
.LockScreen =.t.
WITH .edit1
.Value = .Value+ str_read +chr(13)+chr(10)
.Selstart = len(.value)
.setfocus()
ENDWITH
.LockScreen =.F.
this.setfocus()
ENDWITH

ret = FCLOSE( hComPort)

IF str_read='4823015907' && Сканируем код окончания
IsTop = 1
IfRet = 6
ELSE
IsTop = 0
* Если не получили кода завершения, то проверяем запрос пользователя
IF thisform.check1.Value=1
IfRet = MESSAGEBOX('Завершить',36,'Завершить?',1000)
ELSE
IfRet = 10
ENDIF
ENDIF

IF IfRet=6 OR IsTop = 1
str_read = 'jkekfskjslkf'
ELSE
str_read = ''

ENDIF

ENDDO

TRY
ret = FCLOSE( hComPort)
CATCH
ENDTRY

THISFORM.text1.Value='Сканирование завершено'