bild mit von einem ordner zum anderen kopieren ?

[thomas2009]

Hallo
ohne saveDialog kopiere ich das Bild wie folgen vor :

Delphi-Quellcode:

CopyFile('test.jpg', 'c:\archiv\test.jpg', False)

mit saveDialog klappt nicht :

Delphi-Quellcode:

CopyFile('test.jpg', SaveDialog1.FileName + '.jpeg', False);

[Die Muhkuh]

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

[DeddyH]

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

[thomas2009]

Vorher habe den Pfad als absolut :

Delphi-Quellcode:

CopyFile(GetCurrentDir + '\test.jpg', SaveDialog1.FileName + '.jpeg', False);

trotzdem funktioniert es nicht

[DeddyH]

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

Delphi-Quellcode:

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

[SirTwist]

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.

Delphi-Quellcode:

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

Gruß,
Michael

[thomas2009]

Hallo

der Code von @DeddyH hat funktionierrt. Danke

Delphi-Quellcode:

CopyFile(PChar(sSource), PChar(sDestination), bNoOverwrite);

aber der Code von @SirTwist nicht
Was konnte log sein ?

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]);

[Matze]

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.