| |
| |
|
| - page 1 - |
|
Rolf
Koch | Hallöchen heut frag je la fois so dans qui Runde, là je avec Drucken nie soviel gemacht habe.
Folgende Problemstellung:
on a chez uns un ordinateur avec Drucker sur dem le lit.
si un Kunde un Gerät gekauft hat et à qui caisse bezahlt hat, so venez chez uns un entsprechender Beleg aus dem Drucker, avec cela wir qui machine à laver, TV ou bien solch un Zeugs raussuchen peut.
maintenant serait je volontiers un nebenbeilaufendes Tool écrivons, welches une Sound abspielt, si un solcher Beleg aus dem Drucker venez.
Meint son, je pourrait ca irgendwie erreichen? |
|
| |
| |
| |
|
| |
| |
| - page 2 - |
|
|
 | Hehe et maintenant peux qui Info encore avec Gonzo per Bot pour Australien envoyons et là wird ensuite qui Poubelle ausgeleert.  |
|
| |
| |
| |
|
|
Rolf
Koch | Grad avec iF geskypet. je darf malheureusement de qui Fa. aus aucun Fremdsoftware (lediglich ensuite mon) installer. alors allez cet variante aussi pas  |
|
| |
| |
| |
|
|
Frank
Abbing | cela Tool utilise qui Windows-Job-API. exposition dir qui doch la fois à:
AbortPrinter
AbortProc
AddForm
AddJob
AddMonitor
AddPort
AddPrinter
AddPrinterConnection
AddPrinterDriver
AddPrintProcessor
AddPrintProvidor
AdvancedDocumentProperties
ClosePrinter
ConfigurePort
ConnectToPrinterDlg
DeleteForm
DeleteMonitor
DeletePort
DeletePrinter
DeletePrinterConnection
DeletePrinterData
DeletePrinterDriver
DeletePrintProcessor
DeletePrintProvidor
DocumentProperties
EndDocPrinter
EndPagePrinter
EnumForms
EnumJobs
EnumMonitors
EnumPorts
EnumPrinterData
EnumPrinterDrivers
EnumPrinters
EnumPrintProcessorDataTypes
EnumPrintProcessors
FindClosePrinterChangeNotification
FindFirstPrinterChangeNotification
FindNextPrinterChangeNotification
FreePrinterNotifyInfo
GetForm
GetJob
GetPrinter
GetPrinterData
GetPrinterDriver
GetPrinterDriverDirectory
GetPrintProcessorDirectory
OpenPrinter
PrinterMessageBox
PrinterProperties
ReadPrinter
ResetPrinter
ScheduleJob
SetForm
SetJob
SetPort
SetPrinter
SetPrinterData
StartDocPrinter
StartPagePrinter
WaitForPrinterChange
WritePrinter |
|
| |
| |
| |
|
|
Rolf
Koch | OK Frank merci werde mir cela dans einer ruhigen minute (Stunden ^ ^) la fois reinziehen  |
|
| |
| |
| |
|
|
E.T. | je hatte aussi la fois quelque chose comme pour trop Hause gebastelt. je hab là mais simple seulement cela Spool-Verzeichnis überwacht, si quoi drinn liegt (alors qui simple forme sans API usw.).
Hat pas mal funktioniert, es wurden chez mir alle 4 Drucker (incl. pdf-Printer) bemerkt.
Vorraussetztung ist naturellement, cela qui (qui) Drucker den Spooler nutzen (mais c'est oui meißt so). |
|
| |
| 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... | 21.12.2008 ▲ |
|
| |
|
|
Rolf
Koch | Hört sich bien à E.T.
je gebe honnête trop, qui je garnicht wusste, qui es un Verzeichnis gibt. Ist ca un Tempverz.? |
|
| |
| |
| |
|
|
Rolf
Koch | Aja merci pour qui Info
[...]  |
|
| |
| |
| |
|
|
E.T. | pas joli, mais sur qui Schnelle  . chez mir funzt es, es volonté aussi pdf-Drucker, fax-Drucker etc. berücksichtigt. cela Verz. doit naturellement passen.
chez mir allez cela jetzige Bsp pas sans la fenêtre (ListBoxList ??  ), mais so ist qui Test wenigstens wieder beendbar 
KompilierenMarqueSéparation
Erzeugt chez mir aussi aucun Prozessor-charge. |
|
| |
| 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... | 21.12.2008 ▲ |
|
| |
|
|
Rolf
Koch | Ist oui wieder typisch. égal quoi je drucke im Pfad passiert nix. Es volonté aucun Fichiers abgelegt (alors tempmässig et überhaupt)
Nachtrag:
Doch - hab la fois cela waitinput par sleep ersetzt et déjà funktioniert es. Komisch. bof veux oui sowieso ensuite avec einem Minuteur travailler. |
|
| |
| |
| |
|
|
Paul
Glatz | | chez mir ca va! (Win Vue) |
|
| |
| |
| |
|
|
E.T. | | déjà la fois dans qui Drucker-Einstellungen geschaut ?? |
|
| |
| 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... | 21.12.2008 ▲ |
|
| |
|
|
Andreas
Miethe
 | allô Rolf,
versuchs la fois hiermit, là wird qui Standard-Dricker überwacht.
KompilierenMarqueSéparation $H windows.ph
DEF Get_STDPrinter(1) Substr$(ReadIni$("WIN.INI","Windows","Device"),@&(1),",")
Var Spool& = ImportDll("Winspool.drv","")
cls
DEF &PRINTER_CHANGE_JOB $FF00
DEF &INFINITE $FFFFFFFF
DEF &PRINTER_CHANGE_ADD_JOB $100
Var A& = 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"
endif
Endif
Until A& = 1Abbruchbedingungen vielleicht besser mit einem Button bestimmen ?
FindClosePrinterChangeNotification(chgObject&)
ClosePrinter(hPrinter&)
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 : [...]  | 21.12.2008 ▲ |
|
| |
|
(268)
Deutsch
English
Français
Español
Italia