Последние записи

made in programmersforum 10

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

5th
Июн

Функция рисования для печати на принтере ScanLine

Posted by obzor under Delphi

Есть ли возможность что-то рисовать на принтере через ScanLine, а не через Canvas?

Shouldercannon

Напрямую использовать ScanLine на холсте принтера (TPrinter.Canvas) нельзя.
Свойство ScanLine есть только у объекта TBitmap. Оно предоставляет прямой доступ к пикселям изображения, находящегося в оперативной памяти. Принтер же работает иначе: его Canvas — это обертка над контекстом устройства Windows (Device Context), который принимает векторные команды рисования (линии, текст, полигоны) и отправляет их в диспетчер печати (Print Spooler) в виде метафайла или инструкций для драйвера. Там просто нет «сырого» массива пикселей, который можно было бы перезаписать байт за байтом.

Решение: Использование промежуточного буфера
Единственный и самый эффективный способ использовать ScanLine для печати — это создать TBitmap в памяти, сформировать на нем изображение с помощью ScanLine, а затем отправить этот битмап на принтер через стандартный метод Canvas.Draw или Canvas.StretchDraw.

Вот готовый шаблон, как это реализуется:

Код:

uses
  Vcl.Printers, Vcl.Graphics, Winapi.Windows;

procedure PrintImageViaScanLine;
var
  Bmp: TBitmap;
  X, Y: Integer;
  Row: PRGBTriple; // Для формата pf24bit (3 байта на пиксель)
begin
  Bmp := TBitmap.Create;
  try
    // 1. Обязательно задаем формат пикселей перед использованием ScanLine
    Bmp.PixelFormat := pf24bit;
    
    // 2. Устанавливаем размеры (важный нюанс описан ниже)
    Bmp.Width := 1200;
    Bmp.Height := 1600;

    // 3. Заполняем изображение через ScanLine
    for Y := 0 to Bmp.Height - 1 do
    begin
      Row := Bmp.ScanLine[Y];
      for X := 0 to Bmp.Width - 1 do
      begin
        // Пример: рисуем градиент
        Row^.rgbtBlue  := X mod 256;
        Row^.rgbtGreen := Y mod 256;
        Row^.rgbtRed   := (X + Y) mod 256;
        
        // Переходим к следующему пикселю в строке
        Inc(Row);
      end;
    end;

    // 4. Отправляем готовый битмап на принтер
    Printer.BeginDoc;
    try
      // StretchDraw растянет ваш битмап на всю область печати.
      // Если нужно сохранить пропорции, рассчитывайте прямоугольник (TRect) вручную.
      Printer.Canvas.StretchDraw(Printer.Canvas.ClipRect, Bmp);
    finally
      Printer.EndDoc;
    end;

  finally
    Bmp.Free;
  end;
end;

Важные нюансы при работе с принтером через Bitmap
1. Разрешение (DPI) и память:
У принтеров очень высокое разрешение (обычно 300, 600 или 1200 DPI). Если вы попытаетесь создать TBitmap с размерами, точно соответствующими Printer.PageWidth и Printer.PageHeight (например, $4800 \times 6400$ пикселей для 600 DPI), этот битмап займет в памяти около 90 МБ. Это может сильно замедлить программу или вызвать ошибку Out of Memory на старых системах.
o Решение: Создавайте битмап разумного размера (например, $2000 \times 3000$), а драйвер принтера сам качественно растянет его при помощи StretchDraw.
2. Выравнивание строк (Padding):
При работе со ScanLine всегда учитывайте, что длина строки в байтах в TBitmap округляется до кратного 4 байтам (Dword alignment). Код с Inc(Row) для pf24bit работает отлично внутри одной строки, но никогда не переносите указатель Row с конца одной строки на начало следующей вручную математическим сложением — всегда запрашивайте Bmp.ScanLine[Y] для каждой новой строки.
3. Формат цвета:
Использование pf24bit (PRGBTriple) обычно является золотой серединой для графики. Если вам нужна альфа-прозрачность (хотя принтеры её обычно не поддерживают напрямую), используйте pf32bit и тип PRGBQuad.

рисовать на принтере через ScanLine, а не через Canvas?