Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#2

Re: Bilder in Reihenfolge speichern...

  Alt 7. Aug 2006, 06:29
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
  Mit Zitat antworten Zitat