program change_date_demo;
uses
SysUtils,
fpeMetaData, fpeTags, fpeExifData;
var
imgInfo: TImgInfo;
tag: TTag;
begin
imgInfo := TImgInfo.Create;
try
// Read file
imgInfo.LoadFromFile('MyPhoto.jpg');
// Check for EXIF meta data
if imgInfo.HasEXIF then begin
tag := imgInfo.ExifData.TagByName['DateTimeOriginal'];
if tag <> nil then
TDateTimeTag(tag).AsDateTime := Now;
// Save the modified meta data to file
imgInfo.WriteJFIFandEXIF := true;
imgInfo.SaveToFile('MyPhoto_edited.jpg');
end;
finally
imgInfo.Free;
end;
end.