In This Topic
Programming / TIFF / Extracting pages from a multipage TIFF file using a memory stream

Extracting pages from a multipage TIFF file using a memory stream

In This Topic

This handy code snippet can be useful when you need to extract more pages from your multi-page source TIFF file to a multi-page destination TIFF file. This example uses a memory stream to extract required pages. It shows you how to handle properly with multi-page TIFF files.

Copy Code 
'We assume that GdPicture has been correctly installed and unlocked.
Dim oGdPictureImaging As GdPictureImaging = New GdPictureImaging()
'Variable to hold the source image handle (source file).
Dim sourceImageId As Integer = 0
'Variable to hold the destination image handle (destination file).
Dim destImageId As Integer = 0
'Variable to hold the imageID for the extracted page.
Dim imageId As Integer = 0
'The source file path and the destination file path.
Dim source As String = "source.tif", destination As String = "destination.tif"
'Loading the source image file.
sourceImageId = oGdPictureImaging.CreateGdPictureImageFromFile(source)
If oGdPictureImaging.GetStat() = GdPictureStatus.OK Then
    Dim isMultiPage As Boolean = oGdPictureImaging.TiffIsMultiPage(sourceImageId)
    Dim status As GdPictureStatus = oGdPictureImaging.GetStat()
    If (status = GdPictureStatus.OK) AndAlso isMultiPage Then
        Dim pagesCount As Integer = oGdPictureImaging.TiffGetPageCount(sourceImageId)
        'Setting the page numbers you want to extract.
        Dim pages As Integer() = {1, 3, 5}
        'Ensuring that the multi-page tiff source file includes the required pages.
        If pagesCount >= 5 Then
            Dim firstPage As Boolean = True
            For Each page As Integer In pages
                'Temporary stream for the extracted page.
                Dim pStream As Stream = New MemoryStream()
                status = oGdPictureImaging.TiffExtractPage(sourceImageId, page, pStream)
                If status = GdPictureStatus.OK Then
                    imageId = oGdPictureImaging.CreateGdPictureImageFromStream(pStream)
                    status = oGdPictureImaging.GetStat()
                    If status = GdPictureStatus.OK Then
                        If firstPage Then
                            'If it is the first image, then create a new multipage tiff file.
                            destImageId = imageId
                            status = oGdPictureImaging.TiffSaveAsMultiPageFile(destImageId, destination, TiffCompression.TiffCompressionAUTO)
                            If status <> GdPictureStatus.OK Then Exit For
                            firstPage = False
                        Else
                            'If it is the second image or more, add it to the previously created multipage tiff file.
                            status = oGdPictureImaging.TiffAddToMultiPageFile(destImageId, imageId)
                            If status <> GdPictureStatus.OK Then Exit For
                            'Releasing the current image to minimize the memory usage.
                            oGdPictureImaging.ReleaseGdPictureImage(imageId)
                        End If
                    Else
                        Exit For
                    End If
                Else
                    Exit For
                End If
                pStream.Dispose()
            Next
            If status = GdPictureStatus.OK Then
                MessageBox.Show("Done!", "Multipage TIFF Example", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Else
                MessageBox.Show("Error: " + status.ToString(), "Multipage TIFF Example", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End If
        Else
            MessageBox.Show("Not enough pages to extract.", "Multipage TIFF Example", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    Else
        MessageBox.Show("Either the source file is not a multi-page tiff file or some other error occurred. Error: " + status.ToString(), "Multipage TIFF Example", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End If
Else
    MessageBox.Show("The source file can't be loaded. Error: " + oGdPictureImaging.GetStat().ToString(), "Multipage TIFF Example", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
'Releasing resources.
oGdPictureImaging.TiffCloseMultiPageFile(destImageId)
oGdPictureImaging.ReleaseGdPictureImage(destImageId)
oGdPictureImaging.ReleaseGdPictureImage(sourceImageId)
oGdPictureImaging.Dispose()
Copy Code 
//We assume that GdPicture has been correctly installed and unlocked.
GdPictureImaging oGdPictureImaging = new GdPictureImaging();
//Variable to hold the source image handle (source file).
int sourceImageId = 0;
//Variable to hold the destination image handle (destination file).
int destImageId = 0;
//Variable to hold the imageID for the extracted page.
int imageId = 0;
//The source file path and the destination file path.
string source = "source.tif", destination = "destination.tif";
//Loading the source image file.
sourceImageId = oGdPictureImaging.CreateGdPictureImageFromFile(source);
if (oGdPictureImaging.GetStat() == GdPictureStatus.OK)
{
    bool isMultiPage = oGdPictureImaging.TiffIsMultiPage(sourceImageId);
    GdPictureStatus status = oGdPictureImaging.GetStat();
    if ((status == GdPictureStatus.OK) && isMultiPage)
    {
        int pagesCount = oGdPictureImaging.TiffGetPageCount(sourceImageId);
        //Setting the page numbers you want to extract.
        int[] pages = { 1, 3, 5};
        //Ensuring that the multi-page tiff source file includes the required pages.
        if (pagesCount>=5)
        {
            bool firstPage = true;
            foreach (int page in pages)
            {
                //Temporary stream for the extracted page.
                Stream pStream = new MemoryStream();
                status = oGdPictureImaging.TiffExtractPage(sourceImageId, page, pStream);                           
                if (status == GdPictureStatus.OK)
                {
                    imageId = oGdPictureImaging.CreateGdPictureImageFromStream(pStream);
                    status = oGdPictureImaging.GetStat();
                    if (status == GdPictureStatus.OK)
                    {
                        if (firstPage)
                        {
                            //If it is the first image, then create a new multipage tiff file.
                            destImageId = imageId;
                            status = oGdPictureImaging.TiffSaveAsMultiPageFile(destImageId, destination, TiffCompression.TiffCompressionAUTO);
                            if (status != GdPictureStatus.OK) break;
                            firstPage = false;
                        }
                        else
                        {
                            //If it is the second image or more, add it to the previously created multipage tiff file.
                            status = oGdPictureImaging.TiffAddToMultiPageFile(destImageId, imageId);
                            if (status != GdPictureStatus.OK) break;
                            //Releasing the current image to minimize the memory usage.
                            oGdPictureImaging.ReleaseGdPictureImage(imageId);
                        }
                    }
                    else break;
                }
                else break;
                pStream.Dispose();
            }
            if (status == GdPictureStatus.OK)
                MessageBox.Show("Done!", "Multipage TIFF Example", MessageBoxButtons.OK, MessageBoxIcon.Information);
            else
                MessageBox.Show("Error: " + status.ToString(), "Multipage TIFF Example", MessageBoxButtons.OK, MessageBoxIcon.Error);
        }
        else
            MessageBox.Show("Not enough pages to extract.", "Multipage TIFF Example", MessageBoxButtons.OK, MessageBoxIcon.Error);
    }
    else
        MessageBox.Show("Either the source file is not a multi-page tiff file or some other error occurred. Error: " + status.ToString(), "Multipage TIFF Example", MessageBoxButtons.OK, MessageBoxIcon.Error);
}
else
    MessageBox.Show("The source file can't be loaded. Error: " + oGdPictureImaging.GetStat().ToString(), "Multipage TIFF Example", MessageBoxButtons.OK, MessageBoxIcon.Error);
//Releasing resources.
oGdPictureImaging.TiffCloseMultiPageFile(destImageId);
oGdPictureImaging.ReleaseGdPictureImage(destImageId);
oGdPictureImaging.ReleaseGdPictureImage(sourceImageId);
oGdPictureImaging.Dispose();