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

[Lifefine]

Всем привет! Искал здесь и в гугле не нашел подобную тему, вопрос такой, каким образом можно узнать данные о фотографии,например, открыть на форму фотографию и при нажатии кнопки появились данные о фотографии (Модель фотоаппарата, диафрагма и т.д.), с какими компонентами работать, или можно ссылочку где описывается как реализовать такой алгоритм, сам разберусь.

Отобразить данные типа так:


Заранее большое спасибо!

[SERG1980]

Скорее всего это ваш фотоаппарат такое делет. При создании фото он в свободное место файла в так называемые теги (примерно как в mp3), пишет инфу, а утилитка эта просто знает какой байт файла за что отвечает и показывет вам это. Вам надо загнать эту фотку в поток и анализировать побайтно и методом тыка подбирать какой байт за что отвечает.
Хотя может и не так, я всего лишь так предполагаю?

[Lifefine]

Понял,спасибо за информацию! А вот по поводу "...загнать эту фотку в поток...", каким образом можно загнать? Хотя я в потоках разбирался только в обычных примерах, а вот фотку загнать в поток пока не соображаю((((, есть ли примеры для работы с таким потоками как с файлами mp3? Будьте добры,если есть ссылки на данную тему скиньте, заранее большое спасибо.

[chertovich]

Фотография, это файл, и поэтому его "загонять" в поток нужно точно также, как и др. файл.
На счет данных о фотографии, то нужно искать где в файле хранится эта инфа, и потом уже считывать

Вот почитай:
http://ru.wikipedia.org/wiki/JPG

[Человек_Борща]

Описание JPEG формата:
http://ru.wikipedia.org/wiki/JPEG а тут подробнее http://www.martinreddy.net/gfx/2d/JPEG.txt

[Lifefine]

Спасибо всем за инфу! Поработаю над потоками. Хотел заранее узнать, после как "загоню" в поток, считывание информации о данных фотограф. необходимо в байтах, как написано на википедии? ИМХО.

[Человек_Борща]

Ну например вот так:
Код потока:

unit Unit2;

interface

uses
  Classes,SysUtils,jpeg,Windows;

type
  TJpegReader = class(TThread)
  private
    { Private declarations }
    fFileName:string;
  protected
    procedure Execute; override;
    property ImgFile:string write fFileName;
  end;

implementation

{ Important: Methods and properties of objects in visual components can only be
  used in a method called using Synchronize, for example,

      Synchronize(UpdateCaption);

  and UpdateCaption could look like,

    procedure TJpegReader.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end; }

{ TJpegReader }

procedure TJpegReader.Execute;
var
  jpg:TJPEGImage;
begin
  jpg:=TJPEGImage.Create;
  try
  jpg.LoadFromFile(fFileName);
  {Ту что-то делаем с jpeg файлом}
  finally
   FreeAndNil(jpg);
  end;
end;

end.

код использоввания:

uses Unit2;

...

procedure Run;
var
  Thr:TJpegReader;
begin
  Thr:=TjepegReader.create(True);
  Thr.ImgFile:=OpenDlg.FileName;
  Thr.Resume;
end;

Потоки нужны только в ом случае если требуется обработать многг информации или длительную операцию при этом не тормозить осн. программу.

хм как подсказки чтобы вам много не кодить, в delphi есть модуль JPEG который работает с jpeg изображениями.

Так же советую прощерстить ресурс http://torry.com там уверен вы найдете много компонентов/модулей на интересующую вас тему.

[SERG1980]

Под фразой "загнать в поток" я имел ввиду открыть фотку через MemoryStream например

var MS:TMEmoryStream;
.....
MS:=TMemoryStream.Create;
MS.LoadFromFile('путь к фото');
MS.Seek(0,0);//сдвигаем вначало
//далее считываем побайтно и "раскидываем" данные о фотоаппарате в том случае если вы знаете какой байт 
за что отвечает, в противном случае методом тыка, подбора
FreeAndNil(MS);

[Sparkman]

1) загрузка фото Image1.Picture.LoadFromFile('путь') ;
2) информация о файле (сводка): ищем и читаем все об EXIF.

ПС: можно было бы и поподробнее написать, только, даже на этом форуме, подобная тема столько раз поднималась...

[ZvEr_HaCkEr]

[offtop]. А почему torry.com не рабит?[/offtop]