OCR tif multipage
OCR tif multipage
Hi,
Could you give me a code sample about obtain the OCR of a tif multipage without create pdf file.
Regards,
Mirko
Could you give me a code sample about obtain the OCR of a tif multipage without create pdf file.
Regards,
Mirko
Re: OCR tif multipage
Hi,
Please could you give me this sample, because a need a quick reply for my chief.
Mirko
Please could you give me this sample, because a need a quick reply for my chief.
Mirko
Re: OCR tif multipage
Hi Mirko,
Here an example to OCR a multipage tiff image (also works with single page images).
Here an example to OCR a multipage tiff image (also works with single page images).
Code: Select all
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Integer, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Integer) As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim oGdPictureImaging As New GdPicture.GdPictureImaging
oGdPictureImaging.SetLicenseNumber("XXXX") 'Replace XXXX by a valid or commercial KEY
oGdPictureImaging.SetLicenseNumberOCRTesseract("XXXX") 'Replace XXXX by a valid or commercial KEY
Dim sOCR As String
Dim hFile As Integer
Dim ImageID As Integer = oGdPictureImaging.CreateGdPictureImageFromFile("")
Dim PageCount As Integer = 1
If oGdPictureImaging.GetStat = GdPictureStatus.OK Then
If oGdPictureImaging.TiffIsMultiPage(ImageID) Then
PageCount = oGdPictureImaging.TiffGetPageCount(ImageID)
End If
If Dir(My.Application.Info.DirectoryPath & "\ocr.txt") <> "" Then Kill((My.Application.Info.DirectoryPath & "\ocr.txt"))
hFile = FreeFile()
FileOpen(hFile, My.Application.Info.DirectoryPath & "\ocr.txt", OpenMode.Append)
For I As Integer = 1 To PageCount
If I > 1 Then
oGdPictureImaging.TiffSelectPage(ImageID, I)
End If
oGdPictureImaging.OCRTesseractReinit()
sOCR = oGdPictureImaging.OCRTesseractDoOCR(ImageID, TesseractDictionary.TesseractDictionaryEnglish, "C:\Program Files\GdPicture.NET\Redist\Commons\OCR", "")
If oGdPictureImaging.GetStat <> GdPictureStatus.OK Then
MsgBox("Error on page " + Str(I) + ": " + oGdPictureImaging.GetStat.ToString)
End If
oGdPictureImaging.OCRTesseractClear()
PrintLine(hFile, "OCR Page " + Str(I))
PrintLine(hFile, "-------------------------------------------------------------------")
PrintLine(hFile, sOCR)
Next I
FileClose(hFile)
oGdPictureImaging.ReleaseGdPictureImage(ImageID)
Call ShellExecute(Me.Handle.ToInt32, vbNullString, My.Application.Info.DirectoryPath & "\ocr.txt", "", "", 1)
Else
MsgBox("Can't open selected file !")
End If
End Sub
Re: OCR tif multipage
Hi Loic,
Thank you!!
Mirko
Thank you!!
Mirko
Re: OCR tif multipage
You are welcome
Re: OCR tif multipage
Here you can find updated code snippet based on GdPicture.NET 14:
How to OCR a single page or a multipage TIFF file
https://www.gdpicture.com/guides/gdpicture/web ... file.html
How to OCR a single page or a multipage TIFF file
https://www.gdpicture.com/guides/gdpicture/web ... file.html
Who is online
Users browsing this forum: No registered users and 1 guest