一 判斷埠是否存在

2022-08-24 01:03:08 字數 709 閱讀 5010

pos裝置必須接在某個埠上,比如小票印表機接在lpt1口,條碼掃瞄槍接到com1口,在控制裝置之前,應該先判斷電腦上是否存在相應的埠,在delphi控制這些埠和檔案的操作是一樣的,我們先寫個測試埠是否存在的函式如下:

function test_open_file(filename: string): boolean;

varfilehandle: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;

SQL判斷是否存在

判斷資料庫是否存在 if exists select from master.sysdatabases where name n 庫名 print exists else print not exists 判斷要建立的表名是否存在 if exists select from dbo.sysobjec...

SQL判斷是否存在

1 判斷資料庫是否存在 2 ifexists select frommaster.sysdatabaseswherename n 庫名 3print exists 4 else 5print notexists 67 8 判斷要建立的表名是否存在 9 ifexists select fromdbo....

判斷檔案是否存在

c 判斷檔案是否存在 int access const char filename,int amode 函式用法 寬位元組int waccess const char filename,int amode c 判斷檔案是否存在 標頭檔案 access const char filename,int ...