| |
| |
|
| - 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 8 - |
|
|
 | Oui,
cela erlaubt XProfan pas -
un Retour dedans Tandis que/ Repeat Boucle.
un Programmierfehler.
Schleifen avec Pause durchbrechen. |
|
| |
| |
| |
|
|
Rolf
Koch | Jepp, hab quelque chose comme dans Erinnerung. bof, cela peux je oui lösen.
comment cela vivre so écoutes, c'est moi aussi encore qui Drucker verreckt LOOOOL. alors hab je Fileprinter eingestellt et siehe là (après que je es testweise sans XPSE courir lasse), là venez nix à. HEEEEUUUULLLL.
So comment cela Programme aussieht, wäre es oui c'est ca cela, quoi je veux, sogar cela wichtige DOKUMENTTITEL ist dabei!
Nachtrag: égal si qui Drucker am A..h ist, Druckaufträge aller oui raus et zum Testen reicht es. venons alors à. mais reste, la fois kucken.
Nachtrag 2: Im Profaninterpreter fonctionne es einwandfrei, si je es pur comment geschrieben avec Profan compiliere et une Exe erstelle, venez une EAccess Violation  ???? |
|
| |
| |
| |
|
|
Andreas
Miethe
 | Rolf Koch (11.11.12)
Jepp, hab quelque chose comme dans Erinnerung. bof, cela peux je oui lösen.
cela wird mais pas so simple son, car oui c'est ca à cette Stelle musst Du raus aus qui Procédure, sonst wirst du une Fehlermeldung bekommen. si XProfan cela erlaubt ?, MUSS erlauben . chez mir funktioniert cela seulement so
Funktioniert car qui 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 | non malheureusement pas Andreas, comment geschrieben EAccess Violation ..... irgendwas avec Lesen de Adresse.
il peut doch raus? Indem on une globale Variable mets et avant dem Retour cet füllt, ou bien suis je trop longtemps raus gewesen? ^ ^
alors faux ausgedrückt.
Anstatt Retour une variable füllen so meinte je. |
|
| |
| |
| |
|
|
Rolf
Koch | je n'en sais rien si es Erfolgsversprechend ist, mais hab justement sur den calculateur meiner madame une Druck rausgeschickt. Comme je le disais im Interpreter fonctionne es oui et cette Druck wurde délicat angezeigt.
qui Frage ist eh bien: Verhält sich un direct angeschlossener Drucker per Netzwerkkabel genauso? alors qui Frage, wird wirklich alles abgefragt?
ensuite devrait je seulement encore den Code laufbar bekommen comme EXE.
peux es à peine erwarten, car cet l'affaire nagt déjà Monatelang à mir rum et je drehe encore ab. |
|
| |
| |
| |
|
|
| @Andreas: quoi spricht vers Pause et dagegen, pour dem Schleifenkörper
qui Funktion trop sortir de? Retour dedans de Schleifen bringt Stacks durcheinander -
beim interpretierten XProfan imho gleichermassen comment beim nativen (n)Profan.
tout autor meldet XPSE cela aussi comme faute, XProfan meldet cela imho seulement zur Laufzeit
comme faute mais je ne sais pas chez welchen Versionen. |
|
| |
| |
| |
|
|
Andreas
Miethe
| allô Rolf,
,
cela sollte avec Windows7 aussi avec qui Dll marcher, seulement besser, là ne...aucune Zweitprocess nécessaire wird.
qui Aufruf qui Funktion sollte so air:
Result$ = String$(WMIResult1("SELECT Document,Caption,TimeSubmitted FROM Win32_PrintJob","root\\CIMV2",»,»,»),0)
alors alle Leerstrings aussi vide laisser, pas 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 je versuch es ensuite nochmal so  |
|
| |
| |
| |
|
|
Rolf
Koch | Ähhh Andreas folgendes liegt mir dans Deinem Code avant:
KompilierenMarqueSéparationWINDOW 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
Fin
wohin bau je car Deinen Result$ String un? Sorry! |
|
| |
| |
| |
|
|
Andreas
Miethe
| Ups, là la hâte Du encore den alten Code.
Versuch den ici.
KompilierenMarqueSéparation $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 | | malheureusement wieder quoi, siehe Anhang. |
|
| |
| |
| |
|
(198)
Deutsch
English
Français
Español
Italia