一 判断端口是否存在

      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;