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;
        


已标记关键词 清除标记
相关推荐
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页