半岛外围网上直营

下面是在GdPicture.NET的"high performance"模式中将多页TIFF文件转换成OCR多页PDF文件的代码示例:

》》》下载GdPicture.NET最新试用版

代码示例：

    Private Function TiffToPDFOCR(ByVal TiffIn As String, ByVal PdfOut As String) As GdPictureStatus
        Dim Status As GdPictureStatus = GdPictureStatus.OK
        Dim oGdPictureImaging As New GdPicture.GdPictureImaging
        Dim TiffID As Integer
        Dim PdfID As Integer
        Dim PageCount As Integer

        oGdPictureImaging.SetLicenseNumber("XXX") 'Replace XXX by a valid license KEY

        PdfID = oGdPictureImaging.PdfNewPdf(PdfOut)

        If PdfID <> 0 Then
            oGdPictureImaging.TiffOpenMultiPageForWrite(False) 'We want to open multipage tiff for read only to get best performences
            TiffID = oGdPictureImaging.CreateGdPictureImageFromFile(TiffIn)
            If TiffID <> 0 Then
                PageCount = oGdPictureImaging.TiffGetPageCount(TiffID)

                PdfID = oGdPictureImaging.PdfOCRStart(PdfOut, True, "PDF Title", "PDF Author", "PDF Subject", "PDF keywords", "PDF Creator")

                For i As Integer = 1 To PageCount
                    oGdPictureImaging.TiffSelectPage(TiffID, i)
                    oGdPictureImaging.PdfAddGdPictureImageToPdfOCR(PdfID, TiffID, TesseractDictionary.TesseractDictionaryEnglish, "c:\dictionarypath", "")
                Next
                oGdPictureImaging.PdfOCRStop(PdfID)
                oGdPictureImaging.ReleaseGdPictureImage(TiffID)
            Else
                Status = oGdPictureImaging.GetStat
            End If
        Else
            Status = oGdPictureImaging.GetStat
        End If

        Return Status
    End Function