XProfan

Español

Rolf
Koch

Hallöchen heut frag Yo veces así en el Runde, como I, con Drucken nie soviel gemacht habe.
Folgende Problemstellung:
Wir haben en uns una Computer con Drucker en el Lager.
Wenn una Kunde una Gerät gekauft ha y a el Kasse bezahlt ha, así kommt en uns una entsprechender Beleg de el Drucker, así wir el Waschmaschine, TV oder solch una Zeugs raussuchen puede.
Jetzt sería Me gusta una nebenbeilaufendes Tool escribir, welches una Sound abspielt, si una solcher Beleg de el Drucker kommt.
Meint Ihr, Yo podría dies irgendwie erreichen?

20.12.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

- Página 4 -

E.T.

...Aber desafortunadamente es el Systemordner Spooler en el Fa. zugriffgeschützt y yo kann hay natürlich nichts auslesen. ...

Ya está schlimm, si una Firma incluso ihren Drucker-Server sichern muß (siempre esta Programmierer, el versuchen, a alles mögliche ranzukommen )

@Rolf: Kommst Usted porque a el Drucker-Einstellungen ran ?? Si el Problema sólo en el Zugriffs-Rechten para el Win-Directorio liegt, entonces stell doch simplemente en el Drucker-Server una más Spool-Directorio una, el du entonces Zugriff hast. Dem Drucker ists egal, de wo de él beschickt se (natürlich debería al Directorio no ändern, während Druckaufträge aktiv son

).

Das Spool-Directorio para todos Drucker kannst du como folgt ändern:
1. "Drucker y Faxgeräte" abierto (Systemsteuerung oder Start)
2. In diesem Ventana en el Leere con el rechtem Botón del ratón clic
3. Servereigenschaften wählen
4. Bajo "Erweiterte Optionen" el Spool-Directorio ändern y
freuen, el du bajo por ejemplo C:MeinSpooler Vollen Zugriff hast.

Wenn du en esta Einstellung auch no zugreifen kannst :

Um en el Expediente unabhängig vom Auftrag zuzugreifen, debería esta inmediatamente en Eintreffen kopiert voluntad*, entonces kannst du esta auswerten, y Win kann ellos löschen, si Drucker sagt: "haben fertig" oder "Haben alles en el Speichel gespeichelt" (sagen aber sólo Chinesische "Made-en-Hongkong"-Drucker

).

* para kopieren restos no viel Tiempo, a Win esta Expediente en (Druck-) Erfolg löscht. Aber una "normaler" Drucker ha nie soviel Speicher, como el el Expediente no "lange genug" para kopieren "da" es.

(Alle Einstellungen de Win XP, otro Win-Versionen puede de-(en-)weichen !!!)

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

23.12.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

OK Gracias Euch Yo voluntad entonces veces más schauen.

23.12.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Frank
Abbing

Kann él sí eben con XProfan no... por lo tanto sí mi Cuestión si Rolf se al nötig Zweitprozess stören sería.

Oder Usted bastelst en nen eigenen Hilo por DLL Franco!

(obwohl Yo fast su überzeugt bin, dass cada neue Fremd-Hilo innerhalb des XProfanprozesses a Problemen führt - desafortunadamente sólo así selten)

Mittels XPIA dürfte el kein Problema darstellen. Immerhin liegt el Maschinencode entonces como Dll antes y todos Vorraussetzungen son erfüllt. Schon vergessen?
Und dank MemoryModulen braucht no Extradatei gespeichert a voluntad.

23.12.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

@Andreas
Hab con su Schnipsel y mi Tool una Programa hinbekommen, como no mejor trabajo kann

-DANKE!
Einzig el Temporizador en 50 y waitforsingleobject dejar bisschen el Menü leiden. Aber el Personas en unserem Lager benötigen el Menü sí sowieso no y si sólo 2 a 3 veces clic

COOOOL y nochmals Gracias, porque lo se ejecuta wirklich zufriedenstellend y zuverlässig.
@E.T.
Auch Usted Gracias para el Tipps, tener einiges dadurch hinzuglernt.
Klar auch a el otro Gracias para el Tipps

24.12.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

@Rolf,

el Himweis de IF con el Zweitprocess war ya correcto, hätte Yo así gemacht, si yo lo programa debería.
Einfach el Procedur kompilieren y vom Programa el PRC-Expediente starten dejar. Zwischen el beiden laufenden Hilos puede ser entonces sin Problemas auch Meldungen austauschen.

Aber bien, si auch así funktioniert, freut lo mich auch.

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 : [...]

24.12.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

Sí Andreas stimmt, pero yo darf en keinster Weise una Risiko eingehen, como I, con una pequeño Problema el todo Warenausgabe kaputt hacer sería y yo en diesem Fall wirklich absolut en 100% sicher ir voluntad.

24.12.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

Leider komm I, con el neusten Problema meines Programmes no mehr klar.
Folgendes: Programa lief Jahrelang einwandfrei por y machte DING DONG, si una Kundenbeleg gedruckt wurde.
Seit una neuer Drucker, welcher korrekt installiert wurde angeschlossen es y Windows 7 en el Rechner se ejecuta, así macht él sólo todavía de y a DING DONG, also si él Lust darauf ha. Yo habe nichts geändert. Einer una Concepto?

XProfan X2
Win7 Home Premium, P4 3.40GHz

05.07.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Juhuhuhu Rolf!

Leider Yo kein Win7 a hand aber kannst Usted el Ver código fuente des Kernes el
Anwendung veces puesto?

XProfan X2
WinXP, SP3 v.3244, P4 3.06GHz

06.07.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

Jepp hier, es el una Página vorher de Andreas:
Kompilieren Marca Separación

'URL: https://xprofan.com/intl/de/forum/druckerauftrag-ermitteln/?&pg=3
 $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& = 1'Abbruchbedingungen vielleicht besser mit einem Button bestimmen ?

FindClosePrinterChangeNotification(chgObject&)
ClosePrinter(hPrinter&)
href='./../../funktionsreferenzen/XProfan/end/'>end

Was me heute aufgefallen es, Es el Tatsache, dass el lokal gedruckten Páginas todos ankommen. Wenn sin embargo algo vom Server a el Drucker gesendet se, así bekommt mein Programa esto no es "mehr" siempre con. Irgendeine Einstellung? Hmm?

XProfan X2
Win7 Home Premium, P4 3.40GHz

06.07.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

Erlaube me otra vez mi Cuestión erneut a stellen.
Como geschrieben, si local encima Drucker se erkannt, si aber encima Netzwerk gedruckt se, also Auftrag kommt vom Server y Página se encima esta Drucker geschickt, así nichts erkannt

Grüsse
Rolf

XProfan X2
Win7 Home Premium, SP1, AMD A4-3400 APU with Radeon(tm) HD Graphics

27.10.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

Nochwas:
Mir fällt gerade una, daß el Drucker una propio IP ha, tal vez es hier sí una Freak (IF ^ ^ ?), wer una Concepto ha en hay anzusetzen? Also algo a el IP gesendet se más o menos? No direkt mein Fachgebiet, pero estoy buscando después de Ersatzmöglichkeiten.
Thx en el Vorraus.

XProfan X2
Win7 Home Premium, SP1, AMD A4-3400 APU with Radeon(tm) HD Graphics

28.10.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

¡Hola Rolf,

möglicherweise va el una WMI - Abfrage (Printjob).
Komme en el Moment por desgracia, no a una Ejemplo, tal vez al Feiertag oder el nächstem Wochenende.