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

   uses ComObj;

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

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

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

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

     NVcomp.CreateObjectStreams := true;

     NVcomp.removePageLabels := true;
     NVcomp.removeArticleThreads := true;

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

As a programmer I needed a tool to manipulate PDF files. Neevia PDF toolbox contains everything necessary to build a solution that can be used to stamp, split, merge, resize and compress PDF documents, all from one package!

Jim Webber

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

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