Merge Multipage TIFF

[DavideBak]

Hi all.

I have 2 multipage TIFF, loaded from Stream, and I want to merge it in one Stream or File. It's possible with GDPicture?

Thank in advance,
Davide

[Loïc]

Hello,

Here an example to merge 2 multipage document stored in a stream, to a stream:

Code: Select all

        Dim fs1 As New FileStream("c:\multipage1.tif", FileMode.Open)
        Dim fs2 As New FileStream("c:\multipage2.tif", FileMode.Open)
        Dim fs3 As New FileStream("c:\output.tif", FileMode.CreateNew)

        Using oGdPictureImaging As New GdPictureImaging
            Dim ImageID As Integer = oGdPictureImaging.CreateGdPictureImageFromStream(fs1)
            Dim tiffID As Integer

            'Adding first multipage
            For i As Integer = 1 To oGdPictureImaging.TiffGetPageCount(ImageID)
                oGdPictureImaging.TiffSelectPage(ImageID, i)
                If i = 1 Then
                    tiffID = oGdPictureImaging.TiffCreateMultiPageFromGdPictureImage(ImageID)
                Else
                    oGdPictureImaging.TiffAppendPageFromGdPictureImage(tiffID, ImageID)
                End If
            Next
            oGdPictureImaging.ReleaseGdPictureImage(ImageID)

            ImageID = oGdPictureImaging.CreateGdPictureImageFromStream(fs2)

            'Adding second multipage
            For i As Integer = 1 To oGdPictureImaging.TiffGetPageCount(ImageID)
                oGdPictureImaging.TiffSelectPage(ImageID, i)
                oGdPictureImaging.TiffAppendPageFromGdPictureImage(tiffID, ImageID)
            Next
            oGdPictureImaging.ReleaseGdPictureImage(ImageID)

            'saving multipage to stream
            oGdPictureImaging.SaveAsStream(tiffID, fs3, DocumentFormat.DocumentFormatTIFF, 65536)
            oGdPictureImaging.ReleaseGdPictureImage(tiffID)
        End Using

        fs1.Dispose()
        fs2.Dispose()
        fs3.Dispose()