使用Delphi代码,如何检查打印机状态

Question

使用Delphi代码,如何检查打印机状态,如缺纸,卡纸,未开机.

Answer 1

试试这个吧   
  //获得缺省打印机的状态   
    
  var   
      pinfo:   pPRINTERINFO2;   
      pprt,a:   Cardinal;   
      b:PDWORD;   
  begin   
      b:=allocmem(256);   
      pinfo:=AllocMem(1000);   
      if   OpenPrinter('HP   DJ   200',pprt,nil)   then   
      begin   
          a:=1000;   
          if   getprinter(pprt,2,pinfo,a,b)   then   
              showmessage(pinfo.pPrinterName+'   ststus:'+inttostr(pinfo.Status));   
      ClosePrinter(pprt);   
      end;   
        
      freemem(b);   
      freemem(pinfo);   
  end;   
    
  PRINTER_INFO_2.Status   :   
    Windows   NT:     
        PRINTER_STATUS_PAUSED   
        PRINTER_STATUS_PENDING_DELETION     
    Windows   95:     
        PRINTER_STATUS_BUSY   
        PRINTER_STATUS_DOOR_OPEN   
        PRINTER_STATUS_ERROR   
        PRINTER_STATUS_INITIALIZING   
        PRINTER_STATUS_IO_ACTIVE   
        PRINTER_STATUS_MANUAL_FEED   
        PRINTER_STATUS_NO_TONER   
        PRINTER_STATUS_NOT_AVAILABLE   
        PRINTER_STATUS_OFFLINE   
        PRINTER_STATUS_OUT_OF_MEMORY   
        PRINTER_STATUS_OUTPUT_BIN_FULL   
        PRINTER_STATUS_PAGE_PUNT   
        PRINTER_STATUS_PAPER_JAM   
        PRINTER_STATUS_PAPER_OUT   
        PRINTER_STATUS_PAPER_PROBLEM   
        PRINTER_STATUS_PAUSED   
        PRINTER_STATUS_PENDING_DELETION   
        PRINTER_STATUS_PRINTING   
        PRINTER_STATUS_PROCESSING   
        PRINTER_STATUS_TONER_LOW   
        PRINTER_STATUS_UNAVAILABLE   
        PRINTER_STATUS_USER_INTERVENTION   
        PRINTER_STATUS_WAITING   
        PRINTER_STATUS_WARMING_UP     
  //////////////////////////////////////////////////////////////////   
  unit   PrinterStatus;   
    
  interface   
    
  uses   
      Windows,   Messages,   WinProcs,   SysUtils,   Classes,   Graphics,   Controls,   Forms,   Dialogs;   
    
    
  //   TPrinterstatus   
  //   Komponente   zum   Abfragen   des   aktuellen   Druckerportstatus   
  //   Programmiert   2000   von   K.   Otto   
  //   funktioniert   unter   Win   9x,   jedoch   nicht   unter   Win   NT   
  //   ---------------------------------   
  //   Status:   Freeware   incl.   Sourcecode   
  //   ---------------------------------   
  //   Diese   Komponente   beruht   auf   einem   Beitrag   von   Robert   Vivrette   
  //   f黵   "The   unofficial   Newsletter   of   Delphi   Users"   
  //   http://www.undu.com/articles/990228a.html   
    
  type   
      TPrinterStatus   =   class(TComponent)   
      private   
          {   Private-Deklarationen   }   
          fStatus   :   Byte;   
          fLPT         :   Integer;   
          Function   GetTimeOut   :   Boolean;   
          Function   GetIOError   :   Boolean;   
          Function   GetPrinterSelected   :   Boolean;   
          Function   GetOutOfPaper   :   Boolean;   
          Function   GetAcknowledgement   :   Boolean;   
          Function   GetPrinterBusy   :   Boolean;   
      protected   
          {   Protected-Deklarationen   }   
      public   
          {   Public-Deklarationen   }   
          Procedure   CheckPrinterStatus;   //   Liest   den   Druckerstatus   der   angegeben   LPT-Schnittstelle   
          Constructor   Create(AOwner   :   TComponent);   Override;   
          Property   TimeOut   :   Boolean   Read   GetTimeOut;   
          Property   IOError     :   Boolean   Read   GetIOError;   
          Property   PrinterSelected   :   Boolean   Read   GetPrinterSelected;   
          Property   OutOfPaper   :   Boolean   Read   GetOutOfPaper;   
          Property   Acknowledgement   :   Boolean   Read   GetAcknowledgement;   
          Property   Busy   :   Boolean   Read   GetPrinterBusy;   
      published   
          {   Published-Deklarationen   }   
          Property   LPT   :   Integer   Read   fLPT   Write   fLPT;   
      end;   
    
  procedure   Register;   
    
  implementation   
    
  procedure   Register;   
  begin   
      RegisterComponents('Eigene',   [TPrinterStatus]);   
  end;   
    
  Function   TPrinterStatus.GetTimeOut   :   Boolean;   
  Begin   
            Result:=(fStatus   and   $01)=$01;   
  End;   
    
  Function   TPrinterStatus.GetIOError   :   Boolean;   
  Begin   
            Result:=(fStatus   and   $08)=$08;   
  End;   
    
  Function   TPrinterStatus.GetPrinterSelected   :   Boolean;   
  Begin   
            Result:=(fStatus   and   $10)=$10;   
  End;   
    
  Function   TPrinterStatus.GetOutOfPaper   :   Boolean;   
  Begin   
            Result:=(fStatus   and   $20)=$20;   
  End;   
    
  Function   TPrinterStatus.GetAcknowledgement   :   Boolean;   
  Begin   
            Result:=(fStatus   and   $40)=$40;   
  End;   
    
  Function   TPrinterStatus.GetPrinterBusy   :   Boolean;   
  Begin   
            Result:=not   ((fStatus   and   $80)=$80);   
  End;   
    
  Procedure   TPrinterStatus.CheckPrinterStatus;   
  Var   
        Status   :   Byte;   
        CheckLPT   :   Word;   
  Begin   
            Status:=0;   
            If   (fLPT>=1)   and   (fLPT<=3)   Then   
            Begin   
                      CheckLPT:=fLPT-1;   
                      asm   
                          mov   dx,CheckLPT;   
                          mov   al,0;   
                          mov   ah,2;   
                          int   17h;   
                          mov   &Status,   ah;   
                      End;   
            End;   
            fStatus:=Status;   
  End;   
    
  Constructor   TPrinterStatus.Create(AOwner   :   TComponent);   
  Begin   
            Inherited   Create(AOwner);   
            fLPT:=1;   
            fStatus:=0;   
  End;   
    
  end.   
  //////////////////////////////////////////////////////   
  用法:   
    
    if   not   PrinterStatus1.PrinterReady(0)   then     //0   =   current   printerport   
      ShowMessage(PrinterStatus1.StatusMsg)   else   {print   print   print}   ;   
    
  unit   PrinterStatus;   
    
  interface   
        
  

Answer 2

  uses   
      Windows,   Messages,   SysUtils,   Classes,   Graphics,   Controls,   Forms,   Dialogs;   
    
  type   
      TPrinterStatus   =   class(TComponent)   
      private   
          {   Private   declarations   }   
          FPort   :   Word;   
          FStatusStr   :   string;   
      protected   
          {   Protected   declarations   }   
      public   
          {   Public   declarations   }   
          function   PrinterReady(LPT:   Word):   boolean;   
      published   
          {   Published   declarations   }   
          property   StatusMsg:   string   read   FStatusStr;   
      end;   
    
  procedure   Register;   
    
  implementation   
  uses   Printers;   
    
  procedure   Register;   
  begin   
      RegisterComponents('Win95',   [TPrinterStatus]);   
  end;   
    
  const   
      PrnReady   =   $90;   
      OffLine   =   $00;   
      OffLine2   =   $10;                           {NEW   LINE}   
      PaperOut   =   $20;   
      PaperOut2   =   $30;                         {NEW   LINE}   
      HookedButOff   =   $80;                   {NEW   LINE}   
      NoConnect   =   $B0;                         {MODIFIED   LINE}   
    
      {NOCONNECT   =   $30   FOR   SOME   COMPUTERS   BY   STU}   
    
  function   TPrinterStatus.PrinterReady(LPT:   Word):   boolean;   
  var   
      ErrorCode,   C   :   BYTE;   
      code,   x   :   integer;   
      s   :   string;   
    
                        function   GetPrinterStatus   (LPT:   Word):   Byte;   
                        {Pass   1   in   LPT   for   LPT1}   
                        begin   
                            asm   
                                mov   ah,2   
                                mov   dx,LPT   
                                dec   dx   
                                int   $17   
                                mov   @Result,ah   
                            end;   
                        end;     {GetPrinterStatus}   
    
    
  begin   
    result   :=   false;     //assume   not   
    
    FPort   :=   LPT;   
    if   FPort   =   0   then   begin     {if   no   port   specified   then   try   to   set   port   to   current   
  printer   port}   
        {printer   name}   
        s   :=   Printer.Printers[Printer.PrinterIndex];   
        if   Pos('FPort',s)   <>   0   then   begin   
            s   :=   Copy(s,   Pos('FPort',s)   +3,   1);   
            Val(s,x,code);   
            if   code   <>   0   then   FPort   :=   1   else   FPort   :=   x;   
        end   else   FPort   :=   1;     {default   to   LPT1}   
    end;   
    
    {valid   LPT   is   1..4}   
    if   (FPort   >   4)   or   (FPort   <   1)   then   begin   
        raise   ERangeError.CreateFmt(   
            'LPT%d   is   not   within   the   valid   range   of   %d..%d',   
            [FPort,   1,   4]);   
        exit;   
    end;   
    
    
    ErrorCode   :=   GetPrinterStatus(FPort);   
    
    ErrorCode   :=   ErrorCode   and   $B0;               {NEW   LINE}   
    
    C   :=   ERRORCODE   shl   6;       {ALWAYS   MEANS   NOTHING   CONNECTED}   
    
    if   C   >   0   then   ERRORCODE   :=   $B0;   {ELEMINATES   NO   LPT3   AND   NOTHING   CONNECTED}   
    
    case   ErrorCode   of   
      PrnReady                         :   begin   FStatusStr   :=   'Printer   Ready';   result   :=   true;   
  end;   
      NoConnect                       :   FStatusStr   :=   'Printer   not   connected';   
      Offline,OffLine2         :   FStatusStr   :=   'Printer   off   line';           {Modified}   
      PaperOut,PaperOut2     :   FStatusStr   :=   'Printer   out   of   paper';   {Modified}   
      HookedButOff                 :   FStatusStr   :=   'Printer   connected   but   turned   off';   {New}   
    else   
      FStatusStr   :=   'Printer   error   code:   '   +   IntToStr(ErrorCode);   
    end;   
    
  end;   
    
  //获取打印机状态   

Answer 3

可用CREATEFILE以PRN为文件名生成一个文件，检测返回值，若成功则打印机可用，否则显示打印机故障。生成关于PRN的文件句柄后，可象普通文件一样向文件写入内容，比如WRITE，写完后关闭文件。
//从并行端口读取打印机状态
functionGetPrinterStatus:byte;
asm
   MOV DX,$379;
  IN AL,DX;
end;
//获取打印机是否出错
function CheckPrinter:boolean;
var
temp:byte;
begin
   temp:=GetPrinterStatus;
   Result:=not ( ((temp and $80)=0) //打印机忙
  or ((temp and $20)<>0)  //打印机缺纸
  or ((temp and $10)=0)    //打印机未联机
  or ((temp and $08)=0) ); //打印机出错;
end;

Answer 4

可以调用一个io.dll（网上可以下载），然后使用portin（$379）读出并口的状态位就可以了 具体哪根针可以看并口介绍

Answer 5

有没有关于io.dll调用的具体代码?

Answer 6

动态链接库调用啊，网上搜索io.dll很多的，如果还不明白qq869695417
function PortIn(Port : Word) : Byte;stdcall;external 'io.dll';