XProfan

- page 3 -

Rolf
Koch

Juhu avec Minuteur gehts parfait. Sound venez chez Druck *freu* merci E.T.
maintenant seulement bisschen spielen um ensuite später nen Testlauf dans qui Fa. trop tätigen ^ ^
la fois kucken quoi dans qui Tempdatei drin steht, avec cela je seulement sur spezielle Ausdrucke réagir peux. car sonst druckt einer un normales Dokument et es wird behauptet: attention Kunde im Anmarsch *lol*

Rolf
Koch

Bohhha merci Andreas wird oui toujours cooler ^ ^ - encore ne variante

Andreas, quoi meinste, peux on irgendwie erkennen, worum es sich beim Druck handelt?

E.T.

exposition la fois dans qui .SPL-Dossier im Spooler.
là steht so einiges drinn (woher, Dateiname etc.)
(Mach simple avec Notepad ou bien so sur...)

EDIT:
qui Dossier-nom steht pas drin, mais on nachvollziehen, wohin es herkommt:
%!PS-Adobe-3.0
%%Title: PRFellow 2001
%%Creator: PScript5.dll Version 5.2
%%CreationDate: 12/21/2008 12:55:44
%%For: Mario
%%BoundingBox: (atend)
%%Pages: (atend)
%%Orientation: Portrait
%%PageOrder: Special

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

Rolf
Koch

Stimmt E.T. (pourquoi viens je mir eigentlich komisch avant si je toi anspreche *lol*)
viens mir im Moment avant comment un Débutant. @Andreas: je nutze XPSE et
FindNextPrinterChangeNotification wird z.b. comme undeclariert angemosert.

E.T.

...(pourquoi viens je mir eigentlich komisch avant si je toi anspreche *lol*) ...

Pourquoi, hab je mir doch selbst rausgesucht. et unten steht aussi encore un richtiger nom, si Dir cela besser comme

viens mir im Moment avant comment un Débutant.

pourquoi ?? je suis aussi seulement un Hobby-Programmierer. je hab mir chez Profan seulement angewöhnt, lieber seulement la fois pour nem einfachen Weg trop chercher, comme irgendwelche APIs trop verwursteln, qui es ensuite chez einem anderen BS wieder la fois pas gibt.

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

E.T.

FindNextPrinterChangeNotification >> siehe Anhang, peut-être hilfts quoi..

Winspool....png	4 kB

Hochgeladen:	21.12.2008

Downloadcounter:
		Download

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

Rolf
Koch

homme Mario, bien sûr kenn je Deinen Namen

mais je finds plan lustig avec einem Wesen aus meiner Kindheit trop parler

bof, cela avec Débutant bezieht sich puis, weil je pas dahinterkomme pourquoi XPSE comme undeklariert meckert.

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

Rolf Koch

@Andreas: je nutze XPSE et
FindNextPrinterChangeNotification wird z.b. comme undeclariert angemosert.

je benutze ne...aucune XPSE, peut-être peux Si cela irgendwann la fois erweitern.

ici un Code qui un paire Infos ermittelt.
Kompilieren Marque Séparation

 $H windows.ph
DEF Get_STDPrinter(1) Substr$(ReadIni$("WIN.INI","Windows","Device"),@&(1),",")
Var InfoBuffer& = 0
Var Spool& = ImportDll("Winspool.drv","")
cls
DEF &PRINTER_CHANGE_JOB  $FF00
DEF &INFINITE $FFFFFFFF
DEF &PRINTER_CHANGE_ADD_JOB $100
Declare JOB_INFO_1#
Var BytesNeeded& = 0
Var BytesReturned& = 0€
Var A& = 0
Var L& = 0
Var chgObject& = 0
Var pdwChange& = 0
Var fcnreturn& = 0
Var hPrinter& = 0
Var Printer$ = Get_STDPrinter(1)
OpenPrinterA(Addr(Printer$),Addr(hPrinter&),0)
chgObject& = FindFirstPrinterChangeNotification(hPrinter&,&PRINTER_CHANGE_JOB, 0, 0)

Repeat

    ~WaitForSingleObject(chgObject&,200)200 Millisekunden warten
    fcnreturn& = FindNextPrinterChangeNotification(chgObject&, Addr(pdwChange&),0,0)

    If fcnreturn&

        If pdwChange& = &PRINTER_CHANGE_ADD_JOB

            Print "neuer Druck-Job"
            EnumJobsA(hPrinter&,0,1,1,0,0,Addr(BytesNeeded&),Addr(BytesReturned&))
            Dim JOB_INFO_1#,BytesNeeded&

            Repeat

                EnumJobsA(hPrinter&,0,1,1,JOB_INFO_1#,BytesNeeded&,Addr(BytesNeeded&),Addr(BytesReturned&))

                If BytesReturned&

                    Locate 0,0
                    Print "Druckername :"+String$(Long(JOB_INFO_1#,4),0)
                    Print "Dokument : "+String$(Long(JOB_INFO_1#,16),0)
                    Print "Seiten : "+str$(Long(JOB_INFO_1#,36))
                    Print "Status : "+str$(Long(JOB_INFO_1#,24))

                Endif

            Until BytesReturned& = 0

            Print "Druck beendet"

        endif

    Endif

Until A& = 1Abbruchbedingungen vielleicht besser mit einem Button bestimmen ?

FindClosePrinterChangeNotification(chgObject&)
ClosePrinter(hPrinter&)
ref='./../../references-fonction/XProfan/end/'>end

Gruss
Andreas
________ ________ ________ ________ _
Profan 3.3 - XProfanX2
Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit
ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher
Homepage : [...]

Rolf
Koch

@Andreas
Deinen Code peux je irgendwie pas dans mon Anwendung einbauen, là je une Minuteur nutze et cette aussi weiterhin nutzen voudrais. si Je l' Minuteur nutze et Deinen Code dans %WMTIMER mets, so muss Je l' Minuteur extrem niedrig mettons et alles autre klappt naturellement pas plus: menu dans Taskbar et Co aufgrund qui kurzen Timerdauer. Es venons aussi pas alle Dokumentennamen à - z.b. aus Paint, Winhelp u.s.w.

@E.T.
Klappt zumindest ici super et parfait. mais malheureusement ist qui Systemordner Spooler dans qui Fa. zugriffgeschützt et je peux là naturellement rien auslesen.
et wenns ensuite klappt avec dem Lecture et je qui Dossier einlesen veux (und dir seulement qui SHD Dossier, car qui SPL ist toujours vide) ensuite volonté qui Fichiers de Windows pas plus automatisch gelöscht.
Einer une concept?

22.12.2008 ▲

normalement avons solche Aufgaben nen eigenen Fil, alors bleibt Dir seulement qui Zweitprozess - erlaubt?

22.12.2008 ▲

Frank
Abbing

Du könntest qui API StartDoc hooken. Besser peut-être StartPage, weil l'autre API de älteren Programmen mittels Escape simuliert volonté pourrait.
cela wäre une très sichere Methode, denke je.

22.12.2008 ▲