Classic ASP Requires Chilkat v11.7.0+

Deflate Compression Level When Optimizing a PDF

See more PDF Optimization Examples

Demonstrates compressionLevel, which is the deflate level (1 to 9, 9 by default) used for every stream the optimizer re-encodes. Level 9 is the smallest and the slowest; level 1 is the quickest. The difference is usually a percent or two, so level 9 is the right default for a file that will be downloaded many times, and a lower level is worth considering only when a server optimizes PDFs on the fly. A value outside 1 to 9 is an error. Classic ASP

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

'  This example requires the Chilkat API to have been previously unlocked.
'  See Global Unlock Sample for sample code.

'  The PDF used in this example is available at watersense_accomplishments.pdf

set fac = Server.CreateObject("Chilkat.FileAccess")
set json = Server.CreateObject("Chilkat.JsonObject")
set jsonOut = Server.CreateObject("Chilkat.JsonObject")

set pdf1 = Server.CreateObject("Chilkat.Pdf")
success = pdf1.LoadFile("qa_data/pdf/watersense_accomplishments.pdf")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( pdf1.LastErrorText) & "</pre>"
    Response.End
End If

success = json.UpdateInt("compressionLevel",1)
success = pdf1.Optimize("optimize",json,jsonOut)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( pdf1.LastErrorText) & "</pre>"
    Response.End
End If

success = pdf1.WriteFile("qa_output/watersense_level1.pdf")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( pdf1.LastErrorText) & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( "level 1: " & fac.FileSize("qa_output/watersense_level1.pdf")) & "</pre>"

set pdf9 = Server.CreateObject("Chilkat.Pdf")
success = pdf9.LoadFile("qa_data/pdf/watersense_accomplishments.pdf")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( pdf9.LastErrorText) & "</pre>"
    Response.End
End If

success = json.UpdateInt("compressionLevel",9)
success = pdf9.Optimize("optimize",json,jsonOut)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( pdf9.LastErrorText) & "</pre>"
    Response.End
End If

success = pdf9.WriteFile("qa_output/watersense_level9.pdf")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( pdf9.LastErrorText) & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( "level 9: " & fac.FileSize("qa_output/watersense_level9.pdf")) & "</pre>"

'  A level outside 1..9 fails, and LastErrorText says why.
set pdfBad = Server.CreateObject("Chilkat.Pdf")
success = pdfBad.LoadFile("qa_data/pdf/watersense_accomplishments.pdf")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( pdfBad.LastErrorText) & "</pre>"
    Response.End
End If

success = json.UpdateInt("compressionLevel",12)
success = pdfBad.Optimize("optimize",json,jsonOut)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( "compressionLevel 12 was refused, as it should be.") & "</pre>"
End If


%>
</body>
</html>