CompressPage

خصائص الصفحة

الوصف

توثق هذه الصفحة CompressPage في PDFlibPas ضمن موضوع خصائص الصفحة. تبقى أسماء API والمعلمات والفئات وأسماء الملفات والقيم الحرفية كما هي لتطابق مكتبة Delphi ونقاط إدخال DLL

راجع الصياغة والمعلمات وقيم الإرجاع قبل استدعاء الدالة. تبقى كتل التعليمات البرمجية بصيغتها الأصلية حتى يمكن نسخ الأمثلة بلا تعديل. CompressContent, SelectPage, CompressContent

الصياغة

Delphi

Function TPDFlib.CompressPage: Integer;

ActiveX

Function PDFlib::CompressPage() As Long

DLL

int DLCompressPage(int InstanceID);

قيم الإرجاع

ملاحظات

راجع الصياغة والمعلمات وقيم الإرجاع قبل استدعاء الدالة. تبقى كتل التعليمات البرمجية بصيغتها الأصلية حتى يمكن نسخ الأمثلة بلا تعديل.

مثال

// Compress every page individually so the UI can report progress
var
  I, N: Integer;
begin
  N := PDF.GetPageCount;
  for I := 1 to N do
  begin
    PDF.SelectPage(I);
    PDF.CompressPage;
    ProgressBar1.Position := (I * 100) div N;
    Application.ProcessMessages;
  end;
  PDF.SaveToFile('compressed.pdf');
end;

راجع أيضًا

CompressContent, CompressImages, CompressFonts, SelectPage, PageCount