Automatically rotate pages of a multipage TIFF file using OCR and VB.NET

1
'We assume that GdPicture has been correctly installed and unlocked.
2
Dim filepath As String = "multipage.tif"
3
Dim destpath As String = "output.tif"
4
'Specify your path.
5
Dim DICT_PATH As String = "C:\GdPicture.NET 14\Redist\OCR"
6
'Specify your language.
7
Dim LANG As OCRLanguage = OCRLanguage.English
8

9
Dim status As GdPictureStatus
10
Using gdpictureImaging As New GdPictureImaging()
11
    Dim hasRotation As Boolean = False
12
    Dim imageID As Integer = gdpictureImaging.CreateGdPictureImageFromFile(filepath)
13
    status = gdpictureImaging.GetStat()
14
    If status = GdPictureStatus.OK Then
15
        Dim pageCount As Integer = gdpictureImaging.GetPageCount(imageID)
16
        For i As Integer = 1 To pageCount
17
            status = gdpictureImaging.SelectPage(imageID, i)
18
            If status = GdPictureStatus.OK Then
19
                Using gdpictureOCR As GdPictureOCR = New GdPictureOCR()
20
                    gdpictureOCR.ResourceFolder = DICT_PATH
21
                    gdpictureOCR.AddLanguage(LANG)
22
                    status = gdpictureOCR.SetImage(imageID)
23
                    Dim pageRotation As Integer = gdpictureOCR.GetOrientation()
24
                    If pageRotation <> 0 Then
25
                        hasRotation = True
26
                        status = gdpictureImaging.RotateAngle(imageID, 360 - pageRotation)
27
                    End If
28
                End Using
29
            End If
30
            If status <> GdPictureStatus.OK Then
31
                MessageBox.Show("Error: " + status, "Rotation + OCR Example", MessageBoxButtons.OK, MessageBoxIcon.Error)
32
                Exit For
33
            End If
34
        Next
35
        If status = GdPictureStatus.OK Then
36
            If hasRotation Then
37
                status = gdpictureImaging.TiffSaveMultiPageToFile(imageID, destpath, TiffCompression.TiffCompressionAUTO)
38
                If status = GdPictureStatus.OK Then
39
                    MessageBox.Show("Done!", "Rotation + OCR Example", MessageBoxButtons.OK, MessageBoxIcon.Information)
40
                Else
41
                    MessageBox.Show("Error: " + status, "Rotation + OCR Example", MessageBoxButtons.OK, MessageBoxIcon.Error)
42
                End If
43
            Else
44
                System.IO.File.Copy(filepath, destpath)
45
            End If
46
        End If
47
        gdpictureImaging.ReleaseGdPictureImage(imageID)
48
    End If
49
End Using