delphi 自动获取串口

 

如果PC端串口x存在且没有被占用，我们用TMScomm控件可以顺利打开并且关闭串口x，如果该端口x被占用或者不存在则会出现错误。利用这个原理，通过try强行打开串口x获取可用串口。具体代码如下：

i:integer;

combobox1.items.clear;

for i := 1 to 32 do  //一般PC端串口都小于32 

  begin

    try

      MSComm1.CommPort := i;

      if MSComm1.PortOpen = false then

      begin

        MSComm1.PortOpen := true;

      end;

      MSComm1.PortOpen := false;

      ComboBox1.Items.Add(inttostr(i));

    except

    end;

  end;

来源：https://blog.csdn.net/Nevermore_anger/article/details/79012875