E
enigma_UnDead_2
Unregistered / Unconfirmed
GUEST, unregistred user!
我用串口对LCM-2000系列明渠流量计(这是一个水位,流量监测的设备)采集的数据进行接收和处理,采集,发送和接收数据是一套完整的硬件设备,接收端已连到我的串口上,但当我执行下列代码后MSComm1.CommEvent不等于comEvReceive,反而等于comEvCTS: // CTS 线状态变化。
我也就接收不到数据,不知道为什么,,求求哪位大富翁帮忙解答一下。十分感谢
mscomm1.CommPort := 1 ;
//Setting:设置或返回串口通信参数,格式为“波特率,奇偶校验位,数据位,停止位”。例如:MSComm1.Setting:=′9600,n,8,1′
try
mscomm1.Settings := '4800,n,8,1';//'qry1.Fieldbyname('btl').AsString + ',' + qry1.Fieldbyname('jyw').AsString + ',' + qry1.Fieldbyname('sjw').AsString + ',' + qry1.Fieldbyname('tzw').AsString;
except
application.MessageBox('请正确设置通信参数', '提示信息', mb_ok);
end;
//InBufferCount:返回接收缓冲区内等待读取的字节数,可通过设置该属性为0来清空接收缓冲区。
mscomm1.InBufferCount := 0;
//DTREnable:数据终端准备好
mscomm1.DTREnable := true;
//RTSEnable:请求发送
Mscomm1.RTSEnable := true;
//PortOpen:打开或关闭串行端口
if mscomm1.PortOpen = false then
mscomm1.PortOpen := true
else
application.MessageBox('串口已经打开', '提示信息', mb_ok);
我也就接收不到数据,不知道为什么,,求求哪位大富翁帮忙解答一下。十分感谢
mscomm1.CommPort := 1 ;
//Setting:设置或返回串口通信参数,格式为“波特率,奇偶校验位,数据位,停止位”。例如:MSComm1.Setting:=′9600,n,8,1′
try
mscomm1.Settings := '4800,n,8,1';//'qry1.Fieldbyname('btl').AsString + ',' + qry1.Fieldbyname('jyw').AsString + ',' + qry1.Fieldbyname('sjw').AsString + ',' + qry1.Fieldbyname('tzw').AsString;
except
application.MessageBox('请正确设置通信参数', '提示信息', mb_ok);
end;
//InBufferCount:返回接收缓冲区内等待读取的字节数,可通过设置该属性为0来清空接收缓冲区。
mscomm1.InBufferCount := 0;
//DTREnable:数据终端准备好
mscomm1.DTREnable := true;
//RTSEnable:请求发送
Mscomm1.RTSEnable := true;
//PortOpen:打开或关闭串行端口
if mscomm1.PortOpen = false then
mscomm1.PortOpen := true
else
application.MessageBox('串口已经打开', '提示信息', mb_ok);