Win98下如何得到打印机的状态?(50分)

唐纳王 · 2001-12-10

请教:在Win98下如何得到打印机的状态,即是否联机以及打印正常与否?

dongberlin · 2001-12-10

From Hotdog2.5 var   pinfo: pPRINTERINFO2;   pprt,a: Cardinal;   b

DWORD; 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 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;

stsw · 2001-12-10

下面这段代码可以查看默认打印机并更改。 unit MainFrm; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls; type   TMainForm = class(TForm)     cbPrinters: TComboBox;     lblPrinter: TLabel;     procedure FormCreate(Sender: TObject);     procedure cbPrintersChange(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   MainForm: TMainForm; implementation uses IniFiles, Printers; {$R *.DFM} procedure TMainForm.FormCreate(Sender: TObject); begin   { Copy the printer names to the combobox and set the combobox to     show the currently selected default printer }   cbPrinters.Items.Assign(Printer.Printers);   cbPrinters.Text := Printer.Printers[Printer.PrinterIndex];   // Update the label to reflect the default printer   lblPrinter.Caption := Printer.Printers[Printer.PrinterIndex]; end; procedure TMainForm.cbPrintersChange(Sender: TObject); var   IniFile: TIniFile;   TempStr1, TempStr2: String;   S: array[0..64] of char; begin   with Printer do   begin     // Set the new printer based on the ComboBox's selected printer     PrinterIndex := cbPrinters.ItemIndex;     // Store the printer name into a temporary string     TempStr1 := Printers[PrinterIndex];     // Delete the unnecessary portion of the printer name     System.Delete(TempStr1, Pos(' on ', TempStr1), Length(TempStr1));     // Create a TIniFile class     IniFile := TIniFile.Create('WIN.INI');     try       // Retrieve the device name of the selected printer       TempStr2 := IniFile.ReadString('Devices', TempStr1, '');       // Change the default printer to that chosen by the user       IniFile.WriteString('windows', 'device', TempStr1 + ',' + TempStr2);       // Tell all windows that the default printer changed.       StrCopy(S, 'windows');       SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, LongInt(@S));     finally       IniFile.Free;     end;   end;   // Update the label to reflect the new printer selection   lblPrinter.Caption := Printer.Printers[Printer.PrinterIndex]; end; end.

Win98下如何得到打印机的状态?(50分)

唐纳王

Unregistered / Unconfirmed

dongberlin

Unregistered / Unconfirmed

stsw

Unregistered / Unconfirmed

Similar threads