C#/VB.NET 实现彩色PDF转为灰度PDF

C#/VB.NET 实现彩色 PDF 转为灰度 PDF 攻略

在处理大量 PDF 文件时，我们可能需要将一些彩色的 PDF 转换为灰度的 PDF，以减少文件大小和管理文件。下面给出使用 C# 或 VB.NET 实现彩色 PDF 转换为灰度 PDF 的攻略。

1. 安装 PDF 处理库 iTextSharp

iTextSharp 是一个使用 C# 实现的免费 PDF 处理库，我们可以使用 NuGet 包管理器将其安装到我们的 .NET 项目中。

例如，可以使用以下命令在 Visual Studio 中安装 iTextSharp：

Install-Package iTextSharp

2. 实现彩色 PDF 转换为灰度 PDF 的代码

下面是一个示例代码块，实现彩色 PDF 转换为灰度 PDF 的功能。

// C# 代码示例
using System;
using System.IO;
using iTextSharp.text;
using iTextSharp.text.pdf;

public static void ConvertToGrayscale(string sourcePath, string outputPath)
{
    using (var reader = new PdfReader(sourcePath))
    {
        using (var fileStream = new FileStream(outputPath, FileMode.Create, FileAccess.Write))
        {
            using (var stamper = new PdfStamper(reader, fileStream))
            {
                var total = reader.NumberOfPages + 1;
                for (var i = 1; i < total; i++)
                {
                    var page = stamper.GetImportedPage(reader, i);
                    var newPage = CopyAndConvertToGrayscale(page);
                    stamper.SetPageContent(i, newPage);
                }
            }
        }
    }
}

private static PdfStream CopyAndConvertToGrayscale(PdfImportedPage page)
{
    var sourcePdfStream = page.ToPdf(null);
    var sourceImage = new Jpeg(sourcePdfStream.GetAsBytes());
    var gs = new PdfGrayColorSpace();
    var image = Image.GetInstance(sourceImage);
    var newImage = Image.GetInstance(image.GetWidth(), image.GetHeight(), 1, 8, gs.GetPdfObject());
    newImage.AddImage(sourceImage);
    var outputStream = new MemoryStream();
    newImage.CompressionLevel = 0;
    newImage.Compress = false;
    newImage.Layer = new PdfLayer("converted", page.PdfWriter);
    newImage.WriteImage(outputStream);
    return new PdfStream(outputStream.ToArray());
}

' VB.NET 代码示例
Imports System.IO
Imports iTextSharp.text
Imports iTextSharp.text.pdf

Public Shared Sub ConvertToGrayscale(sourcePath As String, outputPath As String)
    Using reader = New PdfReader(sourcePath)
        Using fileStream = New FileStream(outputPath, FileMode.Create, FileAccess.Write)
            Using stamper = New PdfStamper(reader, fileStream)
                Dim total = reader.NumberOfPages + 1
                For i = 1 To total - 1
                    Dim page = stamper.GetImportedPage(reader, i)
                    Dim newPage = CopyAndConvertToGrayscale(page)
                    stamper.SetPageContent(i, newPage)
                Next
            End Using
        End Using
    End Using
End Sub

Private Shared Function CopyAndConvertToGrayscale(page As PdfImportedPage) As PdfStream
    Dim sourcePdfStream = page.ToPdf(Nothing)
    Dim sourceImage = New Jpeg(sourcePdfStream.GetAsBytes())
    Dim gs = New PdfGrayColorSpace()
    Dim image = Image.GetInstance(sourceImage)
    Dim newImage = Image.GetInstance(image.GetWidth(), image.GetHeight(), 1, 8, gs.GetPdfObject())
    newImage.AddImage(sourceImage)
    Dim outputStream = New MemoryStream()
    newImage.CompressionLevel = 0
    newImage.Compress = False
    newImage.Layer = New PdfLayer("converted", page.PdfWriter)
    newImage.WriteImage(outputStream)
    Return New PdfStream(outputStream.ToArray())
End Function

上述示例代码使用 PdfReader 读取指定 PDF 文件，使用 PdfStamper 创建新的 PDF，对每个页面执行 CopyAndConvertToGrayscale 函数，并将其设置为新的页面内容。CopyAndConvertToGrayscale 函数将指定页面转换为灰度颜色并返回一个 PdfStream 对象，该对象将用于更新新 PDF 中的页面内容。

3. 测试

为了测试这个示例代码，我们需要找到一些彩色的 PDF 文件，将其作为源文件传递给 ConvertToGrayscale 方法并指定输出路径，然后检查生成的灰度 PDF 文件是否符合预期。以下是一个示例测试：

ConvertToGrayscale("color.pdf", "grayscale.pdf");

ConvertToGrayscale("color.pdf", "grayscale.pdf")

这将把名为 "color.pdf" 的彩色 PDF 文件转换为名为 "grayscale.pdf" 的灰度 PDF 文件。

另外，我们可以添加额外的测试用例，以确保代码可以处理多种类型的彩色 PDF 文件。

总结

使用 iTextSharp 库，我们可以轻松实现彩色 PDF 转换为灰度 PDF 的功能。在处理大量彩色 PDF 文件时，这种技术能够有效地节省存储空间并简化文件的管理。