Прочитать COM порт

Clarion, Clarion 7

Модератор: Дед Пахом

Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
George
Активист
Сообщения: 113
Зарегистрирован: 04 Август 2009, 10:48
Благодарил (а): 2 раза

Прочитать COM порт

Сообщение George »

Пример:
PROGRAM
INCLUDE('VOYAGER.INC'),ONCE
MAP
END

GLO:Buffer STRING(200)
GLO:ReadData STRING(200)

Window WINDOW('Scanner'),AT(,,251,63),FONT('MS Sans Serif',8,,FONT:regular),CENTER,TIMER(10),GRAY,DOUBLE
PROMPT('Чтение данных из порта COM3'),AT(9,6),USE(?Prompt:ReadData)
ENTRY(@s32),AT(9,18,50,12),USE(ReadData")
ENTRY(@s200),AT(9,38,233,12),USE(GLO:ReadData)
END

SC Scanner
!===============================================================================================================================
CODE
OPEN(Window)
ACCEPT
CASE EVENT()
OF EVENT:OpenWindow
SC.Init('COM3',GLO:Buffer)
IF SC.OpenPort()
MESSAGE('Компорт используется другой программой!')
POST(EVENT:CloseWindow)
END
OF EVENT:Timer
IF CLIP(GLO:Buffer) <> ''
GLO:ReadData = GLO:Buffer
DISPLAY()
CLEAR(GLO:Buffer)
END
!IF CLIPBOARD() <> ''
! GLO:ReadData = CLIPBOARD()
! DISPLAY()
! SETCLIPBOARD('')
!END
END
END
SC.Kill
CLOSE(Window)
Аватара пользователя
finsoftrz
✯ Ветеран ✯
Сообщения: 5875
Зарегистрирован: 06 Ноябрь 2014, 12:48
Благодарил (а): 24 раза
Поблагодарили: 86 раз

Прочитать COM порт

Сообщение finsoftrz »

Игорь Столяров писал(а): 10 Март 2026, 11:43
finsoftrz писал(а): 10 Март 2026, 10:30 то в специализированных POS системах работают только через com, клавиатурные сканеры там не используют
Есть такое. Но для POS систем, как правило, и свой софт. Там как бы идёт рабочее место кассира "всё включено".
Что касается остального ... Вы давно устройство с COM портом видели ? А сам COM порт на компьютере ?
Я реально уже лет 5 не видел точно, а может и больше. Ни в ремонте, ни у пользователей.

Был такой большой период, где-то между 2005 - 2015 г., когда все занимались своим делом и прикладной
торговый софт работал лет по 5 без изменений. Сейчас каждый год законодательство всё ставит с ног на голову.
И если уж прикручивается, например, тот же ТС ПИоТ, то заменить эмуляцию COM порта на нативный HID проблем не составляет.
Хотя бы для простоты настройки у пользователей. Потому что настройка эмуляции, да ещё и в терминале - это нужно уметь. 😎
У меня POS система на кларионе. :-) Она же может работать и в оконном режиме со стандартной клавиатурой и мышью, а также в режиме с сенсорным монитором, как задано в настройке.
Я на чужие компьютеры редко смотрю, для этого есть специально обученные люди. Знаю точно, что в магазинах использовались старые компьютеры с физическими com портами. Даже специальное устройство разветвитель есть, которое позволяет подключать через один com порт несколько на одном компьютере. Для некоторых моделей ккм (конкретно, пиритов) была рекомендация подключать по возможности на физический com порт, так как подключение через usb было гораздо чувствительнее к внешним наводкам, а подключения по ip не было тогда.
В основном, конечно, используются эмуляторы usb-com. А чего их бояться? Там все очень просто, инсталлируешь соответствующий драйвер, смотришь, на какой com он сел, прописываешь в настройке программы. Дальше все работает.
C6/C12, ШВС, tps/btrieve.
Ответить