In This Topic
Programming / TIFF / Appending images from different sources to a single or a multipage TIFF file

Appending images from different sources to a single or a multipage TIFF file

In This Topic

Appending images from files of different formats to an existing single or multipage TIFF file is constantly one of the most required features. Here you can find the quick way how to accomplish this task very easy.

  • The first example shows you how to append modified pages from a multipage TIFF file to another existing TIFF file.
    Copy Code 
    'We assume that GdPicture has been correctly installed and unlocked.

Using oGdPictureImaging As GdPictureImaging = New GdPictureImaging()

    oGdPictureImaging.TiffOpenMultiPageForWrite(True)

    'Load your source image here, for example a multipage TIFF file.

    Dim ImageID As Integer = oGdPictureImaging.CreateGdPictureImageFromFile("input_multipage.tif", True)

    If oGdPictureImaging.GetStat() = GdPictureStatus.OK Then

        Dim PageCount As Integer = oGdPictureImaging.TiffGetPageCount(ImageID)

        Dim status As GdPictureStatus = GdPictureStatus.OK

        If PageCount > 0 Then

            Dim ImgTiffCompression As TiffCompression = oGdPictureImaging.GetTiffCompression(ImageID)

            For i As Integer = 1 To PageCount

                status = oGdPictureImaging.TiffSelectPage(ImageID, i)

                If status = GdPictureStatus.OK Then

                    'Modify the source image according to your needs.

                    status = oGdPictureImaging.DrawText(ImageID, "Page " + i.ToString() + " / " + PageCount.ToString(), 50, 50, 10, GdPicture14.FontStyle.FontStyleRegular, Color.Black, "Arial", True)

                    If status = GdPictureStatus.OK Then status = oGdPictureImaging.AppendToTiff(ImageID, "output_existing.tif", ImgTiffCompression)

                    If status <> GdPictureStatus.OK Then Exit For

                Else

                    Exit For

                End If

            Next

        Else

            'The source file is not a multipage file.

            status = oGdPictureImaging.DrawText(ImageID, "Page 1/1", 50, 50, 10, GdPicture14.FontStyle.FontStyleRegular, Color.Black, "Arial", True)

            If status = GdPictureStatus.OK Then status = oGdPictureImaging.AppendToTiff(ImageID, "output_existing.tif", TiffCompression.TiffCompressionAUTO)

        End If

        If status = GdPictureStatus.OK Then

            MessageBox.Show("The process has finished successfully.", "Append To TIFF Example", MessageBoxButtons.OK, MessageBoxIcon.Information)

        Else

            MessageBox.Show("The process has failed. Status: " + status.ToString(), "Append To TIFF Example", MessageBoxButtons.OK, MessageBoxIcon.Error)

        End If

        oGdPictureImaging.ReleaseGdPictureImage(ImageID)

    Else

        MessageBox.Show("The source file can't be loaded. Status: " + oGdPictureImaging.GetStat().ToString(), "Append To TIFF Example", MessageBoxButtons.OK, MessageBoxIcon.Error)

    End If

End Using
    Copy Code 
    //We assume that GdPicture has been correctly installed and unlocked.

using (GdPictureImaging oGdPictureImaging = new GdPictureImaging())

{

    oGdPictureImaging.TiffOpenMultiPageForWrite(true);

    //Load your source image here, for example a multipage TIFF file.

    int ImageID = oGdPictureImaging.CreateGdPictureImageFromFile("input_multipage.tif", true);

    if (oGdPictureImaging.GetStat() == GdPictureStatus.OK)

    {

        int PageCount = oGdPictureImaging.TiffGetPageCount(ImageID);

        GdPictureStatus status = GdPictureStatus.OK;

        if (PageCount > 0)

        {

            TiffCompression ImgTiffCompression = oGdPictureImaging.GetTiffCompression(ImageID);

            for (int i = 1; i <= PageCount; i++)

            {

                status = oGdPictureImaging.TiffSelectPage(ImageID, i);

                if (status == GdPictureStatus.OK)

                {

                    //Modify the source image according to your needs.

                    status = oGdPictureImaging.DrawText(ImageID, "Page " + i.ToString() + " / " + PageCount.ToString(), 50, 50, 10, GdPicture14.FontStyle.FontStyleRegular, Color.Black, "Arial", true);

                    if (status == GdPictureStatus.OK)

                        status = oGdPictureImaging.AppendToTiff(ImageID, "output_existing.tif", ImgTiffCompression);

                    if (status != GdPictureStatus.OK) break;

                }

                else break;

            }

        }

        else

        {

            //The source file is not a multipage file.

            status = oGdPictureImaging.DrawText(ImageID, "Page 1/1", 50, 50, 10, GdPicture14.FontStyle.FontStyleRegular, Color.Black, "Arial", true);

            if (status == GdPictureStatus.OK)

                status = oGdPictureImaging.AppendToTiff(ImageID, "output_existing.tif", TiffCompression.TiffCompressionAUTO);

        }

        if (status == GdPictureStatus.OK)

            MessageBox.Show("The process has finished successfully.", "Append To TIFF Example", MessageBoxButtons.OK, MessageBoxIcon.Information);

        else

            MessageBox.Show("The process has failed. Status: " + status.ToString(), "Append To TIFF Example", MessageBoxButtons.OK, MessageBoxIcon.Error);

        oGdPictureImaging.ReleaseGdPictureImage(ImageID);

    }

    else MessageBox.Show("The source file can't be loaded. Status: " + oGdPictureImaging.GetStat().ToString(), "Append To TIFF Example", MessageBoxButtons.OK, MessageBoxIcon.Error);

}
  •  The second example demonstrates the very simple way how to append JPEG images to a new or an existing TIFF file.
    Copy Code 
    'We assume that GdPicture has been correctly installed and unlocked.

Using dialog As FolderBrowserDialog = New FolderBrowserDialog()

    dialog.Description = "Select the folder you want to append your files from."

    dialog.ShowNewFolderButton = False

    dialog.RootFolder = Environment.SpecialFolder.Desktop

    If dialog.ShowDialog() = DialogResult.OK Then

        Dim status As GdPictureStatus = GdPictureStatus.OK

        Dim folder As String = dialog.SelectedPath

        For Each fName As String In Directory.GetFiles(folder, "*.jpg", SearchOption.TopDirectoryOnly)

            Using oGdPictureImaging As GdPictureImaging = New GdPictureImaging()

                Dim ImageID As Integer = oGdPictureImaging.CreateGdPictureImageFromFile(fName, True)

                If oGdPictureImaging.GetStat() = GdPictureStatus.OK Then

                    'If the resulting file does not exist, the toolkit will create a new one.

                    status = oGdPictureImaging.AppendToTiff(ImageID, "output.tif", TiffCompression.TiffCompressionJPEG, 95)

                    oGdPictureImaging.ReleaseGdPictureImage(ImageID)

                    If status <> GdPictureStatus.OK Then

                        MessageBox.Show("The source file " + fName + " can't be appended. Status: " + oGdPictureImaging.GetStat().ToString(), "Append To TIFF Example", MessageBoxButtons.OK, MessageBoxIcon.Error)

                        Exit For

                    End If

                Else

                    MessageBox.Show("The source file " + fName + " can't be loaded. Status: " + oGdPictureImaging.GetStat().ToString(), "Append To TIFF Example", MessageBoxButtons.OK, MessageBoxIcon.Error)

                End If

            End Using

        Next

        If status = GdPictureStatus.OK Then MessageBox.Show("The process has finished successfully.", "Append To TIFF Example", MessageBoxButtons.OK, MessageBoxIcon.Information)

    End If

End Using
    Copy Code 
    //We assume that GdPicture has been correctly installed and unlocked.

using (FolderBrowserDialog dialog = new FolderBrowserDialog())

{

    dialog.Description = "Select the folder you want to append your files from.";

    dialog.ShowNewFolderButton = false;

    dialog.RootFolder = Environment.SpecialFolder.Desktop;

    if (dialog.ShowDialog() == DialogResult.OK)

    {

        GdPictureStatus status = GdPictureStatus.OK;

        string folder = dialog.SelectedPath;

        foreach (string fName in Directory.GetFiles(folder, "*.jpg", SearchOption.TopDirectoryOnly))

        {

            using (GdPictureImaging oGdPictureImaging = new GdPictureImaging())

            {

                int ImageID = oGdPictureImaging.CreateGdPictureImageFromFile(fName, true);

                if (oGdPictureImaging.GetStat() == GdPictureStatus.OK)

                {

                    //If the resulting file does not exist, the toolkit will create a new one.

                    status = oGdPictureImaging.AppendToTiff(ImageID, "output.tif", TiffCompression.TiffCompressionJPEG, 95);

                    oGdPictureImaging.ReleaseGdPictureImage(ImageID);

                    if (status != GdPictureStatus.OK)

                    {

                        MessageBox.Show("The source file " + fName + " can't be appended. Status: " + oGdPictureImaging.GetStat().ToString(), "Append To TIFF Example", MessageBoxButtons.OK, MessageBoxIcon.Error);

                        break;

                    }

                }

                else MessageBox.Show("The source file " + fName + " can't be loaded. Status: " + oGdPictureImaging.GetStat().ToString(), "Append To TIFF Example", MessageBoxButtons.OK, MessageBoxIcon.Error);

            }

        }

        if (status == GdPictureStatus.OK)

            MessageBox.Show("The process has finished successfully.", "Append To TIFF Example", MessageBoxButtons.OK, MessageBoxIcon.Information);

    }

}