XProfan

Español

Rolf
Koch

Folgendes es otra vez veces no mi Stärke

Hab una Tool programmiert, wo I una Drucker con el üblichen Apis zugreife.
Mir fehlt a dato todavía irgendeine Möglichkeit si la Druckbefehl ankommt vorher el Inhalt auszulesen, bevor él druckt.
Also así en el Art: Druckerseite en String.
Einer una Concepto? Mir fällt en el Moment nix una

17.11.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

- Página 2 -

« Dieser Contribución wurde como Solución gekennzeichnet. »

- Página 4 -

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

Rolf Koch (11/20/10)

So hatte vorm Konzert otra vez gekuckt y festgestellt, daß
imprimir test&,wi&,he&
Immer 0,0,0 printen.
Naja veces gemütlich rangehen y studieren ^ ^

If fragt a el falschen Punto el Devmode-Struktur.

Hoch oder Querformat es a Position 44 como word 1 oder 2

Kompilieren Marca Separación

 {$cleq}
 $H Windows.ph
 $H winspool.ph
DEF Get_STDPrinter(1) Substr$(ReadIni$("WIN.INI","Windows","Device"),@&(1),",")
DEF &PRINTER_CHANGE_JOB  $FF00
DEF &INFINITE $FFFFFFFF
DEF &PRINTER_CHANGE_ADD_JOB $100
DEF OpenPrinterA(3) !"winspool.drv","OpenPrinterA"
DEF FindFirstPrinterChangeNotification(4) !"winspool.drv","FindFirstPrinterChangeNotification"
DEF FindNextPrinterChangeNotification(4) !"winspool.drv","FindNextPrinterChangeNotification"
DEF EnumJobsA(8) !"winspool.drv","EnumJobsA"
DEF FindClosePrinterChangeNotification(1) !"winspool.drv","FindClosePrinterChangeNotification"
DEF ClosePrinter(1) !"winspool.drv","ClosePrinter"
Declarar JOB_INFO_1#
Declarar druckername$,dokument$,dstring$
Declarar Ende%,lb&,old_count&,entry$,sounddir$,lizenz$
Declarar hicon&,cancel&,Title$,Versión$,config$
Declarar wav$,dateipfad$,belege$,wurde$,new$,abelege%
Var InfoBuffer& = 0
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 foundprint& = 0
Var Printer$ = Get_STDPrinter(1)
Var devmoaddr&=0
Var drv$=""
Var wi&=0
Var he&=0
Var Orientation&=0
Var test&=0
//Ventana de Estilo 64
CLS
imprimir usedll("winspool.drv")
imprimir printer$
imprimir OpenPrinterA(Addr(Printer$),Addr(hPrinter&),0)
imprimir hPrinter&
chgObject& = FindFirstPrinterChangeNotification(hPrinter&,&PRINTER_CHANGE_JOB, 0, 0)
imprimir chgObject&
dateipfad$=$progdir
dstring$="Drucktest.rtf"'Wordpad Expediente bajo Drucktest.rtf gespeichert para Test!
' Am besten una Filedruck auswählen, así uno kein Papier verbraucht.
settimer 50

Sinestar encargado Ende%

    Waitinput

    If %wmtimer

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

        If fcnreturn&

            If pdwChange& = &PRINTER_CHANGE_ADD_JOB

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

                Repeat

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

                    If BytesReturned&

                        'Localizar 0,0
                        druckername$=String$(Largo(JOB_INFO_1#,4),0)
                        dokument$=String$(Largo(JOB_INFO_1#,16),0)
                        foundprint&=1
                        devmoaddr&=Largo(JOB_INFO_1#,40)
                        test&=long(devmoaddr&,104)
                        wi&=long(devmoaddr&,108)
                        he&=long(devmoaddr&,112)
                        Orientation&=word(devmoaddr&,44)
                        drv$=cadena$(devmoaddr&,0)

                    EndIf

                Until BytesReturned& = 0

                If foundprint&=1

                    imprimir dokument$
                    imprimir dstring$
                    imprimir drv$
                    imprimir test&,wi&,he&
                    Imprimir If (Orientation& = 1,"Hochformat","Querformat")

                    If dokument$=dstring$

                        'playsound sounddir$+"doorbell.wav",1 'HIER SOUNDAUSGABE
                        PRINT "Jetzt sería el Lautsprecher Dingdong spielen"

                    EndIf

                EndIf

            EndIf

        EndIf

    EndIf

EndWhile

FindClosePrinterChangeNotification(chgObject&)
ClosePrinter(hPrinter&)
killtimer
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 : [...]

20.11.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

E.T.

Ah sí. Und en el Expediente darfst du nich gucken...

[OFFTOPIC]Denn lo wäre sí kein Problema, de deinem Prog. en jede a druckende Expediente a reagieren, ggf. irgendwo en el Dok una Überschrift auszulesen y luego, si Überschrift = "gefällt mir", en deinem Prog en él a reagieren...[/OFFTOPIC]

Freiheit para el Drucker (y deren Datei'n y Anwender)

oder anders ausgedrück: Sch... Rechte des Admin's

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...

17.11.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

Kann Yo no kucken, Yo weis todavía no veces wo el liegt, wo el her kommt genau y vieles mehr (Werde Yo auch niemals Infos bekommen, es ya una Wunder, Yo el Erlaubnis para mein Tool bekommen habe). Deswegen voluntad Yo el sí (qué me langsam unmöglich erscheint) el Inhalt direkt antes Ort lesen.

Und mi Rechtschreibung debería Yo auch veces auslesen y luego automáticamente regulieren dejar

17.11.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

E.T.

Naja, el wo debería sí no el problema ser (Standard: %SYSTEMROOT%\Sistema32\spool\printers). Wenn uno wenigstens a el Drucker-Einstellungen (auch sólo para lesen) rankommt, puede ser el Verz. en efecto rausfinden:

Druckerverwaltung abierto, con rechts en el vacío clic y el Druckservereigentschaften findest Usted el Pfad para el Spooler.

. Dann hätte uno sí ya veces un directorio, welches en a druckende Dok's überprüft voluntad podría...

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...

17.11.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

E.T.

Ach así, %SYSTEMROOT% es determinado otra vez no frei lesbar...

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...

17.11.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

Tjo, ach warte simplemente veces. La idea con el Printdir es supi. Jedoch Yo voluntad necesariamente una kurzen Tricklosen Weg - ansonsten lass Yo. Un Api el algo como podría. Yo such veces más.

17.11.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

<-- siempre todavía no herausgelesen ha welche Informationen überhaupt vorliegen ^ ^

Woher kommt "JavaPrinting" o. wo stehts y/ oder como ermittelst Dus?

17.11.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

@IF Der Dokumententitel liegt antes y a el komm Yo ran y dieser ha bisher siempre gereicht. Jetzt como dijo es el Titel verallgemeinert worden y es no mehr besonders identifizierend.

17.11.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf Koch (17.11.10)

@IF Der Dokumententitel liegt antes y a el komm Yo ran y dieser ha bisher siempre gereicht. Jetzt como dijo es el Titel verallgemeinert worden y es no mehr besonders identifizierend.

Was mi Cuestión "Woher kommt "JavaPrinting" o. wo stehts y/ oder como ermittelst Dus?" durchaus no beantwortet!

"liegt vor" <-- stille Post?! ^ ^

17.11.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

Kompilieren Marca Separación

if %wmtimer

    ~WaitForSingleObject(chgObject&,150)'200 Millisekunden warten
    fcnreturn& = FindNextPrinterChangeNotification(chgObject&, Addr(pdwChange&),0,0)
    foundprint&=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
                    druckername$=String$(Long(JOB_INFO_1#,4),0)
                    dokument$=String$(Long(JOB_INFO_1#,16),0)
                    foundprint&=1

                Endif

            Until BytesReturned& = 0

            if foundprint&=1

                'print dokument$

                if dokument$=dstring$

                    ' if dokument$="kdsound - Editor" ' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
                    abelege%=abelege%+1

                    if readini$(config$,"SOUND","ON") = ""

                        playsound sounddir$+"doorbell.wav",1'HIER SOUNDAUSGABE

                    endif

                endif

            endif

        endif

    Endif

Schaue if $dokument=dstring$
hay Comparo el Dokumententitel. Der vom Drucker kommt y Dstring, welche de aussen (inidatei) ajustable es.

17.11.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

[OFFTOPIC]
E.T. (17.11.10)

Freiheit para el Drucker (y deren Datei'n y Anwender)

oder anders ausgedrück: Sch... Rechte des Admin's

Exactamente, Yo finde auch el Usted ruhig Su Webserverzugangsdaten hier veces endlich preisgeben solltest! Viva la Web!

[/OFFTOPIC]

17.11.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

Antes de que yo dusche y Bett gehe:
Also hay konnt Yo siempre schön Sound ausgeben, si Dokument=Warenausgabe.grp
ahora
Dokument=JavaPrinting klappt bien, aber auch en diversen otro Druckjobs.
Jetzt verständlicher?
Firmensoftware wurde sólo geändert y somit auch el Dokutitel ^ ^

17.11.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

E.T.

...ahora debería uno sólo wissen, qué en el "JavaPrinting" drinn es...

[OFFTOPIC]@IF: würd Yo sí hacer, si yo selbige no vergessen hätte...[/OFFTOPIC]

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...

17.11.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

◄

123 4 5 6 7

►