:: Home :: Products :: Technical Support :: About Us :: Contact Us
PDF Printer Driver, Convert to PDF, Print to PDF
Example 2: Compress a PDF file (medium image quality, medium compression) (Delphi)  

   uses ComObj;
      .....

   procedure TForm1.Button1Click(Sender: TObject);
   var
     NVcomp : Variant;
     retVal : Integer;
   begin
     NVcomp := CreateOleObject('Neevia.PDFcompress');

     NVcomp.CI := 'jpx';
     NVcomp.CQ := 50;

     NVcomp.GI := 'jpx';
     NVcomp.GQ := 50;

     NVcomp.MI := 'jbig2';
     NVcomp.MQ := 5;

     // For better compression uncomment the line below
     // NVcomp.CreateObjectStreams := true;

     retVal := NVcomp.CompressPDF('c:\in.pdf', 'c:\out.pdf');
     if retVal <> 0 then
       Application.MessageBox(PChar('Error code=' + IntToStr(retVal)),'',0)
     else
       Application.MessageBox('Done','',0);
   end;

We use the ActiveX component that comes with PDFmerge/split to manipulate large volumes of PDF files. Great product and accurate customer support!!!

David Cogney

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

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