pdfedit.dpr

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

program PDFEdit;
{$APPTYPE CONSOLE}
uses
  SysUtils,
  Classes,
  Graphics,
  VPDFDoc;

var
    ImInd: Integer;
    VPDF: TVPDF;
begin
    VPDF := TVPDF.Create(nil);
    try
        VPDF.FileName := '..\OutFile.pdf';     // Set out filename
        VPDF.LoadFromFile('..\InFile.pdf');    // 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
    finally
        VPDF.Free;
    end;
end.