Try using this (note that I have not tested this, just checked the tag DateTimeOriginalagainst the fact that the DateTimeOriginalproperty returns and they match).
uses
CCR.Exif;
procedure ShowDateTimeOriginal(const FileName: string);
var
ExifData: TExifData;
begin
ExifData := TExifData.Create;
try
ExifData.LoadFromGraphic(FileName);
ShowMessage(DateTimeToStr(ExifData.DateTimeOriginal));
finally
ExifData.Free;
end;
end;
TLama source
share