| |
| |
|
| - Página 1 - |
|
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? |
|
| |
| |
| |
|
| |
| |
| - Página 8 - |
|
|
 | Sí,
el erlaubt XProfan no -
una Volver innerhalb Mientras que/ Repeat Bucle.
Ein Programmierfehler.
Schleifen con Romper durchbrechen. |
|
| |
| |
| |
|
|
Rolf
Koch | Jepp, tener algo como en Erinnerung. Naja, el kann Yo sí lösen.
Como el Leben así juega, me está auch todavía el Drucker verreckt LOOOOL. Also tener Yo Fileprinter eingestellt y siehe como (después de que testweise sin XPSE laufen lasse), como kommt nix a. HEEEEUUUULLLL.
So como el Programa aussieht, wäre lo genau el, Yo voluntad, incluso el wichtige DOKUMENTTITEL es esta!
Apéndice: Egal si el Drucker al A..h es, Druckaufträge ir sí fuera y para Testen reicht lo. Kommen also a. Aber Rest, veces kucken.
Apéndice 2: Im Profaninterpreter se ejecuta lo einwandfrei, si yo lo pur como geschrieben con Profano compiliere y una Exe erstelle, kommt una EAccess Violation  ???? |
|
| |
| |
| |
|
|
Andreas
Miethe
 | Rolf Koch (11.11.12)
Jepp, tener algo como en Erinnerung. Naja, el kann Yo sí lösen.
Das se pero no así simplemente ser, porque genau a dieser Punto musst Usted fuera de el Procedimiento, sonst wirst du una Fehlermeldung bekommen. Ob XProfan el erlaubt ?, MUSS erlauben . En me funktioniert el sólo así
Funktioniert porque el EXE ? |
|
| |
| 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 : [...]  | 11.11.2012 ▲ |
|
| |
|
|
Rolf
Koch | Nein por desgracia, no Andreas, como geschrieben EAccess Violation ..... algo con Lesen de Adresse.
Se puede doch fuera? Indem uno una globale Variable setzt y antes el Volver esta füllt, oder bin Yo demasiado tiempo fuera gewesen? ^ ^
Also falso ausgedrückt.
Anstatt Volver una variable füllen así meinte Yo. |
|
| |
| |
| |
|
|
Rolf
Koch | Keine Idea si Erfolgsversprechend es, aber tener gerade encima el Rechner meiner Frau una Druck rausgeschickt. Como ya he dicho en el Interpreter se ejecuta lo sí y dieser Druck wurde fein adecuado.
El Cuestión es nun: Verhält se una direkt angeschlossener Drucker por Netzwerkkabel genauso? Also el Cuestión, se wirklich alles abgefragt?
Dann debería Yo sólo todavía el código laufbar bekommen como EXE.
Kann lo difícilmente cabe esperar, porque esta Sache nagt ya Monatelang a me rum y yo drehe todavía de. |
|
| |
| |
| |
|
|
| @Andreas: Was spricht gegen Romper y dagegen, después de el Schleifenkörper
el Función a verlassen? Volver innerhalb de Schleifen bringt Stacks durcheinander -
beim interpretierten XProfan imho gleichermassen como beim nativen (n)Profano.
Darum meldet XPSE el auch como Fehler, XProfan meldet el imho sólo a Laufzeit
como Fehler pero yo weiß no en welchen Versionen. |
|
| |
| |
| |
|
|
Andreas
Miethe
| ¡Hola Rolf,
,
el debería con Windows7 auch con el Dll trabajo, sólo mejor, como kein Zweitprocess benötigt se.
Der Aufruf el Función debería así aussehen:
Result$ = String$(WMIResult1("SELECT Document,Caption,TimeSubmitted FROM Win32_PrintJob","root\\CIMV2","","",""),0)
Also todos Leerstrings auch leer dejar, no 0.0.0.0 |
|
| |
| 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.11.2012 ▲ |
|
| |
|
|
Rolf
Koch | Okay Yo versuch lo entonces otra vez así  |
|
| |
| |
| |
|
|
Rolf
Koch | Ähhh Andreas folgendes liegt me en Deinem Code antes:
KompilierenMarcaSeparaciónWINDOW 800,700
CLS
Var OldR& = 0
Var s& = Create("listbox",%hwnd,"",10,20,200,600)
Var s2& = Create("listbox",%hwnd,"",210,20,500,600)
Var ende& = 0
WhileNot ende&
WaitInput 200'alle 200 Millisekunden aktualisieren
'Daten von Printjobs auflisten
' Parameter: 'Query,'Adresse,'IP,Computername,Passwort,Listbox1,Listbox2
OldR& = external("AMP_WMI.DLL","WMIResult","Win32_PrintJob","root\CIMV2","192.168.0.3","","",S&,S2&)
'Prozessordaten auflisten
'OldR& = external("AMP_WMI.DLL","WMIResult","Win32_Processor","root\CIMV2","","","",S&,S2&)
'Cdrom drives auflisten
'OldR& = external("AMP_WMI.DLL","WMIResult","Win32_CDROMDrive","root\CIMV2","","","",S&,S2&)
'Sound-Device auflisten
'OldR& = external("AMP_WMI.DLL","WMIResult","Win32_SoundDevice","root\CIMV2","","","",S&,S2&)
'Base-Board auflisten
'OldR& = external("AMP_WMI.DLL","WMIResult","Win32_Bios","root\CIMV2","","","",S&,S2&)
Locate 0,0
Print " Anzahl : " ;oldR&
If OldR& = 0
SendMessage(s&,$184,0,0)'listen löschen
SendMessage(s2&,$184,0,0)
EndIf
EndWhile
End
Wo bau Yo porque Su Result$ String una? Sorry! |
|
| |
| |
| |
|
|
Andreas
Miethe
| Ups, como hast Usted todavía el alten Code.
Intento el hier.
KompilierenMarcaSeparación $H Windows.ph
ImportDll("AMP_WMI.DLL","")
WINDOW 800,600
WindowTitle "WMI-Test"
UseIcon "A"
CLS ~GetSysColor(~COLOR_3DFACE)
Var OldR& = 0
Var Result$ = ""
Var ende& = 0
Declare A$[]
Declare B$[]
Declare s$[]
Declare Jobs&
Var PrintTjobs& = Create("Text",%hwnd,"Printjobs",10,60,300,20)
SetFont PrintTjobs&,~GetStockObject(~DEFAULT_GUI_FONT)
Var T$ = "Job;0;160;Drucker;0;200;Dokument;0;200;Zeit;0;200"
Var Grid& = Create("GridBox", %hwnd,T$,0,10,80,764,360)
Proc Printjobs
~Lockwindowupdate(Grid&)
Repeat
DeleteString(Grid&,0)
Until GetCount(Grid&) = 0
Result$ = String$(WMIResult1("SELECT Document,Caption,TimeSubmitted FROM Win32_PrintJob","root\\CIMV2","","",""),0)
A$[] = Explode(Result$,chr$(10)+chr$(13))
Jobs& = (A$[0])
WhileLoop 0, SizeOf(A$[]) - 1
If Left$(A$[&loop],8) = "Document"
B$[] = Explode(A$[&loop],";")
Whileloop 1,Jobs&
s$[&loop] = s$[&loop]+"|"+Translate$(B$[&loop],";",":")
EndWhile
ElseIf Left$(A$[&loop],7) = "Caption"
B$[] = Explode(A$[&loop],";")
Whileloop 1,Jobs&
s$[&loop] = Str$(&loop)+"|"+Translate$(B$[&loop],";",":")
EndWhile
ElseIf Left$(A$[&loop],13) = "TimeSubmitted"
B$[] = Explode(A$[&loop],";")
Whileloop 1,Jobs&
s$[&loop] = s$[&loop]+"|"+String$(DateTime(B$[&loop]),0)
EndWhile
EndIf
EndWhile
Whileloop 1, Jobs&
Addstring(Grid&,s$[&loop])
EndWhile
~Lockwindowupdate(0)
EndProc
KeinFlackern()
PrintJobs()
WhileNot ende&
WaitInput 1000'alle 1 Sekunden aktualisieren
PrintJobs()
EndWhile
End
Proc KeinFlackern
~SetClassLong(%hwnd,~GCL_STYLE,(~GetClassLong(%hwnd,~GCL_STYLE)- ~CS_HREDRAW - ~CS_VREDRAW))
SetStyle %hwnd, GetStyle(%hwnd) | ~WS_CLIPCHILDREN
SetStyle 1,%hwnd, GetStyle(1,%hwnd) | $2000000'WS_EX_COMPOSITED (Douffer)
ENDPROC
|
|
| |
| 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.11.2012 ▲ |
|
| |
|
|
Rolf
Koch | | OK |
|
| |
| |
| |
|
|
Rolf
Koch | | Leider otra vez qué, siehe Anhang. |
|
| |
| |
| |
|
(1.530)
Deutsch
English
Français
Español
Italia