Guten Tag Delphianer,
es ist zum Verzweifeln.
Ich erstelle PDFs mit der pdfFactory.
Das Erstellen einzelner PDF-Dokumente klappt auch ganz gut.
Nur wenn ich mehrere PDF-Dokumente in einer Schleife erstellen möchte geht es schief.
Hier der Quellcode:
Delphi-Quellcode:
pKopieDatei := FPfadPDFAblage + '\' + 'unbenannt.pdf';
pZielDatei := pKundenZielPfad + '\' + pDokumentName;
// Dokument in Redokumente eintragen
if not FileExists(pZielDatei) then
begin
try
pStreamDatei := TFileStream.Create(pKopieDatei, fmOpenRead or
fmShareExclusive);
pStreamDatei.Free;
except
ShowMessage('Rechnung wird gespeichert: ' + pZielDatei);
end;
Die "pKopieDatei" ist die erzeugte Datei von der pdfFactory. Sie hat bei mir immer den Namen "unbenannt.pdf"
Diese Datei wird per FileStream in eine neue Datei kopiert (pZieldatei).
So wie jetzt der try except Konstrukt abgearbeitet wird, wird die PDF-Datei korrekt erzeugt.
Lasse ich "showmessage" nicht zur Ausführung kommen, dann wird zwar die PDF-Datei erzeugt, aber
die erzeugte Datei kann nicht geöffnet werden. Fehlermeldung "Die Datei ist beschädigt und kann nicht repariert werden".
Beim Debug bekomme ich die im Anhang beschriebene Fehlermeldung.
Ich weis nicht, wie ich den Fehler vermeiden kann. Wie kann ich es anders programmieren?
Zur Zeit bin ich ein klein Wenig genervt, aber vielleicht könnt Ihr helfen?
Vielen Dank für Eure Hilfe im Voraus.