Фотография + Delphi

[Lifefine]

Спасибо всем за внимание и терпение, отдельная благодарность Sparkman за инфу про EXIF, нужно было в гугле искать именно про EXIF. Порыл на сайте нашел исходник, есть готовый компонент TIMageMetaData, оттуда видно что там используется поток для работы с файлами jpeg и bmp.

Кому пригодиться, вот исходник:

[Lifefine]

Вот еще кое-что, скачиваем библиотеку CCR.Exif и подключаем:

uses  CCR.Exif;  
  
procedure ReadCameraMakeAndModel(const FileName: string;
  out Make, Model: string);  
var  
  ExifData: TExifData;  
begin  
  ExifData := TExifData.Create;  
  try  
    ExifData.LoadFromJPEG(FileName);  
    Model := ExifData.CameraModel;  
  finally  
    ExifData.Free;  
  end;  
end;

Можно загрузить фотографию и посмотреть на какой модели фотоаппарата она была снята.