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 13: Encrypt an existing PDF file (128 bits - RC4) 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', 'rc4' );

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

    // p - disable document printing
    // e - disable extraction of text and graphics
    DC.setParameter( 'Permissions', 'pe' );

    RVal := DC.encryptPDF('c:\in.pdf', 'c:\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