PowerBuilder 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. PowerBuilder

integer li_rc
long li_Success
oleobject loo_Fac
oleobject loo_Json
oleobject loo_JsonOut
oleobject loo_Pdf1
oleobject loo_Pdf9
oleobject loo_PdfBad

li_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

loo_Fac = create oleobject
li_rc = loo_Fac.ConnectToNewObject("Chilkat.FileAccess")
if li_rc < 0 then
    destroy loo_Fac
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_Json = create oleobject
li_rc = loo_Json.ConnectToNewObject("Chilkat.JsonObject")

loo_JsonOut = create oleobject
li_rc = loo_JsonOut.ConnectToNewObject("Chilkat.JsonObject")

loo_Pdf1 = create oleobject
li_rc = loo_Pdf1.ConnectToNewObject("Chilkat.Pdf")

li_Success = loo_Pdf1.LoadFile("qa_data/pdf/watersense_accomplishments.pdf")
if li_Success = 0 then
    Write-Debug loo_Pdf1.LastErrorText
    destroy loo_Fac
    destroy loo_Json
    destroy loo_JsonOut
    destroy loo_Pdf1
    return
end if

loo_Json.UpdateInt("compressionLevel",1)
li_Success = loo_Pdf1.Optimize("optimize",loo_Json,loo_JsonOut)
if li_Success = 0 then
    Write-Debug loo_Pdf1.LastErrorText
    destroy loo_Fac
    destroy loo_Json
    destroy loo_JsonOut
    destroy loo_Pdf1
    return
end if

li_Success = loo_Pdf1.WriteFile("qa_output/watersense_level1.pdf")
if li_Success = 0 then
    Write-Debug loo_Pdf1.LastErrorText
    destroy loo_Fac
    destroy loo_Json
    destroy loo_JsonOut
    destroy loo_Pdf1
    return
end if

Write-Debug "level 1: " + string(loo_Fac.FileSize("qa_output/watersense_level1.pdf"))

loo_Pdf9 = create oleobject
li_rc = loo_Pdf9.ConnectToNewObject("Chilkat.Pdf")

li_Success = loo_Pdf9.LoadFile("qa_data/pdf/watersense_accomplishments.pdf")
if li_Success = 0 then
    Write-Debug loo_Pdf9.LastErrorText
    destroy loo_Fac
    destroy loo_Json
    destroy loo_JsonOut
    destroy loo_Pdf1
    destroy loo_Pdf9
    return
end if

loo_Json.UpdateInt("compressionLevel",9)
li_Success = loo_Pdf9.Optimize("optimize",loo_Json,loo_JsonOut)
if li_Success = 0 then
    Write-Debug loo_Pdf9.LastErrorText
    destroy loo_Fac
    destroy loo_Json
    destroy loo_JsonOut
    destroy loo_Pdf1
    destroy loo_Pdf9
    return
end if

li_Success = loo_Pdf9.WriteFile("qa_output/watersense_level9.pdf")
if li_Success = 0 then
    Write-Debug loo_Pdf9.LastErrorText
    destroy loo_Fac
    destroy loo_Json
    destroy loo_JsonOut
    destroy loo_Pdf1
    destroy loo_Pdf9
    return
end if

Write-Debug "level 9: " + string(loo_Fac.FileSize("qa_output/watersense_level9.pdf"))

//  A level outside 1..9 fails, and LastErrorText says why.
loo_PdfBad = create oleobject
li_rc = loo_PdfBad.ConnectToNewObject("Chilkat.Pdf")

li_Success = loo_PdfBad.LoadFile("qa_data/pdf/watersense_accomplishments.pdf")
if li_Success = 0 then
    Write-Debug loo_PdfBad.LastErrorText
    destroy loo_Fac
    destroy loo_Json
    destroy loo_JsonOut
    destroy loo_Pdf1
    destroy loo_Pdf9
    destroy loo_PdfBad
    return
end if

loo_Json.UpdateInt("compressionLevel",12)
li_Success = loo_PdfBad.Optimize("optimize",loo_Json,loo_JsonOut)
if li_Success = 0 then
    Write-Debug "compressionLevel 12 was refused, as it should be."
end if



destroy loo_Fac
destroy loo_Json
destroy loo_JsonOut
destroy loo_Pdf1
destroy loo_Pdf9
destroy loo_PdfBad