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

procedure TForm1.PDFEncryptClick(Sender: TObject);
var
  DC : Variant;
  RVal : Integer;
begin
   try
     DC := CreateOleObject('Neevia.docConverter');

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

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

     DC.setParameter('PDFNoCopyPermission', 'true');
     DC.setParameter('PDFNoPrintPermission', 'true');
     DC.setParameter('PDFNoChangePermission', 'true');
     DC.setParameter('PDFNoAddPermission', 'true');

     RVal := DC.encryptPDF('c:\in.pdf', 'c:\out.pdf');
     If (RVal <> 0) Then
       ShowMessage('There was an error!!! Code: '+IntToStr(RVal));

   finally
     DC := Unassigned;
   end;
end;



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