VB.NET/.NET Core中PdfiumViewer转PDF为JPG后模糊问题求助

问题背景 #

在VB.NET/.NET Core应用中使用PdfiumViewer库将PDF转换为JPG，转换后的JPG仅约200KB，放入Crystal Reports后显示模糊。现有转换代码如下：

Function ConvertPDFToJPG(pdfPath As String, outputPath As String) As String
    Try
        If Not File.Exists(pdfPath) Then
            Return "Error: El archivo PDF no existe."
        End If

        ' Cargar el PDF
        Dim pdf As PdfDocument = PdfDocument.Load(pdfPath)
        
        Dim image as Bitmap
        image = pdf.Render(0,10000,10000, false)
        image.RotateFlip(RotateFlipType.Rotate270FlipNone)

        Dim encoder As ImageCodecInfo = ImageCodecInfo.GetImageDecoders().First(Function(c) c.FormatID = ImageFormat.Jpeg.Guid)
        Dim encoderParams As New EncoderParameters(1)
        encoderParams.Param(0) = New EncoderParameter(System.Drawing.Imaging.Encoder.Quality, 100L)

        Dim outputFile as String = outputPath & "_page-" & (1).ToString("D4") & ".jpg"
        image.Save(outputFile, encoder, encoderParams)
        Return "OK"
    Catch ex As Exception
        Return "Error: " & ex.Message
    End Try
End Function

解决方案 #

核心优化方向 #

• 基于DPI计算渲染尺寸：固定像素尺寸会导致Pdfium自动缩放丢失细节，改用目标DPI（如300DPI，Crystal Reports高清打印常用值）计算渲染像素，保证图像密度足够。
• 启用高保真渲染：pdf.Render的最后一个参数设为True，开启高质量渲染模式。
• 减少不必要的图像操作：非必要时去掉RotateFlip，避免额外的图像损耗；若必须旋转，先确认PDF页面原始方向。
• 可选：改用PNG无损格式：JPG即使质量100仍有压缩损耗，PNG能完整保留细节，适合报表显示。
• 检查报表图像设置：在Crystal Reports中插入图像时，设置为实际尺寸，禁止自动拉伸/压缩。

修改后的代码 #

Function ConvertPDFToJPG(pdfPath As String, outputPath As String) As String
    Try
        If Not File.Exists(pdfPath) Then
            Return "Error: El archivo PDF no existe."
        End If

        ' 加载PDF并自动释放资源
        Using pdf As PdfDocument = PdfDocument.Load(pdfPath)
            ' 获取页面原始尺寸（单位：点，1点=1/72英寸）
            Dim pageSize = pdf.PageSizes(0)
            ' 目标DPI，可根据报表需求调整（300DPI为高清打印标准）
            Const targetDpi As Integer = 300
            
            ' 计算渲染像素：(页面尺寸/72) * DPI
            Dim renderWidth = CInt(Math.Round(pageSize.Width / 72 * targetDpi))
            Dim renderHeight = CInt(Math.Round(pageSize.Height / 72 * targetDpi))

            ' 启用高保真渲染（最后一个参数为True）
            Using image As Bitmap = pdf.Render(0, renderWidth, renderHeight, True)
                ' 仅当确认需要旋转时才执行此操作
                ' image.RotateFlip(RotateFlipType.Rotate270FlipNone)

                ' 配置JPG编码器参数，质量设为100
                Dim encoder As ImageCodecInfo = ImageCodecInfo.GetImageDecoders().First(Function(c) c.FormatID = ImageFormat.Jpeg.Guid)
                Dim encoderParams As New EncoderParameters(1)
                encoderParams.Param(0) = New EncoderParameter(System.Drawing.Imaging.Encoder.Quality, 100L)

                Dim outputFile As String = $"{outputPath}_page-{1.ToString("D4")}.jpg"
                image.Save(outputFile, encoder, encoderParams)
            End Using
        End Using
        Return "OK"
    Catch ex As Exception
        Return $"Error: {ex.Message}"
    End Try
End Function

代码说明 #

1. DPI驱动的尺寸计算：根据PDF页面原始尺寸和目标DPI计算渲染像素，确保图像的实际清晰度匹配报表输出需求。
2. 资源自动释放：使用Using语句管理PdfDocument和Bitmap对象，避免内存泄漏。
3. 高保真渲染：开启pdf.Render的高质量模式，减少渲染过程中的细节丢失。

内容的提问来源于stack exchange，提问作者burlok