:: Home :: Products :: Technical Support :: About Us :: Contact Us
PDF Printer Driver, Convert to PDF, Print to PDF
Example 2: Merge several PDF files and encrypt the output (Delphi)  

   uses ComObj;
      .....

   procedure TForm1.Button1Click(Sender: TObject);
   var
     NVmerge : Variant;
     retVal : Integer;
   begin
     NVmerge := CreateOleObject('PDFMerge.Neevia');
     NVmerge.PDFEncrypt := true;
     NVmerge.PDFEncryptionType := 'rc4';
     NVmerge.PDFOwnerPassword := 'owner';

     // p - document printing is denied
     // e - disable extraction of text and graphics
     NVmerge.PDFPermissions := 'pe';

     retVal := NVmerge.MergePDF('c:\1.pdf+c:\2.pdf', 'c:\merged.pdf');
     if retVal <> 0 then
       Application.MessageBox(PChar('Error code=' + IntToStr(retVal)),'',0)
     else
       Application.MessageBox('Done','',0);
   end;

I downloaded PDFcompress and must say that I was impressed by the high compression ratio, speed and easy to use graphic interface.

Alex Wetzel

If you have any comments or suggestions about our web site, please feel free to email them to

Copyright © 2020 neeviaPDF.com Home | Products | Support | About Us | Contact Us