XProfan

Français

Rolf
Koch

Folgendes ist wieder la fois pas mon Stärke

Hab un Tool programmiert, wohin je sur une Drucker avec den habituel Apis zugreife.
Mir fehlt jusqu'à dato encore irgendeine Possibilité si qui Druckbefehl ankommt auparavant den le contenu auszulesen, bevor il druckt.
alors so dans qui Art: Druckerseite dans String.
Einer une concept? Mir fällt im Moment nix un

17.11.2010 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

- page 2 -

« cette Beitrag wurde comme Solution gekennzeichnet. »

- page 4 -

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

Rolf Koch (11/20/10)

So hatte vorm Konzert nochmal gekuckt et festgestellt, qui
imprimer test&,wi&,he&
toujours 0,0,0 printen.
bof la fois gemütlich rangehen et étudier ^ ^

Si fragt à qui falschen Stelle qui Devmode-Struktur.

Hoch ou bien Querformat steht à Position 44 comme word 1 ou bien 2

Kompilieren Marque Séparation

 {$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"
Déclarer JOB_INFO_1#
Déclarer druckername$,dokument$,dstring$
Déclarer Ende%,lb&,old_count&,entry$,sounddir$,lizenz$
Déclarer hicon&,cancel&,Title$,Version$,config$
Déclarer 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
//Fenêtre Style 64
CLS
imprimer usedll("winspool.drv")
imprimer printer$
imprimer OpenPrinterA(Addr(Printer$),Addr(hPrinter&),0)
imprimer hPrinter&
chgObject& = FindFirstPrinterChangeNotification(hPrinter&,&PRINTER_CHANGE_JOB, 0, 0)
imprimer chgObject&
dateipfad$=$progdir
dstring$="Drucktest.rtf"'Wordpad Dossier sous Drucktest.rtf gespeichert pour Test!
' Am besten une Filedruck auswählen, avec cela on ne...aucune papier usé.
settimer 50

WhileNot Ende%

    Waitinput

    Si %wmtimer

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

        Si fcnreturn&

            Si pdwChange& = &PRINTER_CHANGE_ADD_JOB

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

                Repeat

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

                    Si BytesReturned&

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

                    EndIf

                Until BytesReturned& = 0

                Si foundprint&=1

                    imprimer dokument$
                    imprimer dstring$
                    imprimer drv$
                    imprimer test&,wi&,he&
                    Imprimer Si (Orientation& = 1,"Hochformat","Querformat")

                    Si dokument$=dstring$

                        'playsound sounddir$+"doorbell.wav",1 'ICI SOUNDAUSGABE
                        PRINT "Jetzt serait qui le haut-parleur Dingdong spielen"

                    EndIf

                EndIf

            EndIf

        EndIf

    EndIf

Endwhile

FindClosePrinterChangeNotification(chgObject&)
ClosePrinter(hPrinter&)
killtimer
Fin

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 citation

Absatzweise Citation Zeilenweise Citation

E.T.

Ah oui. et dans qui Dossier darfst du nich gucken...

[OFFTOPIC]car es wäre oui ne...aucune Problem, aus deinem Prog. sur chacun trop druckende Dossier trop réagir, ggf. irgendwo im Dok une Überschrift auszulesen et ensuite, si Überschrift = "gefällt mir", dans deinem Prog sur elle trop réagir...[/OFFTOPIC]

Freiheit pour qui Drucker (et en Datei'n et Anwender)

ou bien 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 citation

Absatzweise Citation Zeilenweise Citation

Rolf
Koch

peux je pas kucken, je weis encore pas la fois wohin qui liegt, wohin qui her venez oui c'est ca et vieles plus (Werde je aussi niemals Infos bekommen, ist déjà un Wunder, qui je qui Erlaubnis pour mon Tool bekommen habe). Deswegen veux je qui oui (quoi mir lente unmöglich erscheint) den le contenu direct avant lieu lesen.

et mon orthographe sollte je aussi la fois auslesen et ensuite automatisch regulieren laisser

17.11.2010 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

E.T.

bof, cela wohin sollte oui pas cela Problem son (Standard: %SYSTEMROOT%\System32\spool\printers). si on wenigstens à qui Drucker-Einstellungen (aussi seulement zum lesen) rankommt, peux on cela Verz. oui aussi rausfinden:

Druckerverwaltung ouvrir, avec à droite ins le vide klicken et dans den Druckservereigentschaften findest Du den Pfad pour den Spooler.

. ensuite hätte on oui déjà la fois un Verzeichnis, welches sur trop druckende Dok's überprüft volonté pourrait...

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 citation

Absatzweise Citation Zeilenweise Citation

E.T.

ah bon, %SYSTEMROOT% ist bestimmt wieder pas libre 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 citation

Absatzweise Citation Zeilenweise Citation

Rolf
Koch

Tjo, ah attends simple la fois. L'idée avec dem Printdir ist supi. cependant je veux absolument une kurzen Tricklosen Weg - ansonsten lass je es. une Api qui quelque chose comme pourrait. je such la fois plus.

17.11.2010 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

<-- toujours pas herausgelesen hat quelle Informationen überhaupt vorliegen ^ ^

Woher venez "JavaPrinting" bzw. wohin stehts et/ ou bien comment ermittelst Dus?

17.11.2010 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Rolf
Koch

@iF qui Dokumententitel liegt avant et à den komm je ran et cette hat bisher toujours gereicht. maintenant comment dit ist qui Titel verallgemeinert worden et ist pas plus besonders identifizierend.

17.11.2010 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Rolf Koch (17.11.10)

@iF qui Dokumententitel liegt avant et à den komm je ran et cette hat bisher toujours gereicht. maintenant comment dit ist qui Titel verallgemeinert worden et ist pas plus besonders identifizierend.

quoi mon Frage "Woher venez "JavaPrinting" bzw. wohin stehts et/ ou bien comment ermittelst Dus?" durchaus pas beantwortet!

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

17.11.2010 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Rolf
Koch

Kompilieren Marque Séparation

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 si $dokument=dstring$
là vergleiche Je l' Dokumententitel. qui vom Drucker venez et Dstring, quelle de aussen (inidatei) einstellbar ist.

17.11.2010 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

[OFFTOPIC]
E.T. (17.11.10)

Freiheit pour qui Drucker (et en Datei'n et Anwender)

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

oui c'est ca, je trouve aussi cela Du calme Votre Webserverzugangsdaten ici la fois enfin preisgeben devrait! Viva la Web!

[/OFFTOPIC]

17.11.2010 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Rolf
Koch

Bevor je dusche et Bett vais:
alors là konnt je toujours joli Sound ausgeben, si Dokument=Warenausgabe.grp
maintenant
Dokument=JavaPrinting klappt bien, mais aussi chez diversen anderen Druckjobs.
maintenant verständlicher?
Firmensoftware wurde arrêt geändert et somit aussi qui Dokutitel ^ ^

17.11.2010 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

E.T.

...maintenant devrait on arrêt savons, quoi dans qui "JavaPrinting" drinn steht...

[OFFTOPIC]@IF: würd je oui faire, si je selbige pas oublier qc 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 citation

Absatzweise Citation Zeilenweise Citation

◄

123 4 5 6 7

►