COM读写代码

comm1=CREATEOBJECT("mscommlib.mscomm.1")

         comm1.CommPort=1                     && 指定COM口

     IF comm1.portopen=.F.                                   && 关闭已经打开的端口

         comm1.portopen=.T.                                 && 打开COM口

     ENDIF

     comm1.inbuffercount=0                                   && 清除输入缓冲区

     comm1.outbuffercount=0                                  && 清空输出缓冲区

     comm1.inputmode=1                                       && 设置二进制输入输出方式

     comm1.inputlen=0                                        && 读入整个缓冲区

     OutputStr=CREATEBINARY(CHR(0x55))

     comm1.OUTPUT=OutputStr                                  && 发送十六进制数"55"

     WAIT "" TIMEOUT 0.1                                          && 延时0.1秒，等待设备回送数据

     InputStr=comm1.INPUT                                    && 接收输入数据