Improve company productivity with a Business Account.Sign Up

x
?
Solved

append pages to an existing multi-page tiff

Posted on 2011-09-28
2
Medium Priority
?
525 Views
Last Modified: 2012-08-13

I am trying to convert a group of jpg files to a single multi-page tiff.

I have gotten as far as saving each file in another format (tiff, obviously), but I have no
clue how to combine them into one multi-page tiff file.

The Google answers I have found all seemed a little incomplete, or not specific to vb.net, so I thought I would try here.

Thanks in advance!

0
Comment
Question by:codefinger
2 Comments
 
LVL 96

Accepted Solution

by:
Bob Learned earned 2000 total points
ID: 36773795
I always like Bob Powell's web site when I am looking for graphics stuff.

Generating Multi-Page TIFF files.
http://www.bobpowell.net/generating_multipage_tiffs.htm
Imports System.IO
Imports System.Drawing.Imaging
 
Public Class Form1
    Inherits System.Windows.Forms.Form
    '/ <summary>
    '/ Required designer variable.
    '/ </summary>
    Private components As System.ComponentModel.Container = Nothing
 
    Private _tiffImage As Image
 
 
    Public Sub New()
        '
        ' Required for Windows Form Designer support
        '
        InitializeComponent()
 
        '
        ' TODO: Add any constructor code after InitializeComponent call
        '
        Me.SetStyle(ControlStyles.ResizeRedraw, True)
    End Sub 'New
 
 
    '/ <summary>
    '/ Clean up any resources being used.
    '/ </summary>
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub 'Dispose
 
#Region "Windows Form Designer generated code"
 
    '/ <summary>
    '/ Required method for Designer support - do not modify
    '/ the contents of this method with the code editor.
    '/ </summary>
    Private Sub InitializeComponent()
        '
        ' Form1
        '
        Me.AllowDrop = True
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(288, 173)
        Me.Name = "Form1"
        Me.Text = "Multi Page Tiff Generator"
    End Sub 'InitializeComponent
 
#End Region
 
 
    '/ <summary>
    '/ The main entry point for the application.
    '/ </summary>
    <STAThread()> _
    Shared Sub Main()
        Application.Run(New Form1)
    End Sub 'Main
 
 
    Protected Overrides Sub OnDragEnter(ByVal e As DragEventArgs)
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            Dim allow As Boolean = True
            Dim s As String
            For Each s In CType(e.Data.GetData(DataFormats.FileDrop), String())
                Dim ext As String = Path.GetExtension(s).ToLower()
                If Not (ext = ".jpg" OrElse ext = ".jpeg" OrElse ext = ".tif" OrElse ext = ".gif" OrElse ext = ".bmp") Then
                    allow = False
                End If
            Next s
            If allow Then
                e.Effect = DragDropEffects.Copy
            Else
                e.Effect = DragDropEffects.None
            End If
        End If
    End Sub 'OnDragEnter
 
 
    Protected Overrides Sub OnDragDrop(ByVal e As DragEventArgs)
        Dim sa As String() = CType(e.Data.GetData(DataFormats.FileDrop), String())
 
        Dim dlg As New SaveFileDialog
        dlg.DefaultExt = ".tif"
        If dlg.ShowDialog() <> DialogResult.OK Then
            Return
        End If
 
        'get the codec for tiff files
        Dim info As ImageCodecInfo = Nothing
        Dim ice As ImageCodecInfo
        For Each ice In ImageCodecInfo.GetImageEncoders()
            If ice.MimeType = "image/tiff" Then
                info = ice
            End If
        Next ice 'use the save encoder
        Dim enc As Encoder = Encoder.SaveFlag
 
        Dim ep As New EncoderParameters(1)
        ep.Param(0) = New EncoderParameter(enc, CLng(EncoderValue.MultiFrame))
 
        Dim pages As Bitmap = Nothing
 
        Dim frame As Integer = 0
        Dim s As String
        For Each s In sa
            If frame = 0 Then
                pages = CType(Image.FromFile(s), Bitmap)
                'save the first frame
                pages.Save(dlg.FileName, info, ep)
            Else
                'save the intermediate frames
                ep.Param(0) = New EncoderParameter(enc, CLng(EncoderValue.FrameDimensionPage))
                Dim bm As Bitmap = CType(Image.FromFile(s), Bitmap)
                pages.SaveAdd(bm, ep)
            End If
 
            If frame = sa.Length - 1 Then
                'flush and close.
                ep.Param(0) = New EncoderParameter(enc, CLng(EncoderValue.Flush))
                pages.SaveAdd(ep)
            End If
 
            frame += 1
        Next s
    End Sub 'OnDragDrop
 
  
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        Dim sf As StringFormat = CType(StringFormat.GenericTypographic.Clone(), StringFormat)
        sf.Alignment = StringAlignment.Center
        sf.LineAlignment = StringAlignment.Center
        e.Graphics.DrawString("Drop images here to make a multi-page tiff", Font, Brushes.Black, New RectangleF(0, 0, Me.ClientSize.Width, Me.ClientSize.Height), sf)
    End Sub 'Form1_Paint
End Class 'Form1

Open in new window

0
 

Author Closing Comment

by:codefinger
ID: 36817777
Thanks!
0

Featured Post

The 14th Annual Expert Award Winners

The results are in! Meet the top members of our 2017 Expert Awards. Congratulations to all who qualified!

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

PaperPort 14.5 Patch 1 update is often not detected or downloaded automatically. This article provides direct download links to solve the problem for retail (non-bundled) versions of the Standard and Professional editions, as well as the Professiona…
Formatted your external or internal hard drive, and lost entire data. Now searching for a trusted solution to recover lost data from a formatted hard drive. So, read this article & perform steps to recover photos (images), documents, videos, files e…
This Micro Tutorial will teach you how to add a cinematic look to any film or video out there. There are very few simple steps that you will follow to do so. This will be demonstrated using Adobe Premiere Pro CS6.
Please read the paragraph below before following the instructions in the video — there are important caveats in the paragraph that I did not mention in the video. If your PaperPort 12 or PaperPort 14 is failing to start, or crashing, or hanging, …

589 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question