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
24
25

   <%
     Dim NVcomp : Set NVcomp = Server.CreateObject("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

     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
   %>