posted on April 27, 2016
•
Show version history
We are running into situations where the DB record of a page is present, but the actual image is not.
After some digging around, we found that the code below works well and quickly:
Dim LF_PageInfo As PageInfoReader = LF_DocInfo.GetPageInfos Dim LF_PageSet As Laserfiche.RepositoryAccess.PageSet = New PageSet Dim ms As LaserficheReadStream Dim LF_PP As PagePart = New PagePart For Each PageInfo In LF_PageInfo 'Try to read each page ms = PageInfo.ReadPagePart(LF_PP) 'Evaluate If ms.Length > 0 Then 'If OK, add it to the PageSet LF_PageSet.AddPage(PageInfo.PageNumber) End If Next 'Make sure we have something to export If LF_PageSet.GetTotalPageCount > 0 Then 'Set the Exporter Properties LF_DocExporter.IncludeAnnotations = False LF_DocExporter.BlackoutRedactions = False 'Export the document LF_DocExporter.ExportPdf(LF_DocInfo, LF_PageSet, _ PdfExportOptions.None, sExportPath) End If
Note that this does not help with the situation where the image is present but corrupt.
0
0