addanddeletepdfpages.dpr

来自「生成PDF文档的控件」· DPR 代码 · 共 50 行

{*******************************************************}
{                                                       }
{       This unit is part of the VISPDF VCL library.    }
{       Written by R.Husske - ALL RIGHTS RESERVED.      }
{                                                       }
{       Copyright (C) 2000-2008, www.vispdf.com         }
{                                                       }
{       e-mail: [e-mail]                      }
{       http://www.vispdf.com                           }
{                                                       }
{*******************************************************}

program AddAndDeletePDFPages;
{$APPTYPE CONSOLE}
uses
  SysUtils, VPDFDoc;

var
   I: Integer;
   PCI: Integer;
   VPDF: TVPDF;
begin
    VPDF := TVPDF.Create(nil);
    try
        VPDF.FileName := '..\Outfile.pdf'; // Set out filename
        VPDF.LoadFromFile('..\Pages.pdf'); // Load an existing PDF file
        VPDF.PageLayout := plOneColumn;    // Set one column page layout

        VPDF.BeginDoc;                     // Create PDF file

        PCI := VPDF.PagesCount;            // Receive count of in existing PDF file
        I := 1;
        while I < ( PCI - I + 1 ) do       //
        begin                              //
            VPDF.DeletePage(I);            //  Delete all even pages from an existing PDF file
            Inc(I);                        //
        end;

        I := 1;
        while I < 6 do                     //
        begin                              //
            VPDF.AddPage;                  //  Add five new pages
            Inc(I);                        //
        end;                               //

        VPDF.EndDoc;                       // Close PDF file
    finally
        VPDF.Free;
    end;
end.