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,
  StdCtrls, VPDFDoc;

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

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
    ImInd: 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

    VPDF.CurrentPageNumber := 0;           // Set page number 0 as current page
    VPDF.CurrentPage.SetRGBColor(clRed);   //
    VPDF.CurrentPage.MoveTo(472, 110);     //
    VPDF.CurrentPage.LineTo(509, 105);     //  Draw red line
    VPDF.CurrentPage.Stroke;               //
    VPDF.CurrentPage.SetFont('Arial', [fsItalic], 12, 0);
    VPDF.CurrentPage.TextOut(478, 90, 0, 'bird');          // Print text
    VPDF.CurrentPage.MoveTo(105, 200);     //
    VPDF.CurrentPage.LineTo(134, 195);     //    Draw red line
    VPDF.CurrentPage.Stroke;               //
    VPDF.CurrentPage.SetFont('Arial', [fsItalic], 12, 0);
    VPDF.CurrentPage.TextOut(105, 180, 0, 'black');        // Print text
    VPDF.CurrentPage.AddStampAnnotation ( 'Draft',  Rect(300, 300, 450, 390), satDraft); //  Set stamp DRAW
    ImInd := VPDF.AddImage('..\Stamp.jpg', icJpeg );
    VPDF.CurrentPage.ShowImage(ImInd, 50, 300, 100, 50, 0 );              // Draw image stamp
    VPDF.CurrentPageNumber := 1;                                          // Set page number 1 as current page
    VPDF.CurrentPage.ShowImage(ImInd, 50, 300, 100, 50, 0 );              // Draw image stamp
    VPDF.CurrentPage.AddStampAnnotation ( 'Approved',  Rect(300, 300, 450, 390), satApproved); // Set stamp APPROVED

    VPDF.EndDoc;                           // Close PDF file
end;

end.