API函数枚举打印队列问题

408010350

想用enumjobs获取打印机的打印队列，那堆参数弄不明白，网上找不到相关实例，求在打印方面有研究的大神给个码研究研究，dll命令如何写，如何调用等等....{:soso_e113:}

萧阳天

1. [code].版本 2
   
2. 
   
3. .DLL命令 EnumJobs, 逻辑型, "winspool.drv", "EnumJobsA", , 打印机_枚举打印列队
   
4.     .参数 打印机句柄, 整数型
   
5.     .参数 作业索引, 整数型
   
6.     .参数 作业数量, 整数型
   
7.     .参数 固定值, 整数型
   
8.     .参数 缓冲区地址
   
9.     .参数 缓冲区大小, 整数型
   
10.     .参数 变量指针, 整数型, 传址
    
11.     .参数 结构数量, 整数型, 传址
    

复制代码

1. .版本 2
   
2. 
   
3. .数据类型 JOB_INFO_2, , 打印机_枚举打印列队
   
4.     .成员 JobId
   
5.     .成员 pPrinterName
   
6.     .成员 pMachineName
   
7.     .成员 pUserName
   
8.     .成员 pDocument
   
9.     .成员 pNotifyName
   
10.     .成员 pDatatype
    
11.     .成员 pPrintProcessor
    
12.     .成员 pParameters
    
13.     .成员 pDriverName
    
14.     .成员 pDevMode
    
15.     .成员 pStatus
    
16.     .成员 pSecurityDescriptor
    
17.     .成员 Status, 整数型
    
18.     .成员 Priority, 整数型
    
19.     .成员 Position, 整数型
    
20.     .成员 StartTime, 整数型
    
21.     .成员 UntilTime, 整数型
    
22.     .成员 TotalPages, 整数型
    
23.     .成员 Size, 整数型
    
24.     .成员 Submitted, 系统时间_
    
25.     .成员 time, 整数型
    
26.     .成员 PagesPrinted, 整数型
    

复制代码

1. .版本 2
   
2. 
   
3. .数据类型 系统时间_, 公开, SYSTEMTIME
   
4.     .成员 年, 短整数型, , , wYear
   
5.     .成员 月, 短整数型, , , wMonth
   
6.     .成员 星期, 短整数型, , , wDayOfWeek
   
7.     .成员 日, 短整数型, , , wDay
   
8.     .成员 小时, 短整数型, , , wHour
   
9.     .成员 分, 短整数型, , , wMinute
   
10.     .成员 秒, 短整数型, , , wSecond
    
11.     .成员 毫秒, 短整数型, , , wMilliseconds
    

复制代码

1. .版本 2
   
2. 
   
3. .DLL命令 CopyMemory_job_info_2, 整数型, "kernel32", "RtlMoveMemory", , 打印机_枚举打印列队
   
4.     .参数 目标数据地址, JOB_INFO_2
   
5.     .参数 源数据, 字节集
   
6.     .参数 尺寸, 整数型
   

复制代码

1. .版本 2
   
2. 
   
3. .数据类型 打印任务信息, 公开, 打印机_枚举打印列队
   
4.     .成员 任务ID
   
5.     .成员 打印机名称, 文本型
   
6.     .成员 任务创建者, 文本型
   
7.     .成员 所有者, 文本型
   
8.     .成员 通知, 文本型
   
9.     .成员 文档名, 文本型
   
10.     .成员 数据类型, 文本型
    
11.     .成员 处理器名字, 文本型
    
12.     .成员 驱动名称, 文本型
    
13.     .成员 提交时间, 文本型
    
14.     .成员 大小, , , , 以字节为单位占用大小。
    
15.     .成员 页数
    
16.     .成员 状态, , , , 状态值用 位与(状态,参数)'512、不能打印 256、已被删除 4、被删除了 2、错误 32、脱机 64、缺纸 1、暂停 128、正在打印 16、正在印刷  2048、重启 65536、打印机错误
    
17.     .成员 优先级, , , , 1、最小即默认。 99、最大
    

复制代码

[/code]

萧阳天

1. .版本 2
   
2. 
   
3. .子程序 枚举打印列队, 整数型, 公开, 枚举打印队列中的作业，成功返回某打印机列队文档数量，失败返回-1
   
4. .参数 打印机名称, 文本型, 可空, 可空，即默认打印机。
   
5. .参数 列队信息, 打印任务信息, 数组, 储存输出信息。
   
6. .局部变量 hPrinter
   
7. .局部变量 pd, 打印默认_
   
8. .局部变量 bool, 逻辑型
   
9. .局部变量 dwNeeded
   
10. .局部变量 lReturned
    
11. .局部变量 hMem
    
12. .局部变量 job, JOB_INFO_2
    
13. .局部变量 cnt, 整数型
    
14. .局部变量 Hour, 文本型
    
15. .局部变量 Minute, 文本型
    
16. .局部变量 Second, 文本型
    
17. .局部变量 Month, 文本型
    
18. .局部变量 Day, 文本型
    
19. .局部变量 Time, 文本型
    
20. 
    
21. 清除数组 (列队信息)
    
22. 打印机名称 ＝ 选择 (是否为空 (打印机名称), 取默认打印机 (), 打印机名称)
    
23. .如果真 (OpenPrinter (打印机名称, hPrinter, pd))
    
24.     EnumJobs (hPrinter, 0, 99, 2, 0, 0, dwNeeded, lReturned)
    
25.     hMem ＝ GlobalAlloc (64, dwNeeded)
    
26.     bool ＝ EnumJobs (hPrinter, 0, 99, 2, hMem, dwNeeded, dwNeeded, lReturned)
    
27.     .如果真 (bool)
    
28.         重定义数组 (列队信息, 假, lReturned)
    
29.         .变量循环首 (0, lReturned － 1, 1, cnt)
    
30.             CopyMemory_job_info_2 (job, 指针到字节集 (hMem ＋ cnt × 104, 104), 104)
    
31.             Month ＝ 选择 (job.Submitted.月 ＜ 10, “0” ＋ 到文本 (job.Submitted.月), 到文本 (job.Submitted.月))
    
32.             Day ＝ 选择 (job.Submitted.日 ＜ 10, “0” ＋ 到文本 (job.Submitted.日), 到文本 (job.Submitted.日))
    
33.             Hour ＝ 选择 (8 ＋ job.Submitted.小时 ＜ 10, “0” ＋ 到文本 (job.Submitted.小时 ＋ 8), 到文本 (job.Submitted.小时 ＋ 8))
    
34.             Minute ＝ 选择 (job.Submitted.分 ＜ 10, “0” ＋ 到文本 (job.Submitted.分), 到文本 (job.Submitted.分))
    
35.             Second ＝ 选择 (job.Submitted.秒 ＜ 10, “0” ＋ 到文本 (job.Submitted.秒), 到文本 (job.Submitted.秒))
    
36.             Time ＝ Hour ＋ “:” ＋ Minute ＋ “:” ＋ Second ＋ “ ” ＋ 到文本 (job.Submitted.年) ＋ 系统_取日期分隔符 () ＋ Month ＋ 系统_取日期分隔符 () ＋ Day ＋ “ ” ＋ 取星期 (job.Submitted.星期)
    
37.             列队信息 [cnt ＋ 1].任务ID ＝ job.JobId
    
38.             列队信息 [cnt ＋ 1].打印机名称 ＝ 指针到文本 (job.pPrinterName)
    
39.             列队信息 [cnt ＋ 1].任务创建者 ＝ 指针到文本 (job.pMachineName)
    
40.             列队信息 [cnt ＋ 1].所有者 ＝ 指针到文本 (job.pUserName)
    
41.             列队信息 [cnt ＋ 1].通知 ＝ 指针到文本 (job.pNotifyName)
    
42.             列队信息 [cnt ＋ 1].文档名 ＝ 指针到文本 (job.pDocument)
    
43.             列队信息 [cnt ＋ 1].数据类型 ＝ 指针到文本 (job.pDatatype)
    
44.             列队信息 [cnt ＋ 1].处理器名字 ＝ 指针到文本 (job.pPrintProcessor)
    
45.             列队信息 [cnt ＋ 1].驱动名称 ＝ 指针到文本 (job.pDriverName)
    
46.             列队信息 [cnt ＋ 1].提交时间 ＝ Time
    
47.             列队信息 [cnt ＋ 1].大小 ＝ job.Size
    
48.             列队信息 [cnt ＋ 1].页数 ＝ job.TotalPages
    
49.             列队信息 [cnt ＋ 1].状态 ＝ job.Status
    
50.             列队信息 [cnt ＋ 1].优先级 ＝ job.Priority
    
51.         .变量循环尾 ()
    
52.     .如果真结束
    
53.     ClosePrinter (hPrinter)
    
54.     返回 (lReturned)
    
55. .如果真结束
    
56. 返回 (-1)
    

复制代码

408010350

dll命令那里和数据类型应该咋整