本文整理自网络，侵删。
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获取flash文件的影片时长,原始尺寸,帧数等信息
Delphi idhttp中application/x-www-form-urlencoded字符说明
Delphi winapi: loadstring - 从资源中载入字符串
更多相关阅读请进入《Delphi》频道 >>
