Neevia Technology Sites:   www.neevia.com  |  docuPub.com  |  www.neeviaPDF.com
:: Home :: Products :: Technical Support :: About Us :: Contact Us
Technical support > Neevia docCreator code samples
Example 13: Encrypt an existing PDF file (128 bits) from Delphi  Print Example 


procedure encryptPDF();
var
  DC   : Variant;
  RVal : Integer;
begin
   try
     DC := CreateOleObject('Neevia.docCreator');

     DC.setParameter('PDFEncryption', 'true');
     DC.setParameter('PDFEncryptionType', '128');

     DC.setParameter('PDFOwnerPassword', 'test');
     DC.setParameter('PDFUserPassword', 'open');

     DC.setParameter('PDFContentAccess', 'false');
     DC.setParameter('PDFAllowExtraction', 'false');
     DC.setParameter('PDFChangesAllowed', '0');
     DC.setParameter('PDFPrintingPermissions', '0');

     RVal := DC.encryptPDF('d:\in.pdf', 'd:\out.pdf');
     if (RVal <> 0) then
       ShowMessage('There was an error!!! Code: '+IntToStr(RVal))
     else
       ShowMessage('Done !!!');
   finally
     DC:= Unassigned;
   end;
end;



Copyright © 1999-2016 Neevia Technology. All Rights Reserved. Home | Products | Technical Support | About Us | Contact Us