Распечатать TImage 2

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

Автор: http://www.experts-exchange.com

uses
  printers;

procedure DrawImage(Canvas: TCanvas; DestRect: TRect; ABitmap: TBitmap);
var
  Header, Bits: Pointer;
  HeaderSize: DWORD;
  BitsSize: DWORD;
begin
  GetDIBSizes(ABitmap.Handle, HeaderSize, BitsSize);
  Header := AllocMem(HeaderSize);
  Bits := AllocMem(BitsSize);
  try
    GetDIB(ABitmap.Handle, ABitmap.Palette, Header^, Bits^);
    StretchDIBits(Canvas.Handle, DestRect.Left, DestRect.Top,
      DestRect.Right, DestRect.Bottom,
      0, 0, ABitmap.Width, ABitmap.Height, Bits, TBitmapInfo(Header^),
      DIB_RGB_COLORS, SRCCOPY);
  finally
    FreeMem(Header, HeaderSize);
    FreeMem(Bits, BitsSize);
  end;
end;

procedure PrintImage(Image: TImage; ZoomPercent: Integer);
// if ZoomPercent=100, Image will be printed across the whole page
var
  relHeight, relWidth: integer;
begin
  Screen.Cursor := crHourglass;
  Printer.BeginDoc;
  with Image.Picture.Bitmap do
  begin
    if ((Width / Height) > (Printer.PageWidth / Printer.PageHeight)) then
    begin
      // Stretch Bitmap to width of PrinterPage
      relWidth := Printer.PageWidth;
      relHeight := MulDiv(Height, Printer.PageWidth, Width);
    end
    else
    begin
      // Stretch Bitmap to height of PrinterPage
      relWidth := MulDiv(Width, Printer.PageHeight, Height);
      relHeight := Printer.PageHeight;
    end;
    relWidth := Round(relWidth * ZoomPercent / 100);
    relHeight := Round(relHeight * ZoomPercent / 100);
    DrawImage(Printer.Canvas, Rect(0, 0, relWidth, relHeight),
      Image.Picture.Bitmap);
  end;
  Printer.EndDoc;
  Screen.cursor := crDefault;
end;

// Example Call:

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Print image at 40% zoom:
  PrintImage(Image1, 40);
end;

Программа на Delphi, которая печатает изображение на принтере с возможностью масштабирования вверх или вниз. Вот подробное описание работы кода:

Процедура DrawImage

Эта процедура принимает три параметра: канвас (Canvas), прямоугольник назначения (DestRect) и битмап-изображение (ABitmap). Она используется для рисования изображения на канвасе.

1. Получает размеры заголовка и битмапов с помощью GetDIBSizes.
2. Аллоцирует память для заголовка и битмапов с помощью AllocMem.
3. Извлекает информацию о DIB (Device-Independent Bitmap) из изображения с помощью GetDIB.
4. Распространяет DIB на канвасе с помощью StretchDIBits.
5. Освобождает аллоцированную память с помощью FreeMem.

Процедура PrintImage

Эта процедура принимает два параметра: изображение (Image) и процент масштабирования (ZoomPercent). Она печатает изображение на принтере с указанным уровнем масштабирования.

1. Устанавливает курсор в виде часовы, пока не будет печататься.
2. Начинает новый документ для печати с помощью Printer.BeginDoc.
3. Получает ширину и высоту битмапа изображения.
4. Калкулирует относительную ширину и высоту изображения, основываясь на том, нужно ли растянуть его горизонтально или вертикально, чтобы оно поместилось на странице.
5. Масштабирует ширину и высоту с помощью указанного процента масштабирования.
6. Рисует масштабированное изображение на канвасе принтера с помощью DrawImage.
7. Завершает документ для печати с помощью Printer.EndDoc и возвращает курсор в его 기본ное состояние.

Пример вызова

Пример вызова находится в процедуре Button1Click, которая печатает изображение на форме (Image1) с масштабированием 40%.

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

В статье описана процедура печати изображения на принтер с возможностью масштабирования и растяжения для вывода на странице.

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

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

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