使用控件spcomm连接正常
try
CommControl.CommName:='COM9';
CommControl.BaudRate:=9600;
CommControl.Parity := None;
CommControl.ByteSize := _8;
CommControl.StopBits := _1;
CommControl.Inx_XonXoffFlow:=false;
CommControl.Outx_XonXoffFlow:=false; CommControl.StartComm;
except
MessageDlg('打开串口控制器出错',mterror,[mbYes],0);
Showmessage('打开出错'); self.Close;
exit;
end;//发送数据
CMD[0]:=$4F; //O
CMD[1]:=$28; //(
CMD[2]:=$30; //0
CMD[3]:=$31; // 1
CMD[4]:=$2C; // ,
CMD[5]:=$39; //9
CMD[6]:=$2C; //,
CMD[7]:=$31; //1
CMD[8]:=$29; //)
CMD[9]:=$45; //E
a:= CommControl.WriteCommData(@CMD,10);a 返回true
问题 :
1\ onReceiveData 事件一直无法触发
2\测试了一下,一起被触发的事年是 onSendDataEmpty
try
CommControl.CommName:='COM9';
CommControl.BaudRate:=9600;
CommControl.Parity := None;
CommControl.ByteSize := _8;
CommControl.StopBits := _1;
CommControl.Inx_XonXoffFlow:=false;
CommControl.Outx_XonXoffFlow:=false; CommControl.StartComm;
except
MessageDlg('打开串口控制器出错',mterror,[mbYes],0);
Showmessage('打开出错'); self.Close;
exit;
end;//发送数据
CMD[0]:=$4F; //O
CMD[1]:=$28; //(
CMD[2]:=$30; //0
CMD[3]:=$31; // 1
CMD[4]:=$2C; // ,
CMD[5]:=$39; //9
CMD[6]:=$2C; //,
CMD[7]:=$31; //1
CMD[8]:=$29; //)
CMD[9]:=$45; //E
a:= CommControl.WriteCommData(@CMD,10);a 返回true
问题 :
1\ onReceiveData 事件一直无法触发
2\测试了一下,一起被触发的事年是 onSendDataEmpty
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货