为什么会提示端口已打开的错误

hanweiaaa

procedure TForm1.FormActivate(Sender: TObject);
begin

     MSComm1.CommPort:=1;
     MSComm1.Settings:='9600,n,8,1';
     MSComm1.InBufferSize:=32;
     MSComm1.OutBufferSize:=2;
     MSComm1.InputMode:=comInputModeBinary;//设置接收数据模式为二进制形式
     MSComm1.InputLen := 1;      //设置Input 一次从接收缓冲读取字节数为1
     MSComm1.InputLen:=1;        //设置Input 一次从接收缓冲读取字节数为1
     MSComm1.SThreshold:=1;      //设置Output 一次从发送缓冲读取字节数为1
     MSComm1.InBufferCount:=0;   //清除接收缓冲区
     MSComm1.OutBufferCount:=0;  //清除发送缓冲区
     MSComm1.PortOpen:=true;     //打开串口1
     
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin

     MSComm1.CommPort:=2;
     MSComm1.Settings:='9600,n,8,1';
     MSComm1.InBufferSize:=32;
     MSComm1.OutBufferSize:=2;
     MSComm1.InputMode:=comInputModeBinary;//设置接收数据模式为二进制形式
     MSComm1.InputLen := 1;      //设置Input 一次从接收缓冲读取字节数为1
     MSComm1.InputLen:=1;        //设置Input 一次从接收缓冲读取字节数为1
     MSComm1.SThreshold:=1;      //设置Output 一次从发送缓冲读取字节数为1
     MSComm1.InBufferCount:=0;   //清除接收缓冲区
     MSComm1.OutBufferCount:=0;  //清除发送缓冲区
     MSComm1.PortOpen:=true;     //打开串口1
end;


当我改变下拉框（ComboBox1Change），
出现的错误是：
端口已打开
可是我初始化只打开了 串口1 啊
ComboBox1Change
是打开串口2

为什么不行呢？
谢谢！

jk66255

是不是ComboBox1Change在建立的时候已经被调用了？

Guderian

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
     MSComm1.PortOpen := False; //<<先关掉看看
     MSComm1.CommPort:=2;
//...
     MSComm1.PortOpen:=true;     //打开串口1
end;

gmwyj

谢谢！谢谢！