本文整理自网络，侵删。
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; 相关阅读 >>
ttreeview的两个事件ondragdrop、ondragover 实现自动拖放功能
Delphi动态创建tadoquery加access出现'不正常的定义参数对象 提供了不一致或不完整的信息'错误
Delphi 最全_日期格式_dateutils时间单元说明
Delphi 用idhttp打开网页或下载文件时如何显示进度
更多相关阅读请进入《Delphi》频道 >>
