Hallo zusammen,
wäre schön, wenn mir jemand bei der Lösung zu folgendem Problem helfen könnte:
Ich soll mit dem Developer Studio 2006 ein Programm schreiben, dass Einzelpdfs zu einem Sammelpdf zusammenfasst. Nachdem ich etwas gegoogled hatte, kam folgendes dabei heraus:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
| fs := TFileStream.Create(OutFileName, fmCreate or fmShareExclusive);
for ......Schleife über alle einzufügenden pdfs
begin
if FileExists(FileName) then
begin
ss := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite) ;
try
res := fs.CopyFrom(ss, 0);
finally
ss.Free;
end;
end;
end; |
Man kann dem Sammelpdf (OutFileName) zwar beim Wachsen zusehen, während die PDFs hinzugefügt werden, aber wenn man es öffnet, enthält es nur das erste PDF.
Die Einzelpdfs sind übrigens alle 3seitig (keine Ahnung, ob das eine Rolle spielt).
Vielleicht hat ja jemand von euch eine Idee. Würde mir wirklich sehr helfen.
Vielen Dank
Mirja
