Debenu Quick PDF Library - PDF SDK Community Forum : Using MergeFiles in Delphi

Using MergeFiles in Delphi : Hi Icap!Yes! You can ;-)But...

Tue, 11 Feb 2014 07:46:18 +0000

Author: Ingo
Subject: 2453
Posted: 11 Feb 14 at 7:46AM

Hi Icap!

Yes! You can ;-)

But first you have to convert the image into pdf (this you can do with QP, too).

Then you can merge both pdf to one new big pdf.

Have a look at the merge-functions here:

http://www.debenu.com/docs/pdf_library_reference/DocumentManipulation.php

Cheers and welcome here,

Ingo

Using MergeFiles in Delphi : I can unify one imagems file "teste.jpg"...

Sat, 08 Feb 2014 18:13:21 +0000

Author: lcap
Subject: 2453
Posted: 08 Feb 14 at 6:13PM

I can unify one imagems file "teste.jpg" + * file. pdf "test.pdf" and turn into a big pdf file "1_teste.pdf" unified with debenu?

Using MergeFiles in Delphi : lcap wrote:Sorry, I was testing...

Sun, 15 Dec 2013 19:57:36 +0000

Author: TomInJax
Subject: 2453
Posted: 15 Dec 13 at 7:57PM

lcap wrote:

Sorry, I was testing the code, but does not identify "TDocumentProps", which unit or library I have to import. In the unit have now uses QuickPDF .... and recognized all other commands or less "TDocumentProps".

Can you help me?

As TFrost said, TDocumentProps is an object that I create that is used in each item with additional properties. In this case:

TDocumentProps(lstDocs.Items.Objects[x]).FullPath

translates to the full filepath to the file.  It contains something like this: c:\documents\doc3.pdf.

Sorry for not simplifying my code at the time to make a better example.

Cheers,

Tom

Using MergeFiles in Delphi : TDocumentprops looks like a class...

Sun, 15 Dec 2013 11:30:15 +0000

Author: tfrost
Subject: 2453
Posted: 15 Dec 13 at 11:30AM

TDocumentprops looks like a class in the OP's own program. The parameters for the Debenu MergeFiles function (look them up) are simple strings.

Using MergeFiles in Delphi : Sorry, I was testing the code,...

Sat, 14 Dec 2013 13:04:28 +0000

Author: lcap
Subject: 2453
Posted: 14 Dec 13 at 1:04PM

Sorry, I was testing the code, but does not identify "TDocumentProps", which unit or library I have to import. In the unit have now uses QuickPDF .... and recognized all other commands or less "TDocumentProps".

Can you help me?

Edited by lcap - 14 Dec 13 at 1:04PM

Using MergeFiles in Delphi : Thanks Wheely,That code looks...

Fri, 16 Nov 2012 01:33:38 +0000

Author: TomInJax
Subject: 2453
Posted: 16 Nov 12 at 1:33AM

Thanks Wheely,

That code looks much easier and simpler. I will try in in my test app tomorrow.

Now I will know a couple ways to merge a PDF document together! (Yes I read the documentation, but example code is always much easier to understand)

I appreciate you, Ingo, and AndrewC taking time to assist me so quickly. If any of you ever come to North Florida, I will be happy to buy a glass of your favorite drink for you.

Cheers,
Tom

Using MergeFiles in Delphi : I would suggest using MergeFilesFast....

Thu, 15 Nov 2012 23:26:35 +0000

Author: Wheeley
Subject: 2453
Posted: 15 Nov 12 at 11:26PM

I would suggest using MergeFilesFast. You still have the can't merge into the same file problem, but you can use file lists and merge everything in one command. Just make sure the files are not encrypted before merging. Search the forums for merge. I gave some pseudo code before on this method.

Wheeley

Using MergeFiles in Delphi : Ok, there must be a simpler...

Thu, 15 Nov 2012 13:26:01 +0000

Author: TomInJax
Subject: 2453
Posted: 15 Nov 12 at 1:26PM

Ok, there must be a simpler method to concatenate several PDF documents than the way I am doing it. This code creates a result document with a number added to the filename. This seems to be necessary since the MergeFiles function cannot merge into the same document it is concatenating to. The oldest temporary file is removed, then the final document is renamed to the document that was selected by the user in the FilenameEdit control.

This test code is limited to 10 documents, otherwise the code breaks.

Code:

procedure TfrmDemo.btnSaveDocClick(Sender: TObject);var  x: integer;  QP: TQuickPDF;  tempFileName: string;begin  if (lstDocs.Items.Count > 0) then  begin    QP := TQuickPDF.Create;    tempFileName := TDocumentProps(lstDocs.Items.Objects[0]).FullPath;    try      for x := 1 to lstDocs.Items.Count - 1 do      begin      // Concatenate Documents to one big PDF document        begin          if QP.MergeFiles(tempFileName, TDocumentProps(lstDocs.Items.Objects[x]).FullPath, Copy(edtTmpFile.Text,1,POS('.PDF',ToUpper(edtTmpFile.Text))-1)+IntToStr(x)+'.PDF') = 0 then            ShowMessage(GetErrorMessage(QP.LastErrorCode));          tempFileName := Copy(edtTmpFile.Text,1,POS('.PDF',ToUpper(edtTmpFile.Text))-1)+IntToStr(x)+'.PDF';          //  Delete old file          if FileExists(Copy(edtTmpFile.Text,1,POS('.PDF',ToUpper(edtTmpFile.Text))-1)+IntToStr(x-1)+'.PDF') then            DeleteFile(Copy(edtTmpFile.Text,1,POS('.PDF',ToUpper(edtTmpFile.Text))-1)+IntToStr(x-1)+'.PDF');        end;      end;    finally      QP.Free;      RenameFile(Copy(edtTmpFile.Text,1,POS('.PDF',ToUpper(edtTmpFile.Text))-1)+IntToStr(x-1)+'.PDF',edtTmpFile.Text);    end;  end;end;

Using MergeFiles in Delphi : I found the problem. The filename...

Thu, 15 Nov 2012 13:03:05 +0000

Author: TomInJax
Subject: 2453
Posted: 15 Nov 12 at 1:03PM

I found the problem. The filename edit component that I am using is adding double quotes to the beginning and end of the filename.

Sorry! D'Oh!!!

Tom

Edited by TomInJax - 15 Nov 12 at 3:33PM

Using MergeFiles in Delphi : Thanks Andrew. Here is the actual...

Thu, 15 Nov 2012 12:15:37 +0000

Author: TomInJax
Subject: 2453
Posted: 15 Nov 12 at 12:15PM

Thanks Andrew. Here is the actual test code that I am using. I added a tab to the demo project for this.

I am using version 8.15 (Source Code License), Delphi XE, on Windows XP.

The functionality is this:

1. "Add" button adds a file name to the TListbox (lstDocs), which also has an object with more properties (full path including filename).
2. A temporary file folder and file name is selected in a Filename Edit control (edtTmpFile.Text). This will be the merged document.
3. Save button is the event sample code. It reads the full path and passes it into the MergeFiles function, along with the path for the merged document. It iterates through the list and concatenates the documents together.

The GetErrorMessage function decodes the error number, translating it to the error text.

Here is the code:

procedure TfrmDemo.btnSaveDocClick(Sender: TObject);var  x: integer;  QP: TQuickPDF;  tempFileName: string;begin  if (lstDocs.Items.Count > 0) then  begin    QP := TQuickPDF.Create;    // Concatenate Documents to one big PDF document    try      tempFileName := TDocumentProps(lstDocs.Items.Objects[0]).FullPath;      for x := 1 to lstDocs.Items.Count - 1 do      begin        if QP.MergeFiles(tempFileName, TDocumentProps(lstDocs.Items.Objects[x]).FullPath, edtTmpFile.Text) = 0 then          ShowMessage(GetErrorMessage(QP.LastErrorCode));        tempFileName := edtTmpFile.Text;      end;    finally      QP.Free;    end;  end;end;

Tom