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;