delphi 判断COM端口是否存在

本文整理自网络，侵删。

 
 POS设备必须接在某个端口上,比如小票打印机接在LPT1口,条码扫描枪接到COM1口,在控制设备之前,应该先判断电脑上是否存在相应的端口,在Delphi控制这些端口和文件的操作是一样的,我们先写个测试端口是否存在的函数如下:

function Test_Open_File(fileName: string): Boolean;
var
  FileHandle:integer;
begin
  FileHandle:=FileOpen(fileName,fmOpenWrite);
  FileClose(FileHandle);
  if FileHandle < 0 then
     result := False
  else
     result := true;
end;

当成功打开文件,文件句柄会大于0,否则为-1

下面我们写代码测试一下

procedure TForm1.Button1Click(Sender: TObject);
begin
  if self.Text_Open_File('LPT1') then
     ShowMessage('LPT1口存在')
  else
     ShowMessage('LPT1口不存在');

 

以上代码在有并口的电脑上会弹出提示框"LPT1口不存在",在有并口的电脑上会弹出提示框"LPT1口存在" 
end;
 

相关阅读 >>

Delphi检测鼠标指针的改变(全局)

Delphi 在减少占用资源的情况下，等待msecs毫秒

Delphi中判断窗体最大化和最小化事件

Delphi access技巧集

Delphi 拷贝edit编辑框中的内容

Delphi 读写文本

Delphi 数字签名添加器源码

Delphi xe7写的一个http post的小测试程序

Delphi内存对齐

Delphi firedac 下的 sqlite [10] - 使用 r-tree 搜索

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

转载请注明出处：木庄网络博客 » delphi 判断COM端口是否存在