halcon 与PLC串口通信解决方案

OpSystem := environment('OS')

if (OpSystem='Windows_NT')
open_serial ('COM1', SerialHandle)
else
open_serial ('/dev/tty', SerialHandle)
endif

set_serial_param (SerialHandle, 9600, 8, 'none', 'none', 1, 1000, 'unchanged')

write_serial (SerialHandle, ords('Hello world!\n\r'))
while(1)
read_serial (SerialHandle, 10, Data)
if (|Data| > 0)
Read := chrt(Data)

break
endif

endwhile