Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.26;
Скачать: CL | DM;

Вниз

Ловушка на принтер...   Найти похожие ветки 

 
Sirus ©   (2003-04-04 06:56) [0]

Как можно узнать (программно) сколько страниц распечатано на принтере? И как перехватить обращение к принтеру и в зависимости от условий запретить распечатку?


 
_ALEXey_ ©   (2003-04-09 17:45) [1]

Такая же проблема!

Я нашел в хэлпе по SDK сообщение WM_SPOOLERSTATUS. Отлавливаю это сообщение в своей проге, а оно как-то плохо отлавливаетя :-(

Попробуй поискать в этом направлении.



 
_ALEXey_ ©   (2003-04-19 07:47) [2]

Почему-то этот код под W2K не работает.

..........
private
procedure WMSPOOLERSTATUS(var Msg: TWMSPOOLERSTATUS); message WM_SPOOLERSTATUS;
..........
procedure TForm1.WMSPOOLERSTATUS(var Msg: TWMSPOOLERSTATUS);
begin
Label1.Caption:= IntToStr(msg.JobsLeft);
Msg.Result:= 0;
end;


Пробовал FindFirstChangePrinterNotification. Тоже не работает.


 
gurban   (2003-04-19 10:32) [3]

Ставь на компьютер на котором стоит принтер W2K или XP, и программу O&K Print Watch.
Если хочешь сам писать программу на Win98 WM_SPOOLERSTATUS работает очень криво. При получении задания с другого компьютера вообще не хочет отрабатываться.
На W2K WM_SPOOLERSTATUS вообще не используется. Работает FindFirstChangePrinterNotification, но должна быть включена запись событий из спуллера с данными о задании. Где включается не помню, думаю можно в интернете найти.


 
Reals ©   (2003-04-19 18:09) [4]

Вот ссылка на программу, где организован достаточно полный пример перехвата принтера: http://www.varscomteh.com/downloads/PrintJob.rar

P.S. Эта программа ведет полную статистику, что/где/когда/сколько печатали на принтере.



Страницы: 1 вся ветка

Текущий архив: 2003.06.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.027 c
14-84586
DMN
2003-06-09 01:35
2003.06.26
Дозвон?


14-84718
Дмитрий К.К.
2003-06-05 06:23
2003.06.26
Именинники 5 июня


7-84811
Anatoliy
2003-04-16 14:24
2003.06.26
Как запретить остановку по Ctrl-C в консольном приложении?


6-84493
LOX
2003-04-20 19:49
2003.06.26
Код компонента TserverSocket


1-84303
Chainik
2003-06-15 14:02
2003.06.26
OnMouseMove