PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 2024 → [WD90033t] Récupérer le contenu du spool d'impression
[WD90033t] Récupérer le contenu du spool d'impression
Iniciado por epaziot, jun., 16 2005 5:25 PM - 5 respostas
Publicado em junho, 16 2005 - 5:25 PM
Bonjour,

J'ai créer une imprimante sur un port redirigé qui lance mon application. Je récupère les infos avec "EnumJobsA". Jusque la pas de Pb..............................

Mais, je sèche complètement pour recupèrer à coup sur et de façon propre le spool.

Le but de mon appli est de reformater des impressions en textes provenants de # systèmes.

CORDIALEMENT

Eric
Publicado em junho, 16 2005 - 6:53 PM
Bonjour je ne sais pas si cela peut t'aider mais voila du code sur lequel je
suis en train de bosser
P.S. j'ai mis ça dans une collection de procédure

-------------------------------------------------------
CODE DE DECLARATION DE LA COLLECTION
-------------------------------------------------------
CONSTANT
PRINTER_ENUM_DEFAULT = 0x00000001
PRINTER_ENUM_LOCAL = 0x00000002
PRINTER_ENUM_CONNECTIONS = 0x00000004
PRINTER_ENUM_FAVORITE = 0x00000004
PRINTER_ENUM_NAME = 0x00000008
PRINTER_ENUM_REMOTE = 0x00000010
PRINTER_ENUM_SHARED = 0x00000020
PRINTER_ENUM_NETWORK = 0x00000040
PRINTER_ENUM_EXPAND = 0x00004000
PRINTER_ENUM_CONTAINER = 0x00008000
PRINTER_ENUM_ICONMASK = 0x00ff0000
PRINTER_ENUM_ICON1 = 0x00010000
PRINTER_ENUM_ICON2 = 0x00020000
PRINTER_ENUM_ICON3 = 0x00040000
PRINTER_ENUM_ICON4 = 0x00080000
PRINTER_ENUM_ICON5 = 0x00100000
PRINTER_ENUM_ICON6 = 0x00200000
PRINTER_ENUM_ICON7 = 0x00400000
PRINTER_ENUM_ICON8 = 0x00800000
PRINTER_ENUM_HIDE = 0x01000000

JOB_STATUS_PAUSED = 0x00000001 // Job is paused.
JOB_STATUS_ERROR = 0x00000002 // An error is associated with the
job.
JOB_STATUS_DELETING = 0x00000004 // Job is being deleted.
JOB_STATUS_SPOOLING = 0x00000008 // Job is spooling.
JOB_STATUS_PRINTING = 0x00000010 // Job is printing.
JOB_STATUS_OFFLINE = 0x00000020 // Printer is offline.
JOB_STATUS_PAPEROUT = 0x00000040 // Printer is out of paper.
JOB_STATUS_PRINTED = 0x00000080 // Job has printed.
JOB_STATUS_DELETED = 0x00000100 // Job has been deleted.
JOB_STATUS_BLOCKED_DEVQ = 0x00000200 // The driver cannot print the
job.
JOB_STATUS_USER_INTERVENTION = 0x00000400 // Printer has an error that
requires the user to do something.
JOB_STATUS_RESTART = 0x00000800 // Job has been restarted.
JOB_STATUS_COMPLETE = 0x00001000 // Windows XP: Job is sent to the
printer, but the job may not be printed yet. See Remarks for more
information.

NO_PRIORITY = 0
MAX_PRIORITY = 99
MIN_PRIORITY = 1
DEF_PRIORITY = 1

PRINTER_STATUS_PAUSED = 0x00000001
PRINTER_STATUS_ERROR = 0x00000002
PRINTER_STATUS_PENDING_DELETION = 0x00000004
PRINTER_STATUS_PAPER_JAM = 0x00000008
PRINTER_STATUS_PAPER_OUT = 0x00000010
PRINTER_STATUS_MANUAL_FEED = 0x00000020
PRINTER_STATUS_PAPER_PROBLEM = 0x00000040
PRINTER_STATUS_OFFLINE = 0x00000080
PRINTER_STATUS_IO_ACTIVE = 0x00000100
PRINTER_STATUS_BUSY = 0x00000200
PRINTER_STATUS_PRINTING = 0x00000400
PRINTER_STATUS_OUTPUT_BIN_FULL = 0x00000800
PRINTER_STATUS_NOT_AVAILABLE = 0x00001000
PRINTER_STATUS_WAITING = 0x00002000
PRINTER_STATUS_PROCESSING = 0x00004000
PRINTER_STATUS_INITIALIZING = 0x00008000
PRINTER_STATUS_WARMING_UP = 0x00010000
PRINTER_STATUS_TONER_LOW = 0x00020000
PRINTER_STATUS_NO_TONER = 0x00040000
PRINTER_STATUS_PAGE_PUNT = 0x00080000
PRINTER_STATUS_USER_INTERVENTION = 0x00100000
PRINTER_STATUS_OUT_OF_MEMORY = 0x00200000
PRINTER_STATUS_DOOR_OPEN = 0x00400000
PRINTER_STATUS_SERVER_UNKNOWN = 0x00800000
PRINTER_STATUS_POWER_SAVE = 0x01000000
END

x_SYSTEM_TIME est une structure
wYear est un entier sans signe sur 2 octets
wMonth est un entier sans signe sur 2 octets
wDayOfWeek est un entier sans signe sur 2 octets
wDay est un entier sans signe sur 2 octets
wHour est un entier sans signe sur 2 octets
wMinute est un entier sans signe sur 2 octets
wSecond est un entier sans signe sur 2 octets
wMilliseconds est un entier sans signe sur 2 octets
END

x_JOB_INFO_1 est une structure
JobId est un entier // N° du job dans le spool
pPrinterName est un entier // Pointer Name of the printer for which the
job is spooled
pMachineName est un entier // Pointer Name of the machine that created the
print job.
pUserName est un entier // Pointer Name of the user who owns the print
job.
pDocument est un entier // Pointer Name of the print job (for example,
"MS-WORD: Review.doc").
pDatatype est un entier // Pointer Type of data used to record the print
job.
pStatus est un entier //Pointer to a null-terminated string that
specifies the status of the print job.
//This member should be checked prior to Status and, if pStatus is NULL,
the status
//is defined by the contents of the Status member.
Status est un entier //Specifies the job status
Priority est un entier //Specifies the job priority. This member can be
one of the following values or in the range between 1 through 99
(MIN_PRIORITY through MAX_PRIORITY).
Positi est un entier //Specifies the job's position in the print queue.
TotalPages est un entier //Specifies how many pages the document contains.
This value may be zero if the print job does not contain page delimiting
information.
PagesPrinted est un entier //Specifies the number of pages that have
printed. This value may be zero if the print job does not contain page
delimiting information.
Submitted est une x_SYSTEM_TIME //A SYSTEMTIME structure that specifies the
time that this document was spooled
END

x_PRINTER_INFO_1 est une structure
Flags est un entier
pDescription est un entier
pName est un entier
pComment est un entier
END

x_PRINTER_INFO_2 est une structure
pServerName est un entier
pPrinterName est un entier
pShareName est un entier
pPortName est un entier
pDriverName est un entier
pComment est un entier
pLocation est un entier
pDevMode est un entier
pSepFile est un entier
pPrintProcessor est un entier
pDatatype est un entier
pParameters est un entier
pSecurityDescriptor est un entier
Attributes est un entier
Priority est un entier
DefaultPriority est un entier
StartTime est un entier
UntilTime est un entier
Status est un entier
cJobs est un entier
AveragePPM est un entier
END

-------------------------------------------------------------
// Retourne la liste des imprimantes installée sur un ordinateur
// pour le moment je ne récupére pas ce qui est installé localement
FUNCTION PRINTEREnumPrinter(pComputerName)
ComputerName est une chaîne ASCIIZ sur 128 = pComputerName
tPRINTER est un tableau dynamique de 3000 x_PRINTER_INFO_2
pcbNeeded est un entier = 0
pcReturned est un entier = 0
Ret est un entier
Buf est une chaîne ASCIIZ sur 1024
ListeImprimante est une chaîne = ""
i est un entier
Flag est un entier = PRINTER_ENUM_NAME

IF ComputerName[[1 sur 2]] <> "\\" THEN ComputerName = "\\" + ComputerName
API("winspool.drv","EnumPrintersA", Flag,
&ComputerName,2,&tPRINTER,0,&pcbNeeded,&pcReturned)
Ret = API("winspool.drv","EnumPrintersA", Flag, &ComputerName, 2, &tPRINTER,
pcbNeeded, &pcbNeeded, &pcReturned)
IF Ret=1 THEN
FOR i=1 TO pcReturned

IF ListeImprimante <> "" THEN ListeImprimante += CRLF

// Le nom complet
Transfert(&Buf,tPRINTER[i]:pPrinterName,1023); ListeImprimante += Buf+TAB
// Le commentaire
Transfert(&Buf,tPRINTER[i]:pComment,1023); ListeImprimante += Buf+TAB
// Le local
Transfert(&Buf,tPRINTER[i]:pLocation,1023); ListeImprimante += Buf

END
END

RENVOYER ListeImprimante


---------------------------------------------------------------
// Renvoie une chaine séparateur TAB avec le nom des fichiers
// en attente d'impression dans le spool de l'imprimante
FUNCTION GetJobInPrinter(pPrinterName=iInfoImprimante())

hdPrint, nbDoc, i, pcbNeeded, Ret sont des entiers
PrinterName est une chaîne ASCIIZ sur 512 = pPrinterName
Buf est une chaîne ASCIIZ sur 2048 = ""
ListeDesFichiers est une chaîne = ""
tJOB est un tableau dynamique de 200 x_JOB_INFO_1

// Ouverture du handle avec l'imprimante
Ret = API( "winspool.drv", "OpenPrinterA" , &PrinterName, &hdPrint, Null)
IF Ret = 0 THEN RENVOYER ListeDesFichiers

// Lance une fois pour obtenir le nombre d'octet dont on a besoin
Ret = API( "winspool.drv", "EnumJobsA", hdPrint, 0, 1000, 1, &tJOB, 1,
&pcbNeeded, &nbDoc)

// Lance une seconde fois pour obtenir le nombre de job dans la file
d'attente
Ret = API( "winspool.drv", "EnumJobsA", hdPrint, 0, 1000, 1, &tJOB,
pcbNeeded, &pcbNeeded, &nbDoc)
IF Ret=0 THEN
API( "winspool.drv", "ClosePrinter" , hdPrint)
RENVOYER ListeDesFichiers
END

// nbDoc contient le nombre de document
IF nbDoc=0 THEN
API( "winspool.drv", "ClosePrinter" , hdPrint)
RENVOYER ""
END

// tJOB la liste des jobs
FOR i=1 TO nbDoc
WHEN EXCEPTION IN
Transfert(&Buf,tJOB[i]:pDocument,2047)
ListeDesFichiers += Buf+TAB
DO
ListeDesFichiers = ""
SORTIR
END
END

API( "winspool.drv", "ClosePrinter" , hdPrint)

RENVOYER ListeDesFichiers

----------------------------------------------------------------------------
--
// Renvoie le nombre de job d'une file d'attente d'imprimante
FUNCTION PRINTERGetNumberOfJob(pPrinterName=iInfoImprimante())

hdPrint, nbDoc, pcbNeeded, Ret sont des entiers
PrinterName est une chaîne ASCIIZ sur 512 = pPrinterName
tJOB est un tableau dynamique de 200 x_JOB_INFO_1

nbDoc = 0
Ret = API( "winspool.drv", "OpenPrinterA" , &PrinterName, &hdPrint, Null)
IF Ret = 0 THEN RENVOYER nbDoc
API( "winspool.drv", "EnumJobsA", hdPrint, 0, 1000, 1, &tJOB, 1, &pcbNeeded,
&nbDoc)
API( "winspool.drv", "EnumJobsA", hdPrint, 0, 1000, 1, &tJOB, pcbNeeded,
&pcbNeeded, &nbDoc)
API( "winspool.drv", "ClosePrinter" , hdPrint)
Dimension(tJOB,0)
RENVOYER nbDoc

----------------------------------------------------------------------------
--
FUNCTION PRINTERGetStatus(pPrinter=iInfoImprimante())
pPrinterName est une chaîne ASCIIZ sur 256 = pPrinter
phPrinter est un entier = 0
pcbNeeded est un entier = 0
RetCode est un entier
tSTATUS est un tableau dynamique de 100 x_PRINTER_INFO_2
Buf est une chaîne ASCIIZ sur 2048
Etat est un entier = 0

// Ouverture du lien vers l'imprimante phPrinter = handle sur l'imprimante
IF API( "winspool.drv" ,"OpenPrinterA", pPrinterName, &phPrinter, Null) <> 0
THEN
RetCode = API("winspool.drv", "GetPrinterA", phPrinter, 2, &tSTATUS, 0,
&pcbNeeded)
RetCode = API("winspool.drv", "GetPrinterA", phPrinter, 2, &tSTATUS,
pcbNeeded, &pcbNeeded)
IF RetCode<>0 THEN
Etat = tSTATUS[1]:status
END
API("winspool.drv", "ClosePrinter", phPrinter)
END
RENVOYER Etat



"Eric" <epaziot@domoform.fr> a écrit dans le message de
news:42b17181$1@news.pcsoft.fr...

Bonjour,

J'ai créer une imprimante sur un port redirigé qui lance mon application.

Je récupère les infos avec "EnumJobsA". Jusque la pas de
Pb..............................

Mais, je sèche complètement pour recupèrer à coup sur et de façon propre

le spool.

Le but de mon appli est de reformater des impressions en textes provenants

de # systèmes.

CORDIALEMENT

Eric

Publicado em junho, 17 2005 - 9:49 AM
MERCI, je regarde .......
Publicado em junho, 17 2005 - 10:27 AM
Je viens de tester l'ensemble.

Cela correspond à ce que je fait déjà.

Malheuresement, ce qu'il me manque, c'est la suite.

Lire le contenu du job en attente sur mon imprimante virtuel.


//////////////////////////////////////////////
N° ID = 11
Imprimante = TST_FILE_PRINTER
Machine = \\DOMO1610020
Utilisateur = xxxxxx
Job = Page de test
Data Type = NT EMF 1.008
Statuts = L'impression est en cours
Priorité = 1
Position = 1
Pages imprimés = 0 / 1
//////////////////////////////////////////////

Il y a bien le fichier spool dans

"C:\WINDOWS\system32\spool\PRINTERS"

Mais, comment connaitre le nom du bon et surtout qu'elles sont les règles de formatage de ce fichier. Le mieux serait qu'une API soit capable de restituer les lignes de texte sans formatage...............
Publicado em junho, 21 2005 - 8:35 PM
Si j'ai bien compris tu imprime sur une imprimante suspendu puis tu veux
lire le contenu du spool ?

Si c'est cela, j'ai remarqué que si on imprime avec le bloc note, sur une
imprimante suspendue,
windows génére deux fichiers dans le répertoire :
C:\WINNT\system32\spool\PRINTERS\
NNNNN.SHD et NNNNN.SPL
NNNNN correspondant au JobId

les *.spl contiennent en outre les données mais le format est assez space
les *.shd contiennent des informations sur l'imprimante et sa configuration




"Eric" <epaziot@domoform.fr> a écrit dans le message de
news:42b260f2$1@news.pcsoft.fr...

Je viens de tester l'ensemble.

Cela correspond à ce que je fait déjà.

Malheuresement, ce qu'il me manque, c'est la suite.

Lire le contenu du job en attente sur mon imprimante virtuel.


//////////////////////////////////////////////
N° ID = 11
Imprimante = TST_FILE_PRINTER
Machine = \\DOMO1610020
Utilisateur = xxxxxx
Job = Page de test
Data Type = NT EMF 1.008
Statuts = L'impression est en cours
Priorité = 1
Position = 1
Pages imprimés = 0 / 1
//////////////////////////////////////////////

Il y a bien le fichier spool dans

"C:\WINDOWS\system32\spool\PRINTERS"

Mais, comment connaitre le nom du bon et surtout qu'elles sont les règles

de formatage de ce fichier. Le mieux serait qu'une API soit capable de
restituer les lignes de texte sans formatage...............



Publicado em junho, 23 2005 - 2:17 PM
C'est bien cela.

Mais l'imprimante n'est pas suspendu, il s'agit port spécifique créé avec "redmon 1.7"