Stream merging of PDF files using Delphi

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Here is some Delphi code for merging two PDFs in a stream. Alternatively the MergeStreams function can be used.
  function MergeStreamsViaMergeDocument(FirstStream, SecondStream,
    OutputStream: TMemoryStream): Integer;
  var
    doc1, doc2: Integer;
  begin
    with TQuickPDF.Create do
    try
      FirstStream.Seek(0, soFromBeginning);
      LoadFromStream(FirstStream);
      doc1 := SelectedDocument;
      SecondStream.Seek(0, soFromBeginning);
      LoadFromStream(SecondStream);
      doc2 := SelectedDocument;
      SelectDocument(doc1);
      MergeDocument(doc2);
      OutputStream.Seek(0, soFromBeginning);
      SaveToStream(OutputStream);
    finally
      Free;
    end;
  end;

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
Rowan Members Profile Find Members Posts Moderator Group Joined: 10 Jan 09 Status: Offline Points: 398	Post Options Post Reply Quote Rowan Report Post Thanks(0) Quote Reply Topic: Stream merging of PDF files using Delphi Posted: 26 Apr 11 at 9:10PM
	Here is some Delphi code for merging two PDFs in a stream. Alternatively the MergeStreams function can be used. function MergeStreamsViaMergeDocument(FirstStream, SecondStream, OutputStream: TMemoryStream): Integer; var doc1, doc2: Integer; begin with TQuickPDF.Create do try FirstStream.Seek(0, soFromBeginning); LoadFromStream(FirstStream); doc1 := SelectedDocument; SecondStream.Seek(0, soFromBeginning); LoadFromStream(SecondStream); doc2 := SelectedDocument; SelectDocument(doc1); MergeDocument(doc2); OutputStream.Seek(0, soFromBeginning); SaveToStream(OutputStream); finally Free; end; end;