一个简单的打印监控示例

{



关于打印监控，下面是一个简单的示例，可以监控到打印的任务信息。



}



unit FfrmMain;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls, ComCtrls, StdCtrls, Buttons,WinSpool;



type

  TfrmMain = class(TForm)

    ListView1: TListView;

    Panel1: TPanel;

    BitBtn2: TBitBtn;

    Timer1: TTimer;

    procedure Timer1Timer(Sender: TObject);

  private

    CurrentMachineName,CurrentUser,CurrentDocName,CurrentPrinter,CurrentPages: String;

    procedure PrintDetect;

    procedure SaveData;

    { Private declarations }

  public

    { Public declarations }

  end;



var

  frmMain: TfrmMain;



implementation



{$R *.dfm}



procedure TfrmMain.PrintDetect;

var

  tbt:Byte;

  PrinterNeeded,PrinterReturned,JobNeeded,JobReturned:DWORD;

  PrinterResultBuffer,JobResultBuffer:Pointer;

  PrinterCount,JobCount:Integer;

  PrinterInfo:PPrinterInfo1;         //打印机队列

  JobInfo:PJobInfo2;                 //打印任务队列

  hPrinter:THandle;

begin

  PrinterNeeded:=0;

  PrinterReturned:=0;

  EnumPrinters(PRINTER_ENUM_lOCAL,'',1,@tbt,0,PrinterNeeded,PrinterReturned);

  if PrinterNeeded<>0 then

  begin

    PrinterCount:=PrinterNeeded;

    GetMem(PrinterResultBuffer,PrinterCount);

    EnumPrinters(PRINTER_ENUM_lOCAL,'',1,PrinterResultBuffer,PrinterNeeded,PrinterNeeded,PrinterReturned);

    PrinterInfo:=PrinterResultBuffer;

    //当前打印机

    JobNeeded:=0;

    OpenPrinter(PrinterInfo^.pName,hPrinter,nil);

    EnumJobs(hPrinter,0,1,2,@tbt,0,JobNeeded,JobReturned);

    if JobNeeded<>0 then

    begin

      JobCount:=JobNeeded;

      GetMem(JobResultBuffer,JobCount);

      try

        //列举当前正在打印的任务

        EnumJobs(hPrinter,0,1,2,JobResultBuffer,JobNeeded,JobNeeded,JobReturned);

        JobInfo:=JobResultBuffer;

        {

        AtPrintEdit.Text:='计算机名：'+(JobInfo^.pMachineName)+

          ' 用户名：'+String(JobInfo^.pUserName)+

          ' 文档名：'+String(JobInfo^.pDocument);

        }

        if CurrentDocName<>JobInfo^.pDocument then

        begin

          if CurrentDocName<>'' then

            SaveData;

          CurrentMachineName:=JobInfo^.pMachineName;

          CurrentUser:=JobInfo^.pUserName;

          CurrentDocName:=JobInfo^.pDocument;

          CurrentPrinter:=JobInfo^.pPrinterName;

          CurrentPages:=InttoStr(JobInfo^.TotalPages);

        end;

      finally

        FreeMem(JobResultBuffer,JobCount);

      end;

    end

    else

    begin

      if CurrentDocName<>'' then

      begin

        SaveData;

        CurrentMachineName:='';

        CurrentUser:='';

        CurrentDocName:='';

        CurrentPrinter:='';

        CurrentPages:='';

      end;

    end;

    ClosePrinter(hPrinter);

  end;

end;



procedure TfrmMain.SaveData;

var

  ListItem:TListItem;

begin

  ListItem:=ListView1.Items.Add;

  ListItem.Caption:=CurrentMachineName;

  ListItem.SubItems.Add(CurrentUser);

  ListItem.SubItems.Add(DatetoStr(Date)+' '+TimeTostr(Time));

  ListItem.SubItems.Add(CurrentDocName);

  ListItem.SubItems.Add(CurrentPrinter);

  ListItem.SubItems.Add(CurrentPages);

end;



procedure TfrmMain.Timer1Timer(Sender: TObject);

begin

  PrintDetect;

end;



end.