PDFlibPas Print Preview and Device-Context Output in Delphi به فارسی

این مقاله فارسی موضوع PDFlibPas Print Preview and Device-Context Output in Delphi به فارسی را برای تیم‌هایی توضیح می‌دهد که با Delphi، C++Builder، Lazarus/FPC و کامپوننت‌های losLab راهکارهای تولیدی می‌سازند

تمرکز بر تصمیم‌های عملی، ریسک‌ها و نکته‌های بازبینی است تا خروجی در محیط واقعی قابل اعتماد بماند

زمانی که این موضوع مهم می‌شود

این موضوع زمانی اهمیت دارد که پردازش PDF، صفحه‌گسترده یا سند باید در محیط واقعی قابل تکرار، قابل بررسی و قابل پشتیبانی باشد، نه فقط در یک نمونه نمایشی.

• فایل‌های ورودی، مجوزها، خروجی مورد انتظار و حالت‌های خطا را از ابتدا مشخص کنید
• نام محصول‌ها، نام APIها و نام فایل‌ها را دقیقاً مانند مستندات نگه دارید
• برای پشتیبانی آینده فایل‌های آزمون و لاگ‌های کوتاه نگهداری کنید

گردش‌کار عملی

نکته‌های اصلی متن انگلیسی را به یک گردش‌کار عملی Delphi تبدیل کنید. محورهای مهم منبع عبارت‌اند از:

• سناریوی کاربردی را پیش از تغییر کد مشخص کنید
• نتیجه را با فایل‌های آزمون کوچک بررسی کنید
• نام APIها و مقدارهای literal را بدون تغییر نگه دارید

ابتدا یک نمونه کوچک و قابل بازتولید بسازید، سپس فراخوانی‌های کامپوننت، مدیریت خطا و پیام‌های کاربر را به آن وصل کنید. در قالب‌های سندی، جزئیات کوچک معمولاً تفاوت بین خروجی قابل اعتماد و خطای پشتیبانی‌نشده را ایجاد می‌کنند.

نشانه‌های API و کد

procedure TPreviewForm.PreviewBoxPaint(Sender: TObject);
begin
  // these three are sticky library state, not per-call parameters:
  FPdf.SetRenderDCOffset(FOffsetX, FOffsetY);
  FPdf.SetRenderDCErasePage(1);
  FPdf.SetRenderCropType(0);
  FPdf.RenderPageToDC(FPreviewDpi, FCurrentPage, PreviewBox.Canvas.Handle);
end;

var
  Pdf: TPDFlib;
  Virt: WideString;
  Opt: Integer;
begin
  Pdf := TPDFlib.Create;
  try
    if Pdf.LoadFromFile('report.pdf', '') <> 1 then
      raise Exception.Create('load failed');
    Virt := Pdf.NewCustomPrinter(Pdf.GetDefaultPrinterName);
    Pdf.SetupPrinter(Virt, 1, 9);        // setting 1 = paper, DMPAPER_A4
    Pdf.SetupPrinter(Virt, 11, 1);       // setting 11 = orientation, 1 = portrait
    Opt := Pdf.PrintOptions(1, 1, 'Monthly Report');  // fit to paper, auto-rotate + center
    Pdf.PrintDocument(Virt, 1, Pdf.PageCount, Opt);
  finally
    Pdf.Free;
  end;
end;

بازبینی پیش از انتشار

پیش از انتشار، فایل خروجی، فراداده، رمزگذاری، رندرینگ یا وضعیت واردشده را بر اساس موضوع مقاله بررسی کنید. نسخه ابزار، نسخه کامپوننت، فایل آزمون و نتیجه مشاهده‌شده را ثبت کنید.

نام محصولات، نام APIها و قطعه‌کدها بدون تغییر حفظ شده‌اند تا توسعه‌دهندگان بتوانند متن را با مستندات و کد منبع تطبیق دهند

مطالعه مرتبط

• multi-engine PDF rendering in Delphi
• large PDF merge, split, and direct access
• losLab PDF Library for Delphi

نمونه‌های کد تکمیلی

procedure ShowPrinterTruePreview(Pdf: TPDFlib; const Virt: WideString; Opt: Integer);
var
  Data: AnsiString;
  Strm: TMemoryStream;
  Bmp: TBitmap;
begin
  Data := Pdf.GetPrintPreviewBitmapToString(Virt, 1, Opt, 1200, 0);
  Strm := TMemoryStream.Create;
  try
    Strm.WriteBuffer(PAnsiChar(Data)^, Length(Data));
    Strm.Position := 0;
    Bmp := TBitmap.Create;
    try
      Bmp.LoadFromStream(Strm);
      PreviewImage.Picture.Assign(Bmp);
    finally
      Bmp.Free;
    end;
  finally
    Strm.Free;
  end;
end;