pdfinfo.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 PDFInfo;
{$APPTYPE CONSOLE}
uses
  SysUtils,
  Graphics,
  Classes,
  VPDFDoc;

var
   VPDF: TVPDF;

begin
  VPDF:= TVPDF.Create(nil);
  try
    VPDF.AutoLaunch := true;                                 // PDF file will shown automatically
    VPDF.FileName := '.\InfoDemo.pdf';                       // Set PDF filename
    VPDF.ShowInfo := true;                                   // Include information into document
    VPDF.Author := 'VisPDF console user';                    // Set information about author
    VPDF.Subject := 'VisPDF console information demo';       // Set document subject
    VPDF.Title := 'Information Demo';                        // Set document title
    VPDF.BeginDoc;                                           // Create PDF file
    VPDF.CurrentPage.TextOut(10, 10, 0, 'Information Demo'); // Print text
    VPDF.EndDoc;                                             // Close PDF file
  finally
      VPDF.Free;
  end;
end.