监视打印机部分线程内容_Deiphi打印编程_Deiphi_编程开发

监视打印机部分线程内容

日期：2008-10-20 22:09:07　　　　来源：

　·监视打印队列性能　·惊曝惠普打印机释放致癌物质
　·死机！超线程CPU与IE6不兼容

监视打印机部分线程内容。
　　分　　类：硬件
语　　种：简体中文
编辑器：DELPHI6
平　　台：Win2k/XP/NT
作品源代码： -
软件或演示： -
代码大小： -
软件大小： -

unit UTrdGetJobs;

interface

uses
Classes,winspool,Windows,SysUtils;

type
TCallBack=Procedure(JobRecord:String) of Object;

TGetJobs = class(TThread)
private

protected
FPrinterName:String;
FCallBack:TCallBack;
Function GetJob():String;Virtual;Abstract;
procedure Execute; override;
Public
constructor Create(PrinterName:String;ACallBack:TCallBack);
end;

TGetJobs9X=Class(TGetJobs)
Protected
Function GetJob():String;Override;
end;

TGetJobsNT=Class(TGetJobs)
Protected
Function GetJob():String;Override;
end;

implementation

{ Important: Methods and properties of objects in VCL or CLX can only be used in a method called using Synchronize, for example, Synchronize(UpdateCaption); and UpdateCaption could look like,
procedure TrdGetJobs.UpdateCaption;
begin
Form1.Caption := 'Updated in a thread';
end; }

{ TrdGetJobs }

constructor TGetJobs.Create(PrinterName: String; ACallBack: TCallBack);
begin
FPrinterName:=PrinterName;
FCallBack:=ACallBack;

FreeOnTerminate := True;
inherited Create(False);
end;

procedure TGetJobs.Execute;
begin
while not Terminated do
begin
FCallBack(GetJob);
end;
end;

{ TGetJobsNT }

function TGetJobsNT.GetJob: String;
Const
InfoLevel = 1;
FirstJob = 0;
LastJob = 19;
Var
Jobs: Array[FirstJob..LastJob] Of TJobInfo1;
BytesNeeded,NumJobs: Dword;
hPrinter:THandle;
JobsRecord:String;
begin
JobsRecord:=';
if OpenPrinter(Pchar(FPrinterName),hPrinter,nil) then
begin
WaitForPrinterChange(hPrinter,PRINTER_CHANGE_ADD_JOB);
If EnumJobs(hPrinter,FirstJob,LastJob+1,InfoLevel,@Jobs,SizeOf(Jobs),BytesNeeded,NumJobs) Then
begin
if NumJobs<>0 then
begin
With Jobs[NumJobs-1] Do
begin
JobsRecord:=JobsRecord+StrPas(pDocument)+#9;
JobsRecord:=JobsRecord+StrPas(pPrinterName)+#9;
JobsRecord:=JobsRecord+StrPas(pMachineName)+#9;
JobsRecord:=JobsRecord+StrPas(pUserName)+#9;
JobsRecord:=JobsRecord+IntToStr(TotalPages)+#9;
JobsRecord:=JobsRecord+DateTimeToStr(SystemTimeToDateTime(Submitted)+8/24)+#9;
end;
end;
end;
ClosePrinter(hPrinter);
end;
Result:=JobsRecord;
end;

{ TGetJobs9X }

function TGetJobs9X.GetJob: String;
begin
//
end;

end. 　[1]

--->QQ群登防盗登录器 V0.15┊多线程加快QQ多号同时登录速度┊简体中文绿色免费版
--->网际快车(FlashGet) V1.72 100任务+100线程破解版
--->Web迅雷 V1.8.3.127┊基于超多资源超线程技术的下载工具┊绿色下载站免安装版
--->PicaLoader V1.46┊网络抓图好帮手、全自动化支持多线程下载┊汉化绿色特别
--->世界之窗浏览器(TheWorld Browser) V2.0.4.7 Beta┊优秀多线程多页面浏览器┊简体中文绿色版
Tags:　监视 打印机 线程 {$enumber$}

监视打印机部分线程内容

更改监视器显示颜色数

选购打印机手记

在DELPHI中用线程排序

◎→	本类最新
在Delphi中实现数据分析模块的动在Delphi中控制扫描仪在DELPHI文本和图形的打印用好Delphi的打印技能的编程技巧自定义报表打印预览窗口获取打印机队列的状态信息 Delphi中设置默认打印机

◎→相关资源
C语言入门视频教程 C#编程WinForm入门视频 Asp.net入门视频教程下载 VC++编程视频教程下载 VB窗体文章 HTML入门教程 Deiphi实例教程 Deiphi窗体文章 Deiphi数据库编程 Deiphi网络编程 Deiphi图形图象文章 Deiphi系统文件

◎→	热门资源
屏蔽“任务管理器” Delphi开发旅游景点微机售票系统 Delphi开发旅游景点微机售票系统 Delphi编写后台监控软件实战Delphi数据网格色彩特效可以下载整个目录的简单实现 Delphi下汉字输入法的编程及使用