Bild unter neuem Namen speichern !

[Davidlocke13]

Morgen;

ich lade ein Bild in ein Image und will dieses nun wieder Speichern.
Der Speicherort soll der selbe sein nur der Name ein anderer.

z.B.:

Original C:\Users\Benutzer\Pictures\Test.jpg
Neu C:\Users\Benutzer\Pictures\TestNeu.jpg

Wie stell ich das am besten an ?

[DeddyH]

Mit TPicture.SaveToFile, oder was war die Frage?

[Davidlocke13]

Ja das ist klar wie ich das speicher nur wie bekomme ich das mit dem Namen hin ?

Delphi-Quellcode:

Image1.Picture.SaveToFile(ListBox1.Items[ListBox1.ItemIndex]);

So währe das Original ja überschrieben !

[DeddyH]

Zerleg den kompletten Pfad doch in 3 Teile: Verzeichnis, Name und Endung. Dann passt Du den Namen an und baust alles wieder zum neuen Pfad zusammen. Aus dem Kopf:

Delphi-Quellcode:

var
  Pfad, Dateiname, Endung: string;
begin
  Pfad := ExtractFilePath(Original);
  Endung := ExtractFileExt(Original);
  Dateiname := ChangeFileExt(ExtractFilename(Original), '');
  NeuerName := Format('%s%sNeu%s', [Pfad, Dateiname, Endung]);

[Dalai]

ExtractFilePath sollte dir dabei helfen.

EDIT: Deddy war mal wieder schneller.

MfG Dalai

[Sir Rufo]

In diesem konkreten Beispiel geht das sogar simpel mit

Delphi-Quellcode:

NewFileName := ChangeFileExt( OldFileName, 'Neu.jpg' );

[DeddyH]

Stimmt zwar, aber mein Ansatz geht in eine flexiblere Richtung. Dazu ist nur eine minimale Änderung nötig.

[Davidlocke13]

Gerade ausprobiert!

Funktioniert wunderbar ;-)


Danke für die Hilfe!