Code Samples - Neevia PDFcompress

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

   <%
     Dim NVcomp : Set NVcomp = Server.CreateObject("PDFcompress.Neevia")

     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

     Dim retVal : retVal = NVcomp.CompressPDF("c:\in.pdf","c:\out.pdf")

     if retVal<>0 then
       Response.Write "Error = " & CStr(retVal)
     else 
       Response.Write "Done"
     end if
   %>