在多页 TIFF 上应用压缩答案

【问题标题】：Applying compression on multipage TIFF在多页 TIFF 上应用压缩
【发布时间】：2017-11-17 19:29:34
【问题描述】：

我有以下代码，它采用 WIA.ImageFile 的 List 并从这些文件创建多页 TIFF：

Function MakeTiff(images As List(Of Object))
    Const wiaFormatTIFF = "{B96B3CB1-0728-11D3-9D7B-0000F81EF32E}"
    Dim ip = AutomationFactory.CreateObject("WIA.ImageProcess")
    Dim frameFilterID = ip.FilterInfos("Frame").FilterID
    For i = 2 To images.Count
        ip.Filters.Add(frameFilterID)
        ip.Filters(i - 1).Properties("ImageFile") = images(i - 1)
    Next
    ip.Filters.Add(ip.FilterInfos("Convert").FilterID)
    ip.Filters(ip.Filters.Count).Properties("FormatID") = wiaFormatTIFF
    Return ip.Apply(images(0))
End Function

如何压缩生成的 TIFF 文件（假设它尚未压缩）？

【问题讨论】：

查看这篇文章 - WIA: no compression when saving files
@Rachel 我已经看过了。我正在生成一个多页 TIFF 文件，而不是 JPEG。或者这没有什么区别？

标签： wia

【解决方案1】：

我使用的是 wia 2.0 设置：

.Properties("6146").Value = 1    '4 is Black-white,gray is 2, color 1
.Properties("6147").Value = 200  'dots per inch/horizontal
.Properties("6148").Value = 200  'dots per inch/vertical
.Properties("4107").Value = 5    '0 = NONE, JPG = 5, PNG = 8 *WiaCompressionMode

它在VB.net和VBA中工作，压缩率在98%左右

【讨论】：