using PdfCopy to merge pdf files

Question

I need to add multiple pdfs (each single page) to my main pdf. These need to be added after a specific page number and not appended to the end.

How do i

1: merge the pdf at a specific page number

2: pdfCopy.AddDocument is not available. I have tested with version 5.4.3, 5.4.5 and 5.5.10. What am i missing here? All say to use 5.X which i am...

'PdfCopy' does not contain a definition for 'AddDocument' and no extension method 'AddDocument' accepting a first argument of type 'PdfCopy' could be found (are you missing a using directive or an assembly reference?)

3: How to handle when pageToInsert at is greater than total number of pages in the source?

I have looked at tons of docs by now. All tell to use PdfCopy and .AddDocument...

Merging multiple PDFs using iTextSharp in c#.net

http://weblogs.sqlteam.com/mladenp/archive/2014/01/10/simple-merging-of-pdf-documents-with-itextsharp-5-4-5.aspx

here is my first take at it....

using System;
using System.Windows.Forms;
using iTextSharp.text;
using iTextSharp.text.pdf;
using System.IO;

namespace PdfMergeTest
{
    public partial class Form1 : Form
    {
        private const string baseFile = "baseFile.tmp";
        private const string baseTempPdfFileName = "temp.pdf";

        public Form1()
        {
            InitializeComponent();
        }

        private void Form1_Load(object sender, EventArgs e)
        {

        }

        private void btnMerge_Click(object sender, EventArgs e)
        {
            if (!CheckBasePaths())
                return;

            //get the files to merge to baseFile
            var filesToMerge = GetAllFilesToMerge();
            if (filesToMerge.Length == 0)
                return;

            //get basefile to which we need to merge the above files, it is with .tmp ext
            var baseFileWithPath = GetBaseFile();
            if (string.IsNullOrWhiteSpace(baseFileWithPath))
                return;

            //temp base pdf
            var tempPdfWithPath = GetBaseTempFile();
            if (string.IsNullOrWhiteSpace(tempPdfWithPath))
                return;

            //loop through the files to merge and merge into baseFile
            var page = 2; //page where to merge the file, we are not appending to the end. Actual code will find the page from source where to merge and will add 1 to it 
            foreach (FileInfo toMerge in filesToMerge)
            {
                //copy the base file as temp file for source; for debugging purposes at this time
                File.Copy(baseFileWithPath, tempPdfWithPath, true);

                //start merging, first at #2, second at #4, third at #6 and so on 
                MergeFiles(baseFileWithPath, tempPdfWithPath, toMerge.FullName, page);

                page += 2;
            } 
        }

        private bool CheckBasePaths()
        {
            if (string.IsNullOrWhiteSpace(txtBaseDir.Text))
            {
                MessageBox.Show("No Base Directory");
                return false;
            }

            if (string.IsNullOrWhiteSpace(txtFilesToMergeToBase.Text))
            {
                MessageBox.Show("No files to merge Directory");
                return false;
            }

            if (!Directory.Exists(txtBaseDir.Text))
            {
                MessageBox.Show("Base dir does not exist");
                return false;
            }

            if (!Directory.Exists(txtFilesToMergeToBase.Text))
            {
                MessageBox.Show("Files to merge dir does not exist");
                return false;
            }

            return true; 
        }

        private FileInfo[] GetAllFilesToMerge()
        {
            DirectoryInfo d = new DirectoryInfo(txtFilesToMergeToBase.Text);
            FileInfo[] files = d.GetFiles("*.pdf");
            if (files.Length == 0)
                MessageBox.Show("No files to merge");
            return files;
        }

        private String GetBaseFile()
        {
            var myBaseFile = Path.Combine(txtBaseDir.Text, baseFile);
            if (!File.Exists(myBaseFile))
            {
                myBaseFile = "";
                MessageBox.Show("Base file missing");
            }
            return myBaseFile;
        }

        private String GetBaseTempFile()
        {
            var myBaseTempFile = Path.Combine(txtBaseDir.Text, baseTempPdfFileName);
            return myBaseTempFile;
        }

        private void MergeFiles(string originalFile, string sourceFile, string toMergeFile, int insertPage)
        {
            Document document = null;
            PdfCopy pdfCopy = null;
            PdfReader pdfReader = null;

            try
            {
                //Step#1: create a document object
                document = new Document();

                //Step#2: create a writer that listen to the document
                pdfCopy = new PdfSmartCopy(document, new FileStream(originalFile, FileMode.Create));
                if (pdfCopy == null)
                    return;

                //Step#3: open document
                document.Open();

                //Step#4: create a reader for the toMergeFile and add document
                pdfReader = new PdfReader(toMergeFile);
                //add the entire document instead of page by page
                pdfCopy.AddDocument(pdfReader);
                pdfReader.Close();
            }
            catch (Exception ex)
            {
                MessageBox.Show(ex.Message);
            }
            finally
            {
                if (pdfReader != null) pdfReader.Close();
                if (pdfCopy != null) pdfCopy.Close();
                if (document != null) document.Close();
            }
        }
    }
}

I have looked at following using .AddPage but this is not what i want.

http://www.worldbestlearningcenter.com/index_files/csharp-combine-pdf-files.htm

Answer 1

Here is the solution that worked for me... It needs bit of cleaning which will now happen after the long weekend.

Private Sub btnExtractMerge_Click(sender As Object, e As EventArgs) Handles btnExtractMerge.Click
        txtCurSetupMessages.Text = ""
        ShowMessage(txtCurSetupMessages, "Extract & Merge Process Started")

        'get and check the paths / files from the form 
        Dim baseDir As String = txtCurSetupBaseDataFolder.Text
        Dim baseInvDir As String = txtCurSetupInvoicesFolder.Text
        Dim baseFileName As String = txtEMBaseFile.Text
        Dim targetFileName As String = txtEMTargetFile.Text

        If String.IsNullOrWhiteSpace(baseDir) Then
            ShowMessage(txtCurSetupMessages, "Base folder empty!")
            Exit Sub
        End If
        If String.IsNullOrWhiteSpace(baseInvDir) Then
            ShowMessage(txtCurSetupMessages, "Base invoice folder name empty!")
            Exit Sub
        End If
        If String.IsNullOrWhiteSpace(baseFileName) Then
            ShowMessage(txtCurSetupMessages, "Base file name empty!")
            Exit Sub
        End If
        If String.IsNullOrWhiteSpace(targetFileName) Then
            ShowMessage(txtCurSetupMessages, "Target file name empty!")
            Exit Sub
        End If
        If Not Directory.Exists(baseDir) Then
            ShowMessage(txtCurSetupMessages, "Base folder does not exist!")
            Exit Sub
        End If
        baseInvDir = System.IO.Path.Combine(baseDir, baseInvDir)
        If Not Directory.Exists(baseInvDir) Then
            ShowMessage(txtCurSetupMessages, "Base invoice folder does not exist!")
            Exit Sub
        End If

        'get the invoice files
        Dim dirInfo As DirectoryInfo = New DirectoryInfo(baseInvDir)
        Dim files As FileInfo() = dirInfo.GetFiles("*.pdf")
        If files.Length <= 0 Then
            ShowMessage(txtCurSetupMessages, "Invoices missing!")
            Exit Sub
        End If

        baseFileName = System.IO.Path.Combine(baseDir, baseFileName)
        If Not File.Exists(baseFileName) Then
            ShowMessage(txtCurSetupMessages, "Base file missing!")
            Exit Sub
        End If

        targetFileName = System.IO.Path.Combine(baseDir, targetFileName)
        If File.Exists(targetFileName) Then
            File.Delete(targetFileName)
        End If

        Dim tempSource As String = System.IO.Path.Combine(baseDir, "tempSource.pdf")
        If File.Exists(tempSource) Then
            File.Delete(tempSource)
        End If

        'copy the base file as temp file
        File.Copy(baseFileName, tempSource, True)

        'do action 
        Dim iteration As Integer = 1
        Dim totalPages As Integer = 0
        Dim page As Integer = 0

        Dim temp As String = System.IO.Path.Combine(baseDir, "temp.pdf")
        Dim tempBefore As String = System.IO.Path.Combine(baseDir, "tempBefore.pdf")
        Dim tempAfter As String = System.IO.Path.Combine(baseDir, "tempAfter.pdf")
        Dim reader As PdfReader = Nothing

        For Each myFile As FileInfo In files

            If File.Exists(temp) Then File.Delete(temp)
            If File.Exists(tempBefore) Then File.Delete(tempBefore)
            If File.Exists(tempAfter) Then File.Delete(tempAfter)

            'get total pages in the pdf
            reader = New PdfReader(tempSource)
            totalPages = reader.NumberOfPages
            reader.Close()
            If totalPages = 0 Then
                ShowMessage(txtCurSetupMessages, String.Format("0 pages found in the source file"))
                Exit For
            End If

            'find page number, this is the page after which we'll place the invoice pdf 
            page = FindPageNo(tempSource, 1, myFile.Name.ToUpper.Replace(".PDF", ""))
            If page <= 0 Then Continue For

            ShowMessage(txtCurSetupMessages, String.Format("Processing Invoice:{0} Page:{1} InvoiceFile:{2}", Format(iteration, "000"), Format(page + 1, "000"), myFile.Name))

            If page = totalPages Then
                'append the invoice file to the end 
                AddDocuments(temp, tempSource, myFile.FullName, "")
            Else
                'divide the pages into temp before and temp after then put together
                BuildTempBeforeAndAfter(tempSource, tempBefore, tempAfter, page, totalPages)
                'now put together
                AddDocuments(temp, tempBefore, myFile.FullName, tempAfter)
            End If

            'move the temp into temp source
            If File.Exists(temp) Then
                File.Copy(temp, tempSource, True)
            End If

            iteration += 1
        Next

        'clean reader, used for temp number of pages 
        If Not reader Is Nothing Then reader.Close()

        'clean the temp files used by the loop 
        If File.Exists(temp) Then File.Delete(temp)
        If File.Exists(tempBefore) Then File.Delete(tempBefore)
        If File.Exists(tempAfter) Then File.Delete(tempAfter)

        'move temp source to target file and delete 
        If File.Exists(tempSource) Then
            File.Copy(tempSource, targetFileName, True)
            File.Delete(tempSource)
        End If

        ShowMessage(txtCurSetupMessages, "Process Completed")
    End Sub

Private Function FindPageNo(ByVal sourceFiles As String, ByVal startpage As Integer, ByVal invno As String) As Integer
        Dim i As Integer
        Dim str1 As String
        Dim pos1 As Integer, pos2 As Integer
        Dim bgReader As PdfReader
        Dim pagen As Integer
        If File.Exists(sourceFiles) Then
            bgReader = New PdfReader(sourceFiles)

            If startpage > bgReader.NumberOfPages Then
                FindPageNo = -1  'error. invalid
                bgReader.Close()
            End If

            pagen = 0
            For i = startpage To bgReader.NumberOfPages
                str1 = pdftextextractor.GetTextFromPage(bgReader, i)
                pos1 = str1.IndexOf("Invoice No:")
                pos2 = str1.IndexOf("Phone:")
                If pos2 > pos1 Then
                    If str1.Substring(pos1 + 11, pos2 - pos1 - 11).Trim.Equals(invno) = True Then
                        pagen = i  'found the page
                        'bgReader.Close()
                        'Exit Function
                    Else
                        If pagen <> 0 Then
                            'we found the page no. so no need to go further.
                            'exit now
                            FindPageNo = pagen  'last page found
                            bgReader.Close()
                            Exit Function
                        End If
                    End If
                End If
            Next i
            bgReader.Close()
        End If
        If pagen <> 0 Then
            FindPageNo = pagen  'last page found
        Else
            FindPageNo = 0  'not found
        End If

    End Function

    Private Function BuildTempBeforeAndAfter(ByVal tempSource As String, ByVal tempBefore As String, ByVal tempAfter As String, ByVal endPage As Integer, ByVal totalPages As Integer) As Boolean
        Dim reader As PdfReader = Nothing
        Dim copy As PdfCopy = Nothing
        Dim doc As Document = Nothing
        Dim impPage As PdfImportedPage = Nothing
        Dim isBuild As Boolean = True
        Try
            reader = New PdfReader(tempSource)
            doc = New Document(reader.GetPageSizeWithRotation(1))
            'before file
            copy = New PdfCopy(doc, New FileStream(tempBefore, FileMode.Create))
            doc.Open()
            For index = 1 To endPage
                impPage = copy.GetImportedPage(reader, index)
                copy.AddPage(impPage)
            Next
            copy.Close()
            doc.Close()
            'after file 
            doc = New Document(reader.GetPageSizeWithRotation(1))
            copy = New PdfCopy(doc, New FileStream(tempAfter, FileMode.Create))
            doc.Open()
            For index = endPage + 1 To totalPages
                impPage = copy.GetImportedPage(reader, index)
                copy.AddPage(impPage)
            Next
            reader.Close()
            copy.Close()
            doc.Close()
        Catch ex As Exception
            isBuild = False
        Finally
            'clean the objects 
            If Not reader Is Nothing Then reader.Close()
            If Not doc Is Nothing Then doc.Close()
            If Not reader Is Nothing Then reader.Close()
        End Try
        Return isBuild
    End Function

    Private Function AddDocuments(ByVal targetFile As String, ByVal addFile1 As String, ByVal addFile2 As String, ByVal addFile3 As String) As Boolean
        Dim reader As PdfReader = Nothing
        Dim copy As PdfCopy = Nothing
        Dim doc As Document = Nothing
        Dim isAdded As Boolean = True
        Try
            doc = New Document
            copy = New PdfSmartCopy(doc, New FileStream(targetFile, FileMode.Create))
            doc.Open()
            'add file 1
            If Not String.IsNullOrWhiteSpace(addFile1) Then
                reader = New PdfReader(addFile1)
                copy.AddDocument(reader)
                reader.Close()
            End If
            'add file 2 
            If Not String.IsNullOrWhiteSpace(addFile2) Then
                reader = New PdfReader(addFile2)
                copy.AddDocument(reader)
                reader.Close()
            End If
            'add file 3 
            If Not String.IsNullOrWhiteSpace(addFile3) Then
                reader = New PdfReader(addFile3)
                copy.AddDocument(reader)
                reader.Close()
            End If
            copy.Close()
            doc.Close()
        Catch ex As Exception
            isAdded = False
        Finally
            'clean the objects 
            If Not reader Is Nothing Then reader.Close()
            If Not doc Is Nothing Then doc.Close()
            If Not reader Is Nothing Then reader.Close()
        End Try
        Return isAdded
    End Function