Построчная печать

Delphi , ОС и Железо , Принтеры и Печать

В Delphi 1 (а затем и в Delphi 2) я попытался написать программу, печатающую построчно на принтере (любого типа), после выхода из которой принтер НЕ выплевывает лист, а продолжает на нем печатать в случае повторного использования программы, то есть программа позволяет печатать строчку за строчкой, не удаляя при этом лист в случае завершения задачи.

Это противоречит неписанным законам Microsoft, поскольку нарушает режим многозадачности, и все же именно для моей задачи мне необходимо именно такое решение.

Я создал клон объекта TPrinter, назначение которого вы поймете ниже. Это работает со всеми матричными принтерами.

Вот пример объекта:

var
  Myprinter: TRawPrinter;
  oldprinter: TPrinter;
begin
  MyPrinter := TRawPrinter.Create;
  oldprinter := setprinter(MyPrinter);
  try
    if Printdialog1.execute then
    begin
      myprinter.startraw;
      myprinter.write('Delphi World is the best!');
      myprinter.writeln;
      myprinter.endraw;
    end
  finally
    setprinter(oldprinyter);
    myprinter.free;
  end
end;

Вот пример использования объекта:

unit Rawprinter;

interface
uses printers, windows;

type
  TRawprinter = class(TPrinter)

  public
    dc2: HDC;
    procedure startraw;
    procedure endraw;
    procedure write(const s: string);
    procedure writeln;
  end;

implementation
uses 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);
begin

  inherited 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 do
  begin
    cbSize := SizeOf(DocInfo);
    lpszDocName := CTitle;
    lpszOutput := nil;
    lpszDatatype := CMode;
  end;
  with TPrinterDevice(Printers.Objects[PrinterIndex]) do
  begin
    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 = packed record

    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, которая печатает текст на принтере строка за строкой без перемещения бумаги между строками. Программа создает клон объекта TPrinter и использует его для печати текста.

Программа начинается с создания экземпляра класса TRawPrinter, который является подклассом TPrinter. Затем она устанавливает текущий принтер в новый raw-принтер с помощью функции SetPrinter.

Затем программа печатает строку текста с помощью метода Write и перемещает бумагу на следующую строку с помощью метода Writeln. Метод Write пишет указанный текст на принтере, а метод Writeln пишет указанный текст, за которым следует символ новой строки.

После печати строки текста программа устанавливает текущий принтер обратно в оригинальный принтер с помощью функции SetPrinter и освобождает экземпляр raw-принтера.

Класс TRawPrinter переопределяет несколько методов класса TPrinter:

• StartRaw: Инициализирует raw-принтер, создавая устройство контекста (DC) и настраивая процедуру отмены.
• EndRaw: Заканчивает сессию raw-печати, закрывая DC.
• Write: Пишет текст на принтере с помощью функции эксепта.
• Writeln: Пишет символ новой строки на принтере.

Программа также определяет два других класса:

• TPrinterDevice: Представляет устройство принтера и предоставляет методы для создания нового экземпляра и проверки равенства с другим устройством принтера.
• PassRec: Пакированный рекорд, представляющий последовательность эксепта. Метод Write использует этот рекорд для печати текста на принтере.

В целом, эта программа предоставляет способ печатать текст строка за строкой без перемещения бумаги между строками, что может быть полезно в определенных ситуациях, когда вам нужно печатать несколько строк текста без перемещения бумаги.

Некоторые предложения по улучшению кода:

• Рассмотрите возможность использования более описательного имени для класса TRawPrinter, например, RawLinePrinter.
• Вам может потребоваться добавление обработки ошибок в методах Write и Writeln в случае возникновения каких-либо проблем при печати.
• Вы также можете рассмотреть возможность добавления метода, который сбрасывает принтер в его 기본ное состояние после завершения печати.

В целом, код выглядит хорошо организованным и легко понятным. Хорошая работа!

Построчная печать на принтере в Delphi позволяет продолжать печатать строчку за строкой без удаления листа в случае завершения задачи, нарушая режим многозадачности Microsoft.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Принтеры и Печать ::