Monitorear impresiones

[roman]

¿Existe alguna forma en Windows 2000 de monitorear desde una aplicación Delphi cuando el usuario manda una impresión y saber cuántas hojas manda?

// Gracias

[Lmas]

Hola roman.

Que yo sepa, no existen en Windows funciones hook para monitorear la impresión, aunque tal vez se pueda hacer lo que pides por medio de un thread y con las funciones...

FindFirstPrinterChangeNotification, FindNextPrinterChangeNotification y FindClosePrinterChangeNotification

vigilar los cambios de la impresora.

Cuando haya un cambio, con EnumJobs y GetJob, obtener las páginas que se quieren imprimir.

SalU2

[roman]

Muchas gracias por la respuesta. Le voy a buscar por ahí. No he visto con detalle las funciones que me mencionas aunque parece que me permiten por lo menos detectar en qué momento se agrega un trabajo a la cola de impresión y quizá de ahí ya pueda averiguar información acerca de la impresión.

// Saludos

[marcoszorrilla]

Hola Román mira yo tengo estas funciones, que la verdad no las he utilizado mucho, así que mira a ver si te interesan:



uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,Printers,WinSpool;
.....
function GetCurrentPrinterHandle: THandle;
var
Device, Driver, Port: array[0..255] of Char;
hDeviceMode: THandle;
begin
Printer.GetPrinter(Device, Driver, Port, hDeviceMode);
if not OpenPrinter(@Device, Result, nil) then
RaiseLastWin32Error;
end;

function SavePChar(p: PChar): PChar;
const
error: PChar = 'Nil';
begin
if not Assigned(p) then
Result := error
else
Result := p;
end;

procedure TForm1.Button1Click(Sender: TObject);
type
TJobs = array [0..1000] of JOB_INFO_1;
PJobs = ^TJobs;
var
hPrinter: THandle;
bytesNeeded, numJobs, i: Cardinal;
pJ: PJobs;
begin
hPrinter := GetCurrentPrinterHandle;
try
EnumJobs(hPrinter, 0, 1000, 1, nil, 0, bytesNeeded,
numJobs);
pJ := AllocMem(bytesNeeded);
if not EnumJobs(hPrinter, 0, 1000, 1, pJ, bytesNeeded,
bytesNeeded, numJobs) then
RaiseLastWin32Error;

memo1.Clear;
if numJobs = 0 then
memo1.Lines.Add('No hay trabajos en la cola')
else
for i := 0 to Pred(numJobs) do
memo1.Lines.Add(Format('Printer %s, Job %s, Status (%d): %s',
[SavePChar(pJ^[i].pPrinterName), SavePChar(pJ^[i].pDocument),
pJ^[i].Status, SavePChar(pJ^[i].pStatus)]));
finally
ClosePrinter(hPrinter);
end;
end;

Un Saludo.

[roman]

Muchas gracias marcos. Da la impresión de que combinando esto con lo que me comenta Lmas puedo obtener lo que quiero, que básicamente es contabilizar el número de hojas que cada usuario de una sala de cómputo imprime.

// Saludos

[Enan0]

memo1.Lines.add(pJ^[i].pUserName);
memo1.Lines.add(inttostr(pJ^[i].TotalPages));

Agregue estas dos lineas. y el Total PAges me muestra cualquier verdura y el pUserName me imprime (VACIO)
Estoy usando W2000

[seicomtko]

FindFirstPrinterChangeNotification, FindNextPrinterChangeNotification y FindClosePrinterChangeNotification

¿Alguién me podria dar un ejemplo de como usar estas funciones?

Lo ke pasa es ke necesito hacer un programa ke monitoree las impresiones en red... osea un servidor... La idea es ke al enviar una impresion desde otro pc... el servidor pause la impresion y envie un mensaje ke diga desde ke pc lo estan enviando, la cantidad de paginas, a ke impresora, configuracion de la hoja y toda la informacion ke se pueda obtener... Gracias

[david_thecid]

esta mal tu sintaxis, por eso te envia error


mmo1.Lines.Add(Format('usuario : %s',[SavePChar(pJ^[i].pJ^[i].pUserName)]));

de sa forma te imprimiria el susuario que envi la impresion.

[adonias]

Hola Román mira yo tengo estas funciones, que la verdad no las he utilizado mucho, así que mira a ver si te interesan:



uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,Printers,WinSpool;
.....
function GetCurrentPrinterHandle: THandle;
var
Device, Driver, Port: array[0..255] of Char;
hDeviceMode: THandle;
begin
Printer.GetPrinter(Device, Driver, Port, hDeviceMode);
if not OpenPrinter(@Device, Result, nil) then
RaiseLastWin32Error;
end;

function SavePChar(p: PChar): PChar;
const
error: PChar = 'Nil';
begin
if not Assigned(p) then
Result := error
else
Result := p;
end;

procedure TForm1.Button1Click(Sender: TObject);
type
TJobs = array [0..1000] of JOB_INFO_1;
PJobs = ^TJobs;
var
hPrinter: THandle;
bytesNeeded, numJobs, i: Cardinal;
pJ: PJobs;
begin
hPrinter := GetCurrentPrinterHandle;
try
EnumJobs(hPrinter, 0, 1000, 1, nil, 0, bytesNeeded,
numJobs);
pJ := AllocMem(bytesNeeded);
if not EnumJobs(hPrinter, 0, 1000, 1, pJ, bytesNeeded,
bytesNeeded, numJobs) then
RaiseLastWin32Error;

memo1.Clear;
if numJobs = 0 then
memo1.Lines.Add('No hay trabajos en la cola')
else
for i := 0 to Pred(numJobs) do
memo1.Lines.Add(Format('Printer %s, Job %s, Status (%d): %s',
[SavePChar(pJ^[i].pPrinterName), SavePChar(pJ^[i].pDocument),
pJ^[i].Status, SavePChar(pJ^[i].pStatus)]));
finally
ClosePrinter(hPrinter);
end;
end;
Un Saludo.

Existe alguna manera de ver el NUMERO DE COPIAS ??