Hallo
ohne saveDialog kopiere ich das Bild wie folgen vor :
CopyFile('test.jpg', 'c:\archiv\test.jpg', False) mit saveDialog klappt nicht :
CopyFile('test.jpg', SaveDialog1.FileName + '.jpeg', False);

Du hast auch keinen absoluten Pfad als Quelle angegeben. Das das obere klappt ist nur Glück.

Außerdem steht in SaveDialog.Filename schon der komplette Pfad samt Dateiname und Endung drin.

Vorher habe den Pfad als absolut :
CopyFile(GetCurrentDir + '\test.jpg', SaveDialog1.FileName + '.jpeg', False); trotzdem funktioniert es nicht

Und was erwartest Du, das in GetCurrentDir stehen soll? Mal auf Verdacht:

markieren

Delphi-Quellcode:

CopyFile(PChar(IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0))) + 'test.jpg'),
         PChar(ChangeFileExt(SaveDialog1.FileName, '.jpeg')), False);

Hi,

anstatt den Fehler beim CopyFile zu suchen, solltest Du Dir die Dateinamen ausgeben lassen.

Insbesondere ist es äußerst unschön, die zusammengefrickelten Dateinamen direkt an die Funktion übergeben.

markieren

Delphi-Quellcode:

src_name := 'test.jpg';
dst_name := SaveDialog1.Filename + '.jpeg';
Log('Copying file from "%s" to "%s"', [src_name, dst_name]);

Gruß,
Michael

Hallo

der Code von @DeddyH hat funktionierrt. Danke
CopyFile(PChar(sSource), PChar(sDestination), bNoOverwrite); aber der Code von @SirTwist nicht
Was konnte log sein ?

markieren

Delphi-Quellcode:

var src_name,dst_name : String;
log: Tlog; // !
begin
src_name := 'test.jpg';
dst_name := SaveDialog1.Filename + '.jpeg';
Log('Copying file from "%s" to "%s"', [src_name, dst_name]);

Das ist sicher eine eigene Log-Funktion. Da kannst du für diesen Test auch "ShowMessage" nutzen. Es geht nur darum, dass du verstehst, dass deine Dateipfade falsch waren.