Я пытаюсь объединить группу PDF вместе и убедиться, что они хорошо сжаты и что нет дублированных ресурсов. Однако в моем коде, если я назову SetSmartMode (true) на моем писателе, первая запись на него всегда приведет к исключению NullReferenceException.Если я включаю Smart Mode, генерируется исключение NullReferenceException
Вот мой (vb.net) код:
Private Function CombinePdfBatch(pdfMetaData As IEnumerable(Of QuestDataSet.MetaDataRow), batchNumber As Integer,
fileNamePrefix As String, outputDir As String) As String
Dim outputFileName As String = Path.Combine(outputDir, fileNamePrefix & "_" & batchNumber & ".pdf")
Using combinedPdf As New PdfDocument(New PdfWriter(Path.Combine(outputDir, fileNamePrefix & "_" & batchNumber & ".pdf")).SetSmartMode(True))
'Make sure we close the underlying stream when we're done with the combination
combinedPdf.SetCloseWriter(True)
combinedPdf.SetCloseReader(False)
combinedPdf.SetFlushUnusedObjects(False)
combinedPdf.GetWriter().SetCompressionLevel(CompressionConstants.BEST_COMPRESSION)
combinedPdf.GetWriter().SetCloseStream(True)
combinedPdf.SetDefaultPageSize(New Geom.PageSize(630, 810))
Dim merger As New PdfMerger(combinedPdf)
For Each currentMD As QuestDataSet.MetaDataRow In pdfMetaData
Using currentPDF As New PdfDocument(New PdfReader(Path.Combine(programPaths.Input, currentMD.ReceivedFilesRowByInputFileRelation.FileName)))
currentPDF.SetCloseReader(True)
currentPDF.SetCloseWriter(False)
currentPDF.GetReader().SetCloseStream(True)
currentMD.CombinedFileName = outputFileName
currentMD.StartPage = combinedPdf.GetNumberOfPages() + 1
merger.Merge(currentPDF, 1, currentPDF.GetNumberOfPages())
currentMD.EndPage = combinedPdf.GetNumberOfPages()
End Using
Next
merger.Close()
End Using
Return outputFileName
End Function
Как только merger.Merge
это называют, NullReferenceException
отбрасывается. Я заменил это на многие другие функции, но если что-то добавлено в PDF, когда автор находится в режиме Smart, он сработает.
Если отключить Smart Mode, файлы PDF будут объединены. Но мне нужно как можно больше уменьшить размер этих PDF-файлов без, жертвуя слишком большим качеством. Поскольку я знаю, что все они используют один и тот же шрифт и используют некоторые фондовые изображения, я решил, что объединю их всех, чтобы это сделать.
EDIT: Вот трассировки стека, так как я люблю вас, ребята:
System.NullReferenceException occurred
HResult=-2147467261
Message=Object reference not set to an instance of an object.
Source=itext.kernel
StackTrace:
at iText.Kernel.Pdf.PdfWriter.ByteStore.SerDic(PdfDictionary dic, Int32 level, ByteBufferOutputStream bb, IntHashtable serialized)
at iText.Kernel.Pdf.PdfWriter.ByteStore.SerObject(PdfObject obj, Int32 level, ByteBufferOutputStream bb, IntHashtable serialized)
at iText.Kernel.Pdf.PdfWriter.ByteStore..ctor(PdfStream str, IntHashtable serialized)
at iText.Kernel.Pdf.PdfWriter.SmartCopyObject(PdfObject obj)
at iText.Kernel.Pdf.PdfWriter.CopyObject(PdfObject obj, PdfDocument document, Boolean allowDuplicating)
at iText.Kernel.Pdf.PdfObject.ProcessCopying(PdfDocument documentTo, Boolean allowDuplicating)
at iText.Kernel.Pdf.PdfArray.CopyContent(PdfObject from, PdfDocument document)
at iText.Kernel.Pdf.PdfWriter.CopyObject(PdfObject obj, PdfDocument document, Boolean allowDuplicating)
at iText.Kernel.Pdf.PdfObject.ProcessCopying(PdfDocument documentTo, Boolean allowDuplicating)
at iText.Kernel.Pdf.PdfDictionary.CopyContent(PdfObject from, PdfDocument document)
at iText.Kernel.Pdf.PdfWriter.CopyObject(PdfObject obj, PdfDocument document, Boolean allowDuplicating)
at iText.Kernel.Pdf.PdfObject.ProcessCopying(PdfDocument documentTo, Boolean allowDuplicating)
at iText.Kernel.Pdf.PdfObject.CopyTo(PdfDocument document, Boolean allowDuplicating)
at iText.Kernel.Pdf.PdfDictionary.CopyTo(PdfDocument document, Boolean allowDuplicating)
at iText.Kernel.Pdf.PdfDictionary.CopyTo(PdfDocument document, IList`1 excludeKeys, Boolean allowDuplicating)
at iText.Kernel.Pdf.PdfPage.CopyTo(PdfDocument toDocument, IPdfPageExtraCopier copier)
at iText.Kernel.Pdf.PdfDocument.CopyPagesTo(IList`1 pagesToCopy, PdfDocument toDocument, Int32 insertBeforePage, IPdfPageExtraCopier copier)
at iText.Kernel.Pdf.PdfDocument.CopyPagesTo(IList`1 pagesToCopy, PdfDocument toDocument, IPdfPageExtraCopier copier)
at iText.Kernel.Pdf.PdfDocument.CopyPagesTo(IList`1 pagesToCopy, PdfDocument toDocument)
at iText.Kernel.Utils.PdfMerger.Merge(PdfDocument from, IList`1 pages)
at iText.Kernel.Utils.PdfMerger.Merge(PdfDocument from, Int32 fromPage, Int32 toPage)
at QuestMonolithic.Process.CombinePdfBatch(IEnumerable`1 pdfMetaData, Int32 batchNumber, String fileNamePrefix, String outputDir) in C:\Users\cchrist\Documents\Visual Studio 2012\Projects\Quest_Monolithic\trunk\source\Process.vb:line 594
InnerException:
Спасибо. Я попробую это. Есть ли что-нибудь еще, что я должен знать о коде .NET? – sonicbhoc