PDF Dateien zusammfügen

[SvB]

Hallo,
ich habe jetzt schon Stundenlang gesucht, aber einfach nichts gefunden und hoffe, dass Ihr vielleicht einen Tip habt.
Ich suche eine Möglichkeit zwei PDF-Dateien zusammenzufügen, aber das ganze soll wie folgt funktionieren:

1. erstelle eine leere PDF-Datei
2. öffne PDF-A
3. öffne PDF-B
4. schreibe abwechselnd in neue PDF die Seiten aus PDF-A und PDF-B

Das ganze könnte im Quellcode ungefähr so aussehen

Delphi-Quellcode:

 new := pdf.create()
 a := pdf.open(PDF-A)
 b := pdf.open(PDF-B)
 for n := 1 to a.pagecount do begin
   new.write(a.page[n])
   new.write(b.page[n])
 end;
 new.close
 a.close
 b.close

Hintergrund:
Ich habe eine Scanner mit Einzeblatteinzug. Ich mächte nun verschiedene Zeitschriften als PDF einscannen und da der Scanner nicht duplexfähig ist, würde ich zuerst die eine Seite durchlaufen lassen und dann die andere Seite. Jetzt benötige ich nur noch ein Tool, mit dem ich dann die zwei Dateien wieder zusammensetzen kann, aber so, dass dan die Seiten auch in der richtigen Reihenfolge sind. Das kann entweder eine fertige EXE sein, oder irgendeine API oder sonst was, mit dem ich mir das schnell selbst schreiben kann. Am besten soll das auch nix kosten, aber auf keinen Fall so utopische Preise habe wie so manche API's von 300€, denn nur für diese Funktion ist mir das einfach zu viel Geld.

Vielleicht hat ja jemand eine Idee.

Danke
Sven

[Christian Seehase]

Moin Sven,

wenn Du nicht darauf bestehst, das selber zu programmieren, kannst Du es auch mit FreePDF und einer beliebigen Textverarbeitung, in der Du die gescannten Seiten einfügen kannst versuchen, wobei Du natürlich auch versuchen kannst die Graphiken selber einzulesen, und dann per Programm über FreePDF auszugeben.
Eine etwas andere Möglichkeit wäre die Verwendung von OpenOffice. Damit kannst Du direkt die Dokumente als PDF speichern.

[omata]

Moin,

schau dir doch mal pdftk an.

MfG
Thorsten

[merlin17]

auch das PDFToolkit von www.gnostice.com kann dies (aus eigener erfahrung kann ich sagen, funktioniert einwandfrei)

thomas

Delphi-Quellcode:

procedure TfrmMain.btnMergeClick(Sender: TObject);
var
  DocList :TStringList;
begin
   DocList := TStringList.Create;
  DocList.Add(InputFile1);
  DocList.Add(InputFile2);

  PDFDoc.MergeDocs(DocList);

  PDFDoc.SaveToFile(OutputFile);

  DocList.Free;
end;

[mkinzler]

mit dem Opensource-Tool PDFBlenderkann man PDF zusammenfügen.