delphi MSComm1自动获取串口


本文整理自网络,侵删。

 
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

相关阅读 >>

Delphi检查字符串是否为纯数字

Delphi 选择文件夹对话框 (有新建文件夹按钮)修正版

Delphi的四舍五入函数

Delphi关于dbgrid和webbrowser的焦点问题

Delphi dblookupcombobox组件的使用方法

Delphi cef4 忽略不安全网站

Delphi截取技巧 lastdelimiter

Delphi开发获取文件md5值

Delphi 延迟时间函数

Delphi 字符串加密与解密函数

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...