VPF::Количество отпечатанных страниц через принтер

svl42

Дата 19.2.2009, 18:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 28.10.2007

Репутация: нет
Всего: нет

Здравтсвуйте, Подскажите пожалуйста каким образом возможно отслеживать количество страниц отпечатанных принтером?

jungle

Дата 6.3.2009, 09:48 (ссылка)

(нет голосов)

Загрузка ...

Аппаратный кодер

Профиль
Группа: Участник
Сообщений: 40
Регистрация: 17.1.2006
Где: Беларусь

Репутация: нет
Всего: нет

Этого куска кода из моей проги, думаю, будет достаточно, разбирайтесь.

Код


function TPrnThread.GetPrinterHandle : THandle;
var
  HPRN : THandle;
begin
  Result:=0;
  if OpenPrinter(PrinterName,HPRN,nil) then Result:=HPRN;
end;

procedure TPrnThread.BeginMonitoring;
var
  Job2 : array [0..1023] of JOB_INFO_2;
  i,k, Needed, Returned : DWORD;
  tmpStr : ShortString;
  RecFound : boolean;
begin
  if PrnHandle = 0 then PrnHandle:=GetPrinterHandle;
  if PrnHandle > 0 then
    if EnumJobs(PrnHandle,0,1024,2,@Job2,SizeOf(Job2),Needed,Returned) then
      if Returned > 0 then
        for i:=0 to Returned-1 do
          with Job2[i] do 
            RecFound:=AddRecordToLog(DateTimeToStr(SystemTimeToDateTime(Job2[i].Submitted)),
                                   Job2[i].pUserName,
                                   Job2[i].pDocument,
                                   Job2[i].TotalPages,
                                   Job2[i].Size div 1024);
end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »