mainunit.cpp

生成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                           //
//                                                       //
//*******************************************************//
#include <vcl.h>
#pragma hdrstop

#include "MainUnit.h"

#pragma package(smart_init)
#pragma link "VPDFDoc"
#pragma resource "*.dfm"
TForm1 *Form1;

__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}


void __fastcall TForm1::Button1Click(TObject *Sender)
{
    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 = VPDF->ProtectOptions << prPrint << prExtractContent; // Allow user to extract PDF content
    VPDF->BeginDoc(false);                                                 // Create PDF file
    VPDF->CurrentPage->PrintText(10, 10, 0, "Encrypted document !!!"); // Print text
    VPDF->EndDoc();                                                   // Close PDF file
}