Bilder in Reihenfolge speichern...

[mOzZzI]

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...

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

Grüße mozZzi

[marabu]

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