Convert a multipage TIFF to a multipage JBIG2 in VB.NET

1
'We assume that GdPicture has been correctly installed and unlocked.
2
Dim tifffilepath As String = "multipage.tif"
3
Dim jb2filepath As String = "multipage.jb2"
4
Using oGdPictureImaging As New GdPictureImaging()
5
    Dim TiffID As Integer = oGdPictureImaging.CreateGdPictureImageFromFile(tifffilepath)
6
    If oGdPictureImaging.GetStat() = GdPictureStatus.OK Then
7
        Dim Jbig2ID As Integer = 0
8
        Dim pageCount As Integer = oGdPictureImaging.TiffGetPageCount(TiffID)
9
        For i As Integer = 1 To pageCount
10
            If i = 1 Then
11
                Jbig2ID = oGdPictureImaging.CreateClonedGdPictureImage(TiffID)
12
                If (oGdPictureImaging.GetStat() <> GdPictureStatus.OK) OrElse
13
                    (oGdPictureImaging.JBIG2SaveAsMultiPageFile(Jbig2ID, jb2filepath) <> GdPictureStatus.OK) Then
14
                    MessageBox.Show("Error: " + oGdPictureImaging.GetStat().ToString(), "TIFF to JBIG2 Example", MessageBoxButtons.OK, MessageBoxIcon.Error)
15
                Exit For
16
                End If
17
            Else
18
                If (oGdPictureImaging.TiffSelectPage(TiffID, i) <> GdPictureStatus.OK) OrElse
19
                    (oGdPictureImaging.JBIG2AddToMultiPageFile(Jbig2ID, TiffID) <> GdPictureStatus.OK) Then
20
                    MessageBox.Show("Error: " + oGdPictureImaging.GetStat().ToString(), "TIFF to JBIG2 Example", MessageBoxButtons.OK, MessageBoxIcon.Error)
21
                    Exit For
22
                End If
23
            End If
24
        Next
25
        If oGdPictureImaging.GetStat() = GdPictureStatus.OK Then
26
            MessageBox.Show("Done!", "TIFF to JBIG2 Example", MessageBoxButtons.OK, MessageBoxIcon.Information)
27
        End If
28
        oGdPictureImaging.JBIG2CloseMultiPageFile(Jbig2ID)
29
        oGdPictureImaging.ReleaseGdPictureImage(Jbig2ID)
30
        oGdPictureImaging.ReleaseGdPictureImage(TiffID)
31
    Else
32
        MessageBox.Show("Error: " + oGdPictureImaging.GetStat().ToString(), "TIFF to JBIG2 Example", MessageBoxButtons.OK, MessageBoxIcon.Error)
33
    End If
34
End Using