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;