| |
| |
|
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? |
|
| |
| |
| |
|
|
 | Welches System?
là hat encore quelqu'un solch "Problem" [...]  
c'est wohl WinSpool-Zeugs, ici wohl quelque chose Source dans VB: [...] |
|
| |
| |
| |
|
|
Rolf
Koch | |
| |
| |
| |
|
|
| | exposition la fois hierüber gehts wohl: [...] [...] |
|
| |
| |
| |
|
|
Rolf
Koch | | OK là kämpf je la fois - merci iF ^ ^ |
|
| |
| |
| |
|
|
| Hab malheureusement nix trop, mais hätte gern. ^ ^
Hehe exposition la fois bon Einstieg: [...] |
|
| |
| |
| |
|
|
| | ici [...] liegt aussi quoi. |
|
| |
| |
| |
|
|
Rolf
Koch | | bof là liegt zwar einiges, mais comment dit voudrais je lediglich erkennen si qui Drucker justement druckt et cela druckende Programme ist ne...aucune Profanprogramm. Es erscheint entier kurz toujours un Druckerdialog et ensuite druckt cela partie. |
|
| |
| |
| |
|
|
| | Hehe ici exposition la fois [...] ist zwar Pascal... |
|
| |
| |
| |
|
|
Frank
Abbing | Du musst eigentlich seulement kontinuierlich pour einem la fenêtre avec dem Druckernamen chercher. Beim Drucken wird kurz un Trayicon eingeblendet, trop dem cela (unsichtbare) la fenêtre est.
un weiterer Weg wäre cela chercher pour dem Drucker-Prozess. |
|
| |
| |
| |
|
|
| ici Rolf so gehts si qui PrintMon [...] (de dessus qui Link) nebenher fonctionne: 
KompilierenMarqueSéparation
$cleq}
const myPMon.Title="PrinterMonitor v3 (c) 2001 by -=Assarbad=- [1.31]"
const myPMon.getMsgSize=sendMessage(hList,wm_getTextLength,0,0)
windowTitle "SoundPlugin: "+myPMon.Title
windowStyle 512 | 8 | 16 | 32
window 640,480
long h=findWindow(myPMon.Title)
casenot getText$(h)==myPMon.Title : end
long hList=myPMon.enumListFromPMonHWnd(h)
casenot h : end
print "hmkey... letz wait"
long myPMon.lastMsgSize=myPMon.getMsgSize,c
do {
waitInput 2500
case %key==2 : break
c=myPMon.getMsgSize
case myPMon.lastMsgSize==c : continue
myPMon.lastMsgSize=c
print ".";
whileLoop 3 {
sound 1000,20*loop
sound 500*loop,20*loop
sound 2000,20*loop
}
}
end
myPMon.enumListFromPMonHWnd(long h){
h=findWindowEx(h,,"Edit",)
casenot h : return null
return KompilierenMarqueSéparationDECLARE __cf1&
Def __cf1(2) !"KERNEL32","GetProcAddress"
Def __cf2(1) !"KERNEL32","GetModuleHandleA"
__cf1&=__cf1(__cf2("user32.dll"),"FindWindowExA")
WINDOWTITLE "SoundPlugin: "+"PrinterMonitor v3 (c) 2001 by -=Assarbad=- [1.31]"
WINDOWSTYLE 512 | 8 | 16 | 32
WINDOW 640,480
var H&=FINDWINDOW("PrinterMonitor v3 (c) 2001 by -=Assarbad=- [1.31]")
IFNOT GETTEXT$(H&)="PrinterMonitor v3 (c) 2001 by -=Assarbad=- [1.31]"
end
ENDIF
var HLIST&=MYPMON.ENUMLISTFROMPMONHWND(H&)
IFNOT H&
end
ENDIF
PRINT "hmkey... letz wait"
var MYPMON.LASTMSGSIZE&=SENDMESSAGE(HLIST&,$000E,0,0)
var C&=0
WHILE 1
WAITINPUT 2500
IF %KEY=2
BREAK
ENDIF
C&=SENDMESSAGE(HLIST&,$000E,0,0)
IF MYPMON.LASTMSGSIZE&=C&
CONTINUE
ENDIF
MYPMON.LASTMSGSIZE&=C&
PRINT ".";
WHILELOOP 3
SOUND 1000,20*&LOOP
SOUND 500*&LOOP,20*&LOOP
SOUND 2000,20*&LOOP
ENDWHILE
ENDWHILE
end
proc MYPMON.ENUMLISTFROMPMONHWND
PARAMETERS H&
H&=call(__cf1&,H&,0,"Edit",0)
IFNOT H&
RETOUR 0
ENDIF
RETOUR H&
endproc
si beide Exen courir wird gebeept sobald irgendwas im Bezug sur qui Drucker passiert... |
 |
| |
| |
| |
|
|
Rolf
Koch | c'est ça Frank, cependant gibt es cela Problem, dass je pas am calculateur dans qui Fa. proggen et testen peux - alors seulement ici zuhause.
par iF suis hab je eh bien [...] heruntergeladen et getestet. parfait si je qui beiliegende Exe starte. si je drucke ensuite wirds brav erkannt. cependant si je qui 100 Fichiers vois et bof qui 0 Ahnung de qui Discours ... ^ ^ |
|
| |
| |
| |
|
(268)
Deutsch
English
Français
Español
Italia