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;