encryption.dpr

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

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

var
   VPDF: TVPDF;

begin
  VPDF:= TVPDF.Create(nil);
  try
    VPDF.FileName := '.\Encrypt.pdf';                              // Set PDF filename
    VPDF.ActivateProtection := true;                               // Enable encryption
    VPDF.CryptKeyLength := k128;                                   // Set encryption type to 128 bit
    VPDF.OwnerPassword := 'OwnerPass';                             // Set owner password
    VPDF.UserPassword := 'UserPass';                               // Set user password
    VPDF.ProtectOptions := [prPrint, prExtractContent];            // Allow user to extract PDF content
    VPDF.BeginDoc;                                                 // Create PDF file
    VPDF.CurrentPage.TextOut(10, 10, 0, 'Encrypted document !!!'); // Print text
    VPDF.EndDoc;                                                   // Close PDF file
  finally
      VPDF.Free;
  end;
end.