delphi - 如何获取使用 CCR EXIF 拍摄图像的日期/时间？

Question

使用 CCR EXIF http://delphihaven.wordpress.com/ccr-exif/ 如何获取拍摄图像的时间？

（我愿意使用其他东西，只要我可以使用 Delphi，但每个人都说 CCR EXIF 是最好的；我只是在稀疏文档中找不到这个）

Answer 1

尝试使用它（请注意，我没有对此进行测试，只是DateTimeOriginal根据返回属性的内容验证了标签DateTimeOriginal并且它们匹配）。

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;