EXIF: Thumbnail ändern

[Martin K]

Also, hier ist der Quelltext.
Vorausgesetzt, du hast die Unit dExif eingebunden (s. erster Beitrag). [Also: uses {...} dExif;]

1. EXIF-Daten "merken":

Delphi-Quellcode:

//global:
var ImgData: TImgData;

//oder du machst dir ein array:
var ImgData: array[0..255] of TImgData; //wenn du Exif-Daten von mehreren Bildern merken willst
//dann musst du unten im Quelltext halt eine Schleife machen mit ImgData[i]


procedure CreateExif(FileName: String);
begin
  ImgData := TImgData.Create;
  ImgData.BuildList := GenAll;
  ImgData.ProcessFile(FileName);
end;

2. EXIF-Daten in Bild speichern (wird über FileName identifiziert):

Delphi-Quellcode:

//wenn du das array verwendest, musst du hier wieder eine Schleife machen mit ImgData[i]

procedure SaveExifAndFree;
begin
  ImgData.WriteEXIFJpeg(ImgData.FileName);
  ImgData.Free;
end;