GdPicture.NET使用教程：将多页TIFF文件转换为JBIG2

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")