procedure TForm1.MSComm1Comm(Sender: TObject);
var
data:string;
begin
if not MSComm1.PortOpen then
MSComm1.PortOpen:=True;
MSComm1.InBufferCount:=0;
data:=MSComm1.Input;
Edit2.Text:=data;
MSComm1.PortOpen:=False;
end;
搂主的写法有问题,怎么能在comm事件里面打开串口呢,不可能执行的啊
if not MSComm1.PortOpen then
MSComm1.PortOpen:=True
。。
MSComm1.PortOpen:=False;