Hallo,

ich möchte ein PDF laden und an einem anderen Ort speichern. Eigentlich nicht wild, aber irgendwie geht das PDF kaputt. Die neue Dateigröße ist immer 1KB und es ist nicht zu öffnen.

Hier mal der Quellcode:

markieren

Delphi-Quellcode:

OpenDialog1.Filter := 'PDF Dateien (*.pdf)|*.pdf';
if OpenDialog1.Execute then begin
 dataPersonendaten.Personalausweis.Edit;
 with Opendialog1 do
 OpenDialog1.Files.SaveToFile('blabla.pdf');
 showMessage('Datei erfolgreich gespeichert');

Was mache ich denn hier falsch?

Schau mal im Notepad rein was im deiner PDF steht.
Mit

OpenDialog1.Files.SaveToFile('blabla.pdf'); speicherst Du die Liste der im Opendialog selektierten Dateien.

Wenn ich das PDF im Editor aufmache steht da nur der Dateiname der alten PDF Datei drin, die ich mittels OpenDialog aufgemacht habe.

Wie kann das denn?

Is ja auch logisch...

Weiß ja nicht was
dataPersonendaten.Personalausweis.Edit; so macht/kann aber ich glaube du lädst die Datei nichtmal wirklich...
Und Opendialog1.Files ist eine Stringlist wo nur alle Dateinamen drinstehn von den Dateien die du im Dialog makiert hast... Wenn du die speicherst hast du natürlich auch nur ne Datei mit den Dateinamen

Gruß
Neutral General

Zitat von kluckweb:

Wie kann das denn?

Der Code OpenDialog1.Files.SaveToFile('blabla.pdf'); speichert den Inhalt der Stringliste Files, welche die ausgewählten Dateinamen enthält, in die Datei blabla.pdf.

......

OK, soweit zur Erklärung dazu.

Aber wie kann ich denn nun eine PDF Datei laden per OpenDialog und diese Datei dann einfach nur an einem anderen Ort speichern?
War davon ausgegangen, dass es mit diesem Befehl funktionieren müsste.

Ich weiß nicht ob du ne Klasse hast um PDFs öffnen zu können.. Wenn ja dann geht das damit bestimmt. Wahrscheinlich auch über sowas wie TPDF.SaveToFile.. Wenns nur um das reine speichern geht gibts noch zwei alternativen.. Entweder einfach die Datei kopieren mit

CopyFile oder mit nem (Memory-)Stream öffnen und wieder woandershin speichern.

1. Beispiel

markieren

Delphi-Quellcode:

if Opendialog1.Execute then
begin
  CopyFile(Opendialog1.Filename,'Ort\NeuerDateiname.pdf',false); // true = fehlschlag wenn die datei schon existiert
end;

2. Beispiel

markieren

Delphi-Quellcode:

if Opendialog1.Execute then
begin
  MemoryStream := TMemoryStream.Create;
  MemoryStream.LoadFromFile(Opendialog1.Filename);
  MemoryStream.SaveToFile('NeuerDateiName.pdf');
  MemoryStream.Free;
end;

Gruß
Neutral General

Funktioniert super.

Danke für die Hilfe.