Using MergeFiles in Delphi

I hope that this is an easy one to help me with, but I seem to not be using the MergeFiles function properly.  The error that is reported is "Could not open output file". 

What I wish to do, is to merge several PDF documents into a large PDF - but not remove or alter the original documents.  I pass the two names of the original documents in, and pass the full path including filename of the document that I would like to create as the result.

Can someone post a sample of this?  I don't need any bookmarks, annotations, etc.  Just the plain PDF documents merged.

Thanks in advance!
Tom

I found the problem.  It seems that if the path as spaces in it, then there is a problem with saving the document.  I am now using a simple path with no spaces and everything is working.

Tom

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

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;

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

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

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?