Страница 1 из 1
Прочитать COM порт
Добавлено: 08 Март 2026, 11:07
Андрей
Всех приветствую !
Возникла задача взять данные с COM порта. Изучив форум, вижу что топики старые и что-то у меня ничего не получается. Да собственно как получится, если нет в системе никакого WinComm.dll ?
Module('WinComm.dll')
CreateFile(*CString lpFileName, ULONG DesiredAccess, ULONG ShareMode, |
ULONG SecurityAttributes=0, ULONG CreationDisposition, ULONG Flags, |
UnSigned TemplateFile=0),UnSigned, PASCAL,RAW,Name('CreateFileA'),DLL(TRUE)
Не поделится ли кто примером работающего кода ?
Прочитать COM порт
Добавлено: 08 Март 2026, 12:01
finsoftrz
Заодно отправка смс через модем.
Прочитать COM порт
Добавлено: 08 Март 2026, 16:52
Андрей
Спасибо !
Еще бы парочку строчек кода примера, мне только чтение
Начало типа такого как понял
FsComL.Init('COM3')
FsComL.SetUpString('baud=9600')
А само чтение - как там использовать эту функцию и проверять буфер порта ?
FsComL.Read(l:buf,?,?)
Прочитать COM порт
Добавлено: 08 Март 2026, 17:57
finsoftrz
Подключение да, примерно так. Лучше вариант, который поддерживает более одной цифры в номере com порта. После запуска процедуры инициализация класса:
Код: Выделить всё
if FsComScan.Init('\\.\COM' & PAR:DevScanCom)=0
message('Ошибка подключения сканера: ' & clip(FsComScan.LastError))
else
if FsComScan.SetUpString('baud=9600 parity=N data=8 stop=1')=0
message('Ошибка при установке параметров порта: ' & clip(FsComScan.LastError))
.
.
Перед завершением процедуры:
Для чтения надо на окно повесить таймер. В событии обработки EVENT:Timer прописать код чтения, типа такого:
Код: Выделить всё
window{PROP:TIMER}=0
Loc:BarCode=''
loop
if FsComScan.Read(Loc:Buffer,1,Loc:BytesRead)=0
break
.
if Loc:BytesRead=0
break
.
if Loc:Buffer[1] = '<10>'
cycle
.
if Loc:Buffer[1] = '<02>'
cycle
.
if Loc:Buffer[1] = '<03>'
cycle
.
if Loc:Buffer[1] = '<13>' !завершение штрих-кода
break
.
Loc:BarCode = clip(Loc:BarCode) & Loc:Buffer[1]
.
if Loc:BarCode<>''
loc:shtrih=Loc:BarCode
.
window{PROP:TIMER}=100
В примере переменные
Код: Выделить всё
loc:shtrih string(150)
Loc:BarCode string(150)
Loc:Buffer cstring(255)
Loc:BytesRead ulong
Прочитать COM порт
Добавлено: 08 Март 2026, 22:42
Андрей
Благодарю !
Но что-то у меня не получается, не пойму как так.
Объявляю экземпляр хоть в локальных, хоть в глобальных
FsComL FsCom
Проверка подключения проходит. Однако когда добавляю основную обработку в таймере, получаю ошибку
на
if FsComL.Read(Loc:Buffer,1,Loc:BytesRead)=0
Unknown function label и No matching prototype available
Прочитать COM порт
Добавлено: 09 Март 2026, 7:39
finsoftrz
Прочитать COM порт
Добавлено: 10 Март 2026, 1:19
kreator
Андрей, я тоже использую подобный класс. Уже не помню кто автор. Только советовали делать так. Делаю функцию на основе этого класса. Вызываю её в отдельном потоке при запуске программы. Эта функция постоянно читает порт и записывает данные в глобальную очередь. А там, где надо, читаем данные из очереди. И если успешно, то обрабатываем и записи из очереди удаляем.
В общем, если не получиться, могу предоставить мой вариант.
Прочитать COM порт
Добавлено: 10 Март 2026, 1:59
Admin
В свое время вообще перешел не отдельную программу которая читала из порта данные в файл, а уже из файла программы подхватывали.
Из плюсов, все программы могли одновременно работать + на терминальном сервере при логине под одним именем тоже работало так как файлы делились по номеру сессии. В ту же программу добавил хоткей на вызов окошка для ввода штрихкода, на случай когда сканер сломан или он клавиатурный и не предусмотрена его обработка в каком то месте программ.
Прочитать COM порт
Добавлено: 10 Март 2026, 8:35
finsoftrz
Есть еще утилита (использует тот же класс работы с com), которая вешается в трей, читает из com порта и результат кладет в клавиатурный буфер. В результате в приложении можно работать одинаково как с клавиатурным сканером, так и со сканером, подключенным через com, в обычных полях ввода.
Прочитать COM порт
Добавлено: 10 Март 2026, 8:55
Игорь Столяров
Андрей писал(а): 08 Март 2026, 11:07
Не поделится ли кто примером работающего кода ?
В архивах есть вот такой класс для работы с COM портом.
Взято из открытых источников, краткое описание прилагается.
Сам я его не юзал - т.к. нет задач и потребности.
Автор: г-н Истомин А.А.
Прочитать COM порт
Добавлено: 10 Март 2026, 9:48
finsoftrz
Игорь Столяров писал(а): 10 Март 2026, 8:55
Сам я его не юзал - т.к. нет задач и потребности.
А как Вы со сканером на com порту работаете? Практически все торговое оборудование через com порт (или его эмуляцию) подключается к ПК.
Прочитать COM порт
Добавлено: 10 Март 2026, 9:55
Игорь Столяров
finsoftrz писал(а): 10 Март 2026, 9:48
А как Вы со сканером на com порту работаете
А мы и не работаем с COM портом вообще. Немцы-то ушли уже ...
Только USB & HID интерфейс (буфер клавиатуры). И никогда не работали. Нет нигде уже COM портов-то этих.
Лет 20 назад вопрос поднимался для обмена с каким-то драйвером ККТ (АТОЛ ?) ... но как-то обошлось.
Всё оборудование сейчас прекрасно поддерживает обмен через USB / HID или буфер клавиатуры.
Эмуляция COM порта имеет смысл, если есть ископаемый софт и его нужно заставить работать с современным оборудованием.
Нам проще изменить прикладную программу, чем заставлять юзеров настраивать эмуляции и потом ещё с этими эмуляциями
и самим иметься ...
Прочитать COM порт
Добавлено: 10 Март 2026, 10:30
finsoftrz
Понятно, у Вас самое современное ПО, разработанное на самом современном инструменте разработки, которое работает только с самыми современными версиями операционной системы и самым современным оборудованием.
Если серьезно, то в специализированных POS системах картина другая. Некоторые виды оборудования работают только через com, клавиатурные сканеры там не используют.
Если Вы можете сказать клиенту, наше ПО не работает с таким оборудованием, то не факт, что это приведет к покупке нового оборудования. Это как с Windows7, Вы объявляете, что больше не поддерживаете ее, а приходит клиент и вправляет мозги на место.
Прочитать COM порт
Добавлено: 10 Март 2026, 11:43
Игорь Столяров
finsoftrz писал(а): 10 Март 2026, 10:30
то в специализированных POS системах работают только через com, клавиатурные сканеры там не используют
Есть такое. Но для POS систем, как правило, и свой софт. Там как бы идёт рабочее место кассира "всё включено".
Что касается остального ... Вы давно устройство с COM портом видели ? А сам COM порт на компьютере ?
Я реально уже лет 5 не видел точно, а может и больше. Ни в ремонте, ни у пользователей.
Был такой большой период, где-то между 2005 - 2015 г., когда все занимались своим делом и прикладной
торговый софт работал лет по 5 без изменений. Сейчас каждый год законодательство всё ставит с ног на голову.
И если уж прикручивается, например, тот же ТС ПИоТ, то заменить эмуляцию COM порта на нативный HID проблем не составляет.
Хотя бы для простоты настройки у пользователей. Потому что настройка эмуляции, да ещё и в терминале - это нужно уметь.
