Build a PDF Intake Review Workbench in Delphi with PDFium به فارسی

این مقاله فارسی موضوع Build a PDF Intake Review Workbench in Delphi with PDFium به فارسی را برای تیم‌هایی توضیح می‌دهد که با Delphi، C++Builder، Lazarus/FPC و کامپوننت‌های losLab راهکارهای تولیدی می‌سازند

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

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

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

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

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

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

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

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

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

procedure InspectIncoming(const IncomingPath: string; var Rec: TIntakeRecord);
var
  Pdf: TPdf;
begin
  Pdf := TPdf.Create(nil);
  try
    Pdf.FileName := IncomingPath;
    Pdf.FormFill := False;     // no form environment, no JavaScript init
    Pdf.Active := True;        // failure is silent: Active simply stays False

    if not Pdf.Active then
    begin
      Rec.OpenFailed := True;  // damaged file or user-password lock
      Exit;                    // the finally block still runs
    end;

    Rec.PageCount := Pdf.PageCount;
    CollectIdentity(Pdf, IncomingPath, Rec);
    CollectRiskSignals(Pdf, Rec);
  finally
    Pdf.Active := False;
    Pdf.Free;                  // never leak the instance on a malformed file
  end;
end;

procedure CollectIdentity(Pdf: TPdf; const FilePath: string;
  var Rec: TIntakeRecord);
begin
  Rec.Title := Pdf.Title;             // Info dictionary value
  Rec.Author := Pdf.Author;
  Rec.CreatedAt := Pdf.CreationDate;  // raw PDF date string ("D:2026...")

  // An empty Info title does not mean the document is untitled. The
  // component does not expose the XMP packet, so probe the raw file
  // bytes for the dc:title element before trusting the blank.
  if (Rec.Title = '') and FileContainsText(FilePath, 'dc:title') then
    Include(Rec.Flags, ifTitleInXmpOnly);
end;

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

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

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

مطالعه مرتبط

• building a secure PDF preview surface in Delphi
• batch preflight validation against PDF/A and PDF/UA profiles
• PDFium Component

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

procedure CollectRiskSignals(Pdf: TPdf; var Rec: TIntakeRecord);
var
  i, PageNo: Integer;
  Ext: string;
begin
  Rec.IsEncrypted := Assigned(FPDF_GetSecurityHandlerRevision) and
    (FPDF_GetSecurityHandlerRevision(Pdf.Document) <> -1);
  Rec.HasForms := Pdf.FormType <> ftNone;
  Rec.IsXfa := Pdf.FormType = ftXfaFull;
  Rec.HasJavaScript := Pdf.JavaScriptActionCount > 0;

  // AnnotationCount is a per-page property; walk the pages to total
  // it. Loading a page object renders nothing, so this stays cheap.
  Rec.Annotations := 0;
  for PageNo := 1 to Pdf.PageCount do
  begin
    Pdf.PageNumber := PageNo;
    Inc(Rec.Annotations, Pdf.AnnotationCount);
  end;

  Rec.Attachments := Pdf.AttachmentCount;

  for i := 0 to Rec.Attachments - 1 do
  begin
    Ext := LowerCase(ExtractFileExt(string(Pdf.AttachmentName[i])));
    if (Ext = '.exe') or (Ext = '.js') or (Ext = '.vbs') or (Ext = '.dll') then
      Include(Rec.Flags, ifDangerousAttachment);
  end;
end;