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;