Path: utzoo!utgpu!water!watmath!clyde!att!osu-cis!tut.cis.ohio-state.edu!bloom-beacon!bu-cs!purdue!decwrl!sun!pitstop!sundc!seismo!uunet!mcvax!enea!tut!santra!k34386t
From: k34386t@kaira.HUT.FI (Petri Kruiseri Suominen)
Newsgroups: comp.lang.pascal
Subject: How to check for printer line status ?
Message-ID: <13936@santra.UUCP>
Date: 21 Jun 88 17:18:45 GMT
Sender: news@santra.UUCP
Reply-To: k34386t@kaira.UUCP (Petri Kruiseri Suominen)
Organization: Helsinki University of Technology, Finland
Lines: 20


 
Does anyone know how to check for printer line status with TP4,
I've tried the following, but the result is just the same as with
no check at all, PC just waits for the printer to become online.


function checkprn:boolean;
var
 lst:text;
begin
 assign(lst,'LPT1');
 {$I-}
 rewrite(lst);
 {$I+}
 if IOresult<>0 then
   checkprn:=false
 else
   checkprn:=true;
end;