В Delphi 1 (а затем и в Delphi 2) я попытался написать
программу, печатающую построчно на принтере (любого типа), после выхода из
которой принтер НЕ выплевывает лист, а продолжает на нем печатать в случае
повторного использования программы, то есть программа позволяет печатать строчку
за строчкой, не удаляя при этом лист в случае завершения задачи.
Это противоречит неписанным законам Microsoft, поскольку нарушает режим
многозадачности, и все же именно для моей задачи мне необходимо именно такое
решение.
Я создал клон объекта TPrinter, назначение которого вы поймете ниже. Это
работает со всеми матричными принтерами.
Вот пример объекта:
var
Myprinter: TRawPrinter;
oldprinter: TPrinter;
begin
MyPrinter := TRawPrinter.Create;
oldprinter := setprinter(MyPrinter);
tryif Printdialog1.execute thenbegin
myprinter.startraw;
myprinter.write('Delphi World is the best!');
myprinter.writeln;
myprinter.endraw;
endfinally
setprinter(oldprinyter);
myprinter.free;
endend;
Вот пример использования объекта:
unit Rawprinter;
interfaceuses printers, windows;
type
TRawprinter = class(TPrinter)
public
dc2: HDC;
procedure startraw;
procedure endraw;
procedure write(const s: string);
procedure writeln;
end;
implementationuses sysutils, forms;
function AbortProc(Prn: HDC; Error: Integer): Bool; stdcall;
begin
Application.ProcessMessages;
Result := not Printer.Aborted;
end;
type
TPrinterDevice = class
Driver, Device, Port: string;
constructor Create(ADriver, ADevice, APort: PChar);
function IsEqual(ADriver, ADevice, APort: PChar): Boolean;
end;
constructor TPrinterDevice.Create(ADriver, ADevice, APort: PChar);
begininherited Create;
Driver := ADriver;
Device := ADevice;
Port := APort;
end;
function TPrinterDevice.IsEqual(ADriver, ADevice, APort: PChar): Boolean;
begin
Result := (Device = ADevice) and (Port = APort);
end;
procedure TRawprinter.startraw;
var
CTitle: array[0..31] of Char;
CMode: array[0..4] of char;
DocInfo: TDocInfo;
r: integer;
begin
StrPLCopy(CTitle, Title, SizeOf(CTitle) - 1);
StrPCopy(CMode, 'RAW');
FillChar(DocInfo, SizeOf(DocInfo), 0);
with DocInfo dobegin
cbSize := SizeOf(DocInfo);
lpszDocName := CTitle;
lpszOutput := nil;
lpszDatatype := CMode;
end;
with TPrinterDevice(Printers.Objects[PrinterIndex]) dobegin
DC2 := CreateDC(PChar(Driver), PChar(Device), PChar(Port), nil);
end;
SetAbortProc(dc2, AbortProc);
r := StartDoc(dc2, DocInfo);
end;
procedure TRawprinter.endraw;
var
r: integer;
begin
r := windows.enddoc(dc2);
end;
type
passrec = packedrecord
l: word;
s: array[0..255] of char;
end;
var
pass: Passrec;
procedure TRawprinter.write(const s: string);
begin
pass.l := length(s);
strpcopy(pass.s, s);
escape(dc2, PASSTHROUGH, 0, @pass, nil);
end;
procedure TRawprinter.writeln;
begin
pass.l := 2;
strpcopy(pass.s, #13#10);
escape(dc2, PASSTHROUGH, 0, @pass, nil);
end;
end.
Статья Построчная печать раздела ОС и Железо Принтеры и Печать может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.