Datei unter einem anderem Namen speichern

[HolgerCW]

Hallo zusammen,

wie kann ich eine pdf-Datei, die ich ausgewählt habe unter einem anderem Namen automatisch speichern.

So speichert er eine Pdf-Datei mit 0 KB ab:

Delphi-Quellcode:

OpenDialogPruefprotokoll.FileName := '*.pdf';

If OpenDialogPruefprotokoll.Execute then
begin
 if pos('.pdf',OpenDialogPruefprotokoll.FileName) = 0 then
 begin
  showmessage('Bitte wählen Sie eine gültige Datei aus.');
  exit;
 end;

 if FileExists(OpenDialogPruefprotokoll.FileName) then
 begin
  SaveDialogPruefprotokoll.FileName := OpenDialogPruefprotokoll.FileName;
  SaveDialogPruefprotokoll.Files.SaveToFile('U:\Files\Prüfprotokoll.pdf');
 end
 else
 begin
  showmessage('Bitte wählen Sie eine gültige Datei aus.');
  exit;
 end;
end;

Für Hilfe wäre ich sehr dankbar

Gruss

Holger