| |
| |
|
| - Page 1 - |
|
Rolf
Koch | Hallöchen today frag I time so into round, I with Print never so much made have.
following approach to the problem:
we've with us one computer with printer on the camp.
If one customer one unit bought has and on the cash-desk payd has, so comes with us one entsprechender voucher from the printer, so we The washing-machine, TV or such one Zeugs raussuchen can.
now would I gladly one nebenbeilaufendes Tool write, which a Sound abspielt, if one such voucher from the printer comes.
means your, I could this somehow achieve? |
|
| |
| |
| |
|
| |
| |
| - Page 4 - |
|
|
E.T. |
...but unfortunately is the Systemordner Spooler in the Fa. zugriffgeschützt what about me can there naturally nothing read. ...
is already bad, if a firm self ihren printer-Server secure must (always these Programmer, The try, on all sorts of things ranzukommen  )
@Rolf: come Thou on The printer-Settings ran ?? If the trouble only into Zugriffs-Rechten for the Win-directory lying, then stell still simply in the printer-Server one other Spool-directory one, the You then grabbed have. the printer ists alike, of where from it beschickt becomes (naturally ought to to the directory not Change, during Druckaufträge active are  ).
the Spool-directory for any printer can you How follows Change:
1. "Drucker and Faxgeräte" open (Systemsteuerung or Start)
2. in this Window in that vain with the rechtem Mouse button clicking
3. Servereigenschaften dial
4. under "Erweiterte Optionen" the Spool-directory change and
forward, that you under in example C:MeinSpooler filled grabbed have.
If you on these attitude neither grab can : 
circa on The File independent of order access, should these immediate with come in copies go*, then can you these evaluate, and Win can tappt im dunkeln delete, if printer says: "haben fertig" or "Haben everything in the spits gespeichelt" (say but only chinese "Made-in-Hongkong"-printer  ).
* to that copy remaining not plenty Time, To Win these File with (pressure-) success deletes. but one "normaler" printer has never so much memory, as the The File not "Long genug" to that copy "da" is.
(any Settings from Win XP, others Win-versions can ex-(on-)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... | 12/23/08 ▲ |
|
| |
|
|
Rolf
Koch | | OK thanks you i'll then time moreover look. |
|
| |
| |
| |
|
|
Frank
Abbing | iF
can it Yes even with XProfan not... therefore Yes my question whether Rolf itself on the necessary Zweitprozess disturbing would. or You bastelst in NEN own Thread by DLL Frank!  (though I almost of it convincing be, that eachone new strange-Thread inside the XProfanprozesses To Problemen lead - unfortunately only so seldom)
Through XPIA might the no trouble present. still lying the Maschinencode then as Dll to and any Vorraussetzungen are erfüllt. already forget?
and dank MemoryModulen need no Extradatei stored To go.  |
|
| |
| |
| |
|
|
Rolf
Koch | @Andreas
Have with your shred and my Tool one Program hinbekommen, as not rather functions can  -THANK YOU!
only the Timer on 50 and waitforsingleobject let bisschen the Menu suffering. but The people in unserem camp need the Menu Yes anyhow not and if hold 2 To 3 time clicking COOOOL and over again thanks, because it's running really zufriedenstellend and reliably.
@E.T.
too you thanks for Tipps, Have some therefore hinzuglernt.
clear too on The others thanks for Tipps |
|
| |
| |
| |
|
|
Andreas
Miethe
 | @Rolf,
the Himweis of IF with the Zweitprocess was already correctly., had I so made, if I it program should.
simply The Procedur kompilieren and of Program The PRC-File started let. between whom both ongoing Threads You can then without Problems too informations replace.
but well, if it too so functions, freut it me too. |
|
| |
| 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 : [...]  | 12/24/08 ▲ |
|
| |
|
|
Rolf
Koch | | Yes Andreas is correct, but I must in keinster point one risk come in, I with a small The problem whole Warenausgabe broken make would what about me in this drop really utterly on 100% sure weg wants. |
|
| |
| |
| |
|
|
Rolf
Koch | unfortunately komm I with the newest trouble of my Program not any more clear.
The following: Program running Jahrelang correct through and made DING DONG, if one Kundenbeleg printed watts.
since one new printer, which correctly installs watts connected is and Windows 7 on the computer runs, so power it only yet now and than DING DONG, means if it pleasure hereon has. I have nothing changed. of/ one a idea? |
|
| |
| |
| |
|
|
 | Juhuhuhu Rolf!
unfortunately have I no Win7 To hand but can You whom View source the Kernes the
application time post? |
|
| |
| |
| |
|
|
Rolf
Koch | Jepp here, is the a Page before of Andreas:
CompileMarkSeparation'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='./../../Function-References/XProfan/end/'>end
what me today noticed is, is the fact, that The pub gedruckten pages any arrive. If however something of Server on whom printer gesendet becomes, so get my Program this not "mehr" always with. Irgendeine attitude? Hmm? |
|
| |
| |
| |
|
|
Rolf
Koch | allow me again my question anew To to put.
How written, if local over printer becomes recognized, if but over networking printed becomes, means order comes of Server and Page becomes over this printer skillful, so becomes nothing recognized 
Regards
Rolf |
|
| |
| |
| |
|
|
Rolf
Koch | Nochwas:
me falls straight one, that the printer a Own IP has, Perhaps is here yes a Freak (iF ^^ ?), who a idea has circa there anzusetzen? means something on The IP gesendet becomes or so? not directly my Fachgebiet, but I Search to Ersatzmöglichkeiten.
Thx in the Vorraus. |
|
| |
| |
| |
|
|
Andreas
Miethe
| Hello Rolf,
möglicherweise does it over a WMI - request (Printjob).
come in the momentum unfortunately not to a example, Perhaps on the holiday or the nächstem weekend. |
|
| |
| 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 : [...] | 10/28/12 ▲ |
|
| |
|
(286)
Deutsch
English
Français
Español
Italia