XProfan

- Página 3 -

Rolf
Koch

Juhu con Temporizador gehts perfekt. Sound kommt en Druck *freu* Gracias E.T.
Jetzt sólo bisschen spielen en entonces später nen Testlauf en el Fa. a tätigen ^ ^
Tiempo kucken qué en el Tempdatei drin es, así Yo sólo en spezielle Ausdrucke reagieren kann. Denn sonst druckt uno una normales Dokument y lo se behauptet: Achtung Kunde en el Anmarsch *lol*

Rolf
Koch

Bohhha Gracias Andreas se sí siempre cooler ^ ^ - o ne- Variante

Andreas, qué meinste, puede ser irgendwie erkennen, worum lo beim Druck es?

E.T.

Schau veces en el .SPL-Expediente en el Spooler.
Ahí está así einiges drinn (woher, Dateiname etc.)
(Mach simplemente con Notepad más o menos en...)

EDIT:
Der Expediente-Name es no drin, aber uno nachvollziehen, wo lo herkommt:
%!PS-Adobe-3.0
%%Title: PRFellow 2001
%%Creator: PScript5.dll Versión 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. (por qué komme Yo eigentlich komisch antes si yo Usted anspreche *lol*)
Komme me en el Moment antes como una Principiante. @Andreas: Yo nutze XPSE y
FindNextPrinterChangeNotification se z.b. como undeclariert angemosert.

E.T.

...(por qué komme Yo eigentlich komisch antes si yo Usted anspreche *lol*) ...

¿Por qué, tener Yo doch incluso rausgesucht. Und unten es auch todavía una richtiger Name, si Usted el mejor gefällt

Komme me en el Moment antes como una Principiante.

¿Por qué ?? Yo bin auch sólo una Hobby-Programmierer. Yo me en Profano sólo angewöhnt, más bien sólo veces después de nem einfachen Weg a suchen, como irgendwelche APIs a verwursteln, el lo entonces en una otro BS otra vez veces no son.

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, tal vez hilfts qué..

Winspool....png	4 kB

Hochgeladen:	21.12.2008

Ladeanzahl:
		Descargar

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

Mensch Mario, klar kenn Yo Su Namen

Aber Yo finds eben lustig con un Wesen de meiner Kindheit a sprechen

Naja, el con Principiante bezieht se darauf, porque Yo no dahinterkomme por qué XPSE como undeklariert meckert.

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

Rolf Koch

@Andreas: Yo nutze XPSE y
FindNextPrinterChangeNotification se z.b. como undeclariert angemosert.

Yo benutze kein XPSE, tal vez kann If el irgendwann veces erweitern.

Hier una Code el unos pocos Infos ermittelt.
Kompilieren Marca Separación

 $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
Su código kann Yo irgendwie no en mi Anwendung einbauen, como Soy un Temporizador nutze y esta auch weiterhin nutzen möchte. Wenn Yo, el Temporizador nutze y Su código en %WMTIMER poner, así muss Yo, el Temporizador extremo niedrig conjunto y alles otro klappt natürlich no mehr: Menü en Taskbar y Co aufgrund el kurzen Timerdauer. Lo kommen auch no todos Dokumentennamen a - z.b. de Paint, Winhelp u.s.w.

@E.T.
Klappt zumindest hier super y perfekt. Aber desafortunadamente es el Systemordner Spooler en el Fa. zugriffgeschützt y yo kann hay natürlich nichts auslesen.
Und wenns entonces klappt con el Auslesen y yo el Expediente einlesen voluntad (lo va sólo el SHD Expediente, porque el SPL es siempre leer) entonces voluntad el Archivos de Windows no mehr automáticamente gelöscht.
Einer una Concepto?

22.12.2008 ▲

Normalerweise haben solche Aufgaben nen eigenen Hilo, also restos Usted sólo el Zweitprozess - erlaubt?

22.12.2008 ▲

Frank
Abbing

Usted könntest el API StartDoc hooken. Besser tal vez StartPage, porque el otro API de älteren Programmen mittels Escape simulado voluntad podría.
Das wäre una muy sichere Método, denke Yo.

22.12.2008 ▲