Here a quick way to convert multipage TIFF image to a multipage JBIG2 image.
- Code: Select all
Dim oGdPictureImaging As New GdPictureImaging
Dim TiffID As Integer = oGdPictureImaging.CreateGdPictureImageFromFile("c:\multipage.tif")
Dim Jbig2ID As Integer = 0
For i As Integer = 1 To oGdPictureImaging.TiffGetPageCount(TiffID)
If i = 1 Then
Jbig2ID = oGdPictureImaging.CreateClonedGdPictureImageI(TiffID)
oGdPictureImaging.JBIG2SaveAsMultiPageFile(Jbig2ID, "c:\multipage.jb2")
Else
oGdPictureImaging.TiffSelectPage(TiffID, i)
oGdPictureImaging.JBIG2AddToMultiPageFile(Jbig2ID, TiffID)
End If
Next
oGdPictureImaging.JBIG2CloseMultiPageFile(Jbig2ID)
oGdPictureImaging.ReleaseGdPictureImage(TiffID)
oGdPictureImaging.ReleaseGdPictureImage(Jbig2ID)
MsgBox("done")
