Neevia Tech sites:   neevia.com   |   neeviaPDF.com   |   docuPub.com
space1 separator space2  

Code Samples - Neevia PDFcompress

Example 1: Compress a PDF file (high image quality, low compression) - Delphi Copy 

To compress a PDF from Delphi download Neevia PDF compress and install it on your Windows machine then use the code below.
It will compress each page in the input PDF document and at the same time preserve the image quality. 
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
   uses ComObj;
      .....

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

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

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

     NVcomp.MI := 'jbig2l';
     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;