可以使用 mscomm32.ocx 控件
脚本如下:
String ls_data
// 使用 COM1 端口。
ole_1.object.CommPort = 1
// 设置速率为 9600, 无奇偶校验, 8 位数据,一个停止位。
ole_1.object.Settings = "9600,N,8,1"
// 读入整个缓冲区的数据。
ole_1.object.InputLen = 0
打开端口
ole_1.object.PortOpen = True
// 发送 attention 命令
ole_1.object.Output = "ATV1Q0" + char(13)
// 等待数据。
Do
Yield()
// 从 Com 端口取数据
ls_data += ole_1.object.Input
LOOP Until(Pos(ls_data, "OK" + char(13) + char (10)) > 0)
// 向 Com 端口发送数据使用 Output 方法
ole_1.Object.Output = ls_data
// 关闭端口。
ole_1.object.PortOpen = FALSE