1:
2:
3:
4:

  while GetMessage(Msg,0,0,0) do begin
   Translatemessage(Msg);
   Dispatchmessage(Msg);
  end;					

1:
2:
3:
4:

  while GetMessage(Msg,0,0,0) do begin  
   Translatemessage(Msg);  
   Dispatchmessage(Msg);  
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

PrinterName=Vertretungsplandrucker

# Wenn es Probleme gibt, erstmal alles erlauben!
AllowLocalOnly=1

# Sollen die Druckaufträge als Datei gespeichert werden (1=Ja, 0=Nein)
SaveJob=1
SaveJob.Filename=C:\Test.prn

# Upload brauchen wir nicht!
UploadJob=0
UploadJob.Host=
UploadJob.URL=
UploadJob.UploadPosts=
UploadJob.UploadJobPostName=
Proxy=0
Proxy.Host=					

1:
2:
3:
4:
5:
6:
7:
8:
9:

TEMP := GetEnvironmentVariable('TEMP');
    REDMON_USER := GetEnvironmentVariable('REDMON_USER');
    REDMON_DOCNAME := GetEnvironmentVariable('REDMON_DOCNAME');
    REDMON_JOB := GetEnvironmentVariable('REDMON_JOB');
    REDMON_MACHINE := GetEnvironmentVariable('REDMON_MACHINE');
    REDMON_PRINTER := GetEnvironmentVariable('REDMON_PRINTER');
    REDMON_PORT := GetEnvironmentVariable('REDMON_PORT');
    REDMON_FILENAME :=GetEnvironmentVariable('REDMON_FILENAME');
    REDMON_SESSIONID :=GetEnvironmentVariable('REDMON_SESSIONID');					

1:
2:
3:
4:
5:
6:
7:
8:

    if ParamCount <> 1 then exit;
  //Input ist schon offen, also brauchen wir es nicht zuzuweisen
  SetLineBreakStyle(Input, tlbsLF); // weil sonst 0D auf Windows zu 0D0A ersetzt wird
  while not eof(Input) do begin
    read(Input, s);
    memo2.lines.Add(s);
    Reset(Input);
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:

%!PS-Adobe-3.0
m
%%DocumentSuppliedResources: (atend)
%%LanguageLevel: 2
ults
g def/setpacking where{pop false
if dup length 6 mul/tx exch def/ty 10 def currentpoint/toy exch
ineto tx 0
ch moveto 0 -10 rmoveto}def/=={/cp 0 def
print{dup length cp add rmargin gt{nl/cp 0 def}if dup length cp add/cp
)tprint}readonly def
atortype{(--)tprint =string cvs tprint(-- )tprint}
nary- )tprint}readonly def/nulltype{pop(-null- )tprint}readonly def
p(-savelevel- )
eadonly def/stringtype{dup rcheck{(\()tprint
dup xcheck{({)tprint{typeprint}forall(})tprint}{([)tprint{typeprint}forall(])
y def/packedarraytype{dup
pop(-packedarray- )tprint}ifelse}readonly def/courier
egin
page}if initgraphics courier setfont
restore 2 vmreclaim}if vmstatus exch pop exch pop PrtVMMsg}{
oad prnt
et exec(%%[ Error: )print errorname
stemdict put dup 4 $brkpage put bind readonly put/currentpacking
Resource
talErrorIf{{initgraphics findfont 1 index 0 eq{exch pop}{dup
ng
tfont counttomark 3 div
ns binary data, but your printer requires a)100 500
eturn to the driver's property sheets, turn off the use of)100 470
@)0 get 64 eq
er, als auf diesem Drucker vorhanden ist. )
en Sie dann erneut:)
daß auf der Registerkarte "Geräteeinstellungen" die Angabe für "Verfügbarer Postscript-Speicher" korrekt ist.)
en Sie die Anzahl der im Dokument verwendeten Schriftarten. )
15 425 12
/VM?{pop}bind def}{/VM? userdict/PrtVMMsg
def/,/load load d/~/exch , d/?/ifelse , d/!/pop , d/`/begin , d/^
d/M/moveto , d/-
rc , d/An/arcn , d/A/ashow , d/D/awidthshow , d/C
-M
setdash , d/S/show , d/LH/showpage
el 2 ge{pop true}if}if d L2?{/xS/xshow , d/yS/yshow , d/zS/xyshow ,
n/bind ld/lw/Lw ld
x setmatrix[/TextInit/GraphInit/UtilsInit
/Pscript_Win_Data where{!}{U/Pscript_Win_Data & put}?/ADO_mxRot ~
 dict @ ` put
 , d/resume{` Pscript_Win_Data `}b U `
 @ lucas eq{! exit}if}loop countdictstack ~ sub @ 0 gt{{E}repeat}
und 0.25 add ~
{1}{-1}?}?}?}b/nonzero_dsnap{dtransform
}b/irp{4 -2 $ + +S fx 4 2 $ M 1 ^ 0 - 0 ~ - neg 0 -}b/rp{4 2 $ M 1 ^ 0
ve put}if U/DefIf_bool
finefont}{!}?}b/UDR{L2?{undefineresource}{! !}?}b
t
 0 1 255{1 ^ ~/.notdef put}for d
@/XUID eq ~/UIDBase eq or or{! !}{d}?}forall/CDevProc ~ d/Metrics2
 ![~]composefont !}
 @ 0 ge{1 sub 0.5}{1 add -0.5}? 3 -1 $ @ 0 ge
snap + +S fx rf}b/rs/rectstroke , d/rc/rectclip , d/UtilsInit{currentglobal{F
y d/colspABC/DeviceRGB d
olorRendering/ProcSet resourcestatus{! ! T}{F}?}{F}?
{
one}if}{!/none}?}bn
ltColorRendering*){cvn exit}127 string
! !}?}if/buildcrdname{/ColorRendering/ProcSet findresource `
ne}if(.)
 5{~ 1 ^ cvs length 1 ^ length 1 ^ sub
ering defineresource !}b/findcolorrendering where{!}{

ndresource
nfo get/GlyphNames2HostCode get `}bind d
s2Unicode 16 dict d/GlyphNames2HostCode 16 dict d}bind d
 get ` d
]%%)= flush end
PDFeature: JobTimeout 0
params}{statusdict/setjobtimeout get exec}ifelse
itTimeout 300
atusdict/waittimeout 3 -1 roll put}ifelse

ebegin{
6…
 819
geSetup
 file Pscript_T3Hdr 5.0 0
6andT32? exch def/T32DefSBCMap{/CIDInit/ProcSet
istry(Adobe)def/Ordering(Identity1)def/Supplement 0 def end def/CMapType 0
spacerange 1 begincidrange
andT32?{T32DefSBCMap}def/T32RsrcBegin{Is2016andT32?{
dT32?
findfont dup 5 2 roll 1 index
-1 roll/CharProcs get 3 1 roll put dup/Encoding get 5 -1 roll
andT32?{
xch pop exch pop/CIDFontType 4 def
pop pop}{T32DefSBCMap}ifelse 5 -1 roll[exch]composefont dup
t end
ntT3{11 dict begin pop/FontType 3 def
s/.notdef{}put/Metrics 257 dict def Metrics/.notdef 3 -1 roll put
t begin/char exch
tdef get aload pop}ifelse setcachedevice begin
xec end}def currentdict end definefont pop}bind def/GreNewFont{Is2016andT32?
Is2016andT32?{/BitmapFontInit
font end}{pop UDF}ifelse}bind def
ch /.notdef put} for 
2 0 ] 
ðÀðÀðÀðÀðÀðÀðÀðÀðÀðÀðÀðÀðÀ)
2 ]  0 0]
ddT3T32Char
x
 26 true [1 0 0 1 -3 26 ]  0 0]
00 AddT3T32Char
/Pscript_Windows_Font & d/TextInitialised? T d
th add dict `{1 ^/FID ne{d}{! !}?}forall & E}b/EncodeDict 11 dict d/bullets
 get/Encoding ~ 3 ^/0 eq{&
7 1 $ findfont ~{@/Encoding get @ StandardEncoding eq{! T}{
 get
 FDV 2 copy get @ length array copy
t_Windows_Font 3 1 $ put}b/sLT{: Lw -M currentpoint snap M 0 - 0
/sW null d/sSU{N
0 M}b/sRxy{: matrix astore concat 0 0 M}b/eR/; , d
tchAndFamily ~ d/WinCharSet ~ d/OrigFontType ~ d/OrigFontStyle ~ d
nt
 Encoding ~ get ~ d}for & E
e 0 d/FMapType 2 d/FontMatrix[1 0 0 1 0 0]d 1 ^ 254 add 255
/FDepVector
th 1 add string}{100 lt{FontName length 2
erval @ 3 -1 $ @ 4 1 $ 3 string cvs FontName length ~ putinterval cvn 1 ^
r 3 1 $ put}for & @ E
$ neg put 5 0 put 90 matrix R matrix concatmatrix
dfont 1 ^ ~ definefont Pscript_Windows_Font 3 1 $ put}b/UmF{L2?
r get{/FontName
F0 [‹
0 24 0 ] 
þ
[25 0 5 -30 21 1 ] 
)
26 true [1 0 0 1 -3 26 ]  0 0]
0 AddT3T32Char
ð
)
%BoundingBox: 18 23 577 819
5.0 0
ocset Pscript_T3Hdr 5.0 0
1					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

procedure TForm1.FormCreate(Sender: TObject);
  var TEMP,
  REDMON_USER,
  REDMON_DOCNAME,
  REDMON_JOB,
  REDMON_MACHINE,
  REDMON_PRINTER,
  REDMON_PORT,
  REDMON_FILENAME,
  REDMON_SESSIONID: string;
  Stream: THandleStream;
begin
  TEMP := GetEnvironmentVariable('TEMP');
    REDMON_USER := GetEnvironmentVariable('REDMON_USER');
    REDMON_DOCNAME := GetEnvironmentVariable('REDMON_DOCNAME');
    REDMON_JOB := GetEnvironmentVariable('REDMON_JOB');
    REDMON_MACHINE := GetEnvironmentVariable('REDMON_MACHINE');
    REDMON_PRINTER := GetEnvironmentVariable('REDMON_PRINTER');
    REDMON_PORT := GetEnvironmentVariable('REDMON_PORT');
    REDMON_FILENAME :=GetEnvironmentVariable('REDMON_FILENAME');
    REDMON_SESSIONID :=GetEnvironmentVariable('REDMON_SESSIONID');
    Memo1.Lines.add(inttostr(ParamCount));
    Memo1.Lines.Add(Temp);
    Memo1.Lines.Add(REDMON_USER);
    Memo1.Lines.Add(REDMON_DOCNAME);
    Memo1.Lines.Add(REDMON_JOB);
    Memo1.Lines.Add(REDMON_MACHINE);
    Memo1.Lines.Add(REDMON_PRINTER);
    Memo1.Lines.Add(REDMON_PORT);
    Memo1.Lines.Add(REDMON_FILENAME);
    Memo1.Lines.Add(REDMON_SESSIONID);

  Stream := THandleStream.Create(GetStdHandle(STD_INPUT_HANDLE));
  memo2.Lines.LoadFromStream(stream);
  stream.Free;
end;