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 动态调用chm文件

Delphi idhttp1 获取网页代码

Delphi 组件值实现增减

Delphi 如何使用 ppchar

Delphi xe 自己编辑xe2 vcl style(皮肤/skin)

Delphi trimleft 删除字符串左边的空格

Delphi 获取标题栏高

Delphi qq尾巴病毒的编写

Delphi 使用onvalidate事件或onvalidating事件验证在输入字段（tedit）中输入的值

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

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