Пример:
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)
Прочитать COM порт
Модератор: Дед Пахом
Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
- finsoftrz
- ✯ Ветеран ✯
- Сообщения: 5875
- Зарегистрирован: 06 Ноябрь 2014, 12:48
- Благодарил (а): 24 раза
- Поблагодарили: 86 раз
Прочитать COM порт
У меня POS система на кларионе.Игорь Столяров писал(а): 10 Март 2026, 11:43Есть такое. Но для POS систем, как правило, и свой софт. Там как бы идёт рабочее место кассира "всё включено".finsoftrz писал(а): 10 Март 2026, 10:30 то в специализированных POS системах работают только через com, клавиатурные сканеры там не используют
Что касается остального ... Вы давно устройство с COM портом видели ? А сам COM порт на компьютере ?
Я реально уже лет 5 не видел точно, а может и больше. Ни в ремонте, ни у пользователей.
Был такой большой период, где-то между 2005 - 2015 г., когда все занимались своим делом и прикладной
торговый софт работал лет по 5 без изменений. Сейчас каждый год законодательство всё ставит с ног на голову.
И если уж прикручивается, например, тот же ТС ПИоТ, то заменить эмуляцию COM порта на нативный HID проблем не составляет.
Хотя бы для простоты настройки у пользователей. Потому что настройка эмуляции, да ещё и в терминале - это нужно уметь.![]()
Я на чужие компьютеры редко смотрю, для этого есть специально обученные люди. Знаю точно, что в магазинах использовались старые компьютеры с физическими com портами. Даже специальное устройство разветвитель есть, которое позволяет подключать через один com порт несколько на одном компьютере. Для некоторых моделей ккм (конкретно, пиритов) была рекомендация подключать по возможности на физический com порт, так как подключение через usb было гораздо чувствительнее к внешним наводкам, а подключения по ip не было тогда.
В основном, конечно, используются эмуляторы usb-com. А чего их бояться? Там все очень просто, инсталлируешь соответствующий драйвер, смотришь, на какой com он сел, прописываешь в настройке программы. Дальше все работает.
C6/C12, ШВС, tps/btrieve.
