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:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
| unit RAWPrinter;
{$B-}
interface
uses
Windows, SysUtils,Graphics ,Classes;
type
TRAWPrinter = class(TComponent)
constructor Create(AOwner:TComponent); override;
destructor Destroy; override;
private
FCanvas: TCanvas;
fDocumentTitle: string;
fPrinterName: string;
fPrinterHandle: DWord;
fLevel: Integer;
public
function SetToDefaultPrinter:Boolean;
function BeginDoc:Boolean;
function EndDoc:Boolean;
function Abort:Boolean;
function Write(const Buffer; Count:Longint):DWord;
function WriteStr(const text:string):Boolean;
function WriteLn(const line:string):Boolean;
function NextPage:Boolean;
function CR:Boolean;
function LF:Boolean;
published
property PrinterName:string read fPrinterName write fPrinterName;
property DocumentTitle:string read fDocumentTitle write fDocumentTitle;
end;
procedure Register;
implementation
uses
WinSpool;
procedure Register;
begin
RegisterComponents('PJank', [TRAWPrinter]);
end;
constructor TRAWPrinter.Create(AOwner: TComponent);
begin
inherited;
fDocumentTitle:= '';
fPrinterName:= '';
fLevel:= 0;
end;
destructor TRAWPrinter.Destroy;
begin
if (fLevel>0) then Abort;
inherited;
end;
function TRAWPrinter.SetToDefaultPrinter:Boolean;
var str: array[0..79]of Char;
function FetchStr(s:string):string;
var i: Integer;
begin
s:= TrimLeft(s);
i:= Pos(',',s);
if i=0
then Result:= s
else Result:= Copy(s, 1, i-1);
end;
begin
GetProfileString('windows', 'device', '', str, SizeOf(str)-1);
fPrinterName:= FetchStr(str);
Result:= (fPrinterName<>'');
end;
function TRAWPrinter.BeginDoc: Boolean;
var DocInfo: TDocInfo1;
begin
if (fLevel=0) then begin if (fPrinterName='') then SetToDefaultPrinter;
if (fPrinterName<>'') and OpenPrinter(PChar(fPrinterName), fPrinterHandle, nil)
then fLevel:= 1;
end;
if (fLevel=1) then begin with DocInfo do begin
pDocName:= PChar(fDocumentTitle);
pOutputFile:= nil;
pDatatype:= 'RAW';
end;
if (StartDocPrinter(fPrinterHandle, 1, @DocInfo)<>0)
then fLevel:= 2;
end;
if (fLevel=2) then if StartPagePrinter(fPrinterHandle)
then fLevel:= 3;
Result:= (fLevel=3);
end;
function TRAWPrinter.EndDoc: Boolean;
begin
if (fLevel=3) then
if EndPagePrinter(fPrinterHandle) then fLevel:= 2;
if (fLevel=2) then
if EndDocPrinter(fPrinterHandle) then fLevel:= 1;
if (fLevel=1) then
if ClosePrinter(fPrinterHandle) then fLevel:= 0;
Result:= (fLevel=0);
end;
function TRAWPrinter.Abort: Boolean;
begin
if (fLevel>1) then
if AbortPrinter(fPrinterHandle) then fLevel:= 1;
if (fLevel=1) then
if ClosePrinter(fPrinterHandle) then fLevel:= 0;
Result:= (fLevel=0);
end;
function TRAWPrinter.Write(const Buffer; Count: Integer): DWord;
begin
Result:= 0;
if (fLevel=3) then
WritePrinter(fPrinterHandle, Pointer(Buffer), Count, Result);
end;
function TRAWPrinter.WriteStr(const text: string): Boolean;
var len: DWord;
begin
len:= Length(text);
Result:= (Write(text,len)=len);
end;
function TRAWPrinter.WriteLn(const line: string): Boolean;
begin
Result:= WriteStr(line+#10#13);
end;
function TRAWPrinter.NextPage: Boolean;
begin
Result:= WriteStr(#12);
end;
function TRAWPrinter.CR: Boolean;
begin
Result:= WriteStr(#13);
end;
function TRAWPrinter.LF: Boolean;
begin
Result:= WriteStr(#10);
end;
end. |
Gausi
