Delphi-PRAXiS - Delphi Bilder in Reihenfolge speichern...

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)

- - Delphi Bilder in Reihenfolge speichern... (https://www.delphipraxis.net/74650-bilder-reihenfolge-speichern.html)

Bilder in Reihenfolge speichern...

Hi Community!

Ich speichere das Canvas als Bitmap im MouseUp Event als Neu.bmp..
Jetzt wenn der User wieder seine Maustaste loslässt, möchte ich das Bild als Neu2.bmp speichern...
und immer so weiter... :wiejetzt:

Ich glaub das ist eine absolute Noob Frage, aber ich weiß nicht wie ich es lösen soll :gruebel:

Grüße mozZzi

Re: Bilder in Reihenfolge speichern...

Guten Morgen.

Wenn du eine Bilderserie speichern willst, dann initialisiere eine Zählvariable (z.B. DemoForm.ImageCount) zum geeigneten Zeitpunkt mit 0 und baue den Zähler so in den Namen ein, dass du auch in der Shell eine Ordnung hestellen kannst.

Delphi-Quellcode:

			procedure TDemoForm.SaveBitmap(bmp: TBitmap; fn: TFileName);  

// fn = 'neu.bmp' (Name ohne Zähler)

begin

  Inc(ImageCount);

  bmp.SaveToFile(ChangeFileExt(fn, Format('.%.4d', [ImageCount]) + ExtractFileExt(fn)));

end;

Getippt und nicht getestet.

Grüße vom marabu