mainunit.pas

生成PDF文档的控件

{*******************************************************}
{                                                       }
{       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                           }
{                                                       }
{*******************************************************}

unit MainUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  VPDFDoc, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    InFileEdit: TEdit;
    OutFileEdit: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    VPDF: TVPDF;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
   I: Integer;
   PCI: Integer;
begin
    VPDF.FileName := OutFileEdit.Text;    // Set out filename
    VPDF.LoadFromFile(InFileEdit.Text);   // Load an existing PDF file 
    VPDF.PageLayout := plOneColumn;       // Set one column page layout

    VPDF.BeginDoc;                        // Create PDF file

    PCI := VPDF.PagesCount;               // Receive count of pages 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;

    VPDF.EndDoc;                          // Close PDF file
end;

procedure TForm1.Button2Click(Sender: TObject);
var
   I: Integer;
begin
    VPDF.FileName := OutFileEdit.Text;    // Set out filename
    VPDF.LoadFromFile(InFileEdit.Text);   // Load an existing PDF file
    VPDF.PageLayout := plOneColumn;       // Set one column page layout

    VPDF.BeginDoc;                        // Create PDF file

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

    VPDF.EndDoc;                          // Close PDF file
end;

end.