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 ...