
如果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;
总结以上是内存溢出为你收集整理的delphi 自动获取串口全部内容,希望文章能够帮你解决delphi 自动获取串口所遇到的程序开发问题。
如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)