| Mscomm是微软一个强大的串口通讯的控件，其强大，简单的特点今我们不舍，在delphi中我们也可以使用它。下面这些代码是针对发送和接收为16进制处理的。 var senddata:array[1..10] of char; reData:array of Variant; sendstr:string; restr:string; i:longint; begin mscomm1.CommPort := 1; //指定端口 mscomm1.Settings := '9600,N,8,1'; //其它参数 mscomm1.InBufferSize := 1024; //接收缓冲区 mscomm1.OutBufferSize := 1024; //发送缓冲区 mscomm1.InputMode := comInputModeBinary; //接收模式 mscomm1.InputLen := 0; //一次读取所有数据 mscomm1.SThreshold := 0; //一次发送所有数据 mscomm1.InBufferCount := 0; //清空读取缓冲区 mscomm1.OutBufferCount := 0; //清空发送缓冲区 mscomm1.PortOpen:=true; //打开端口 MSComm1.RThreshold := 16; //设置接收多少字节开产生oncomm事件 senddata[1]:=chr($06); //要发送的数据 senddata[2]:=chr($03); senddata[3]:=chr($00); senddata[4]:=chr($03); senddata[5]:=chr($10); |
