[Delphi] Unit za EXIF metadata (jpg)

Zanima me, če kdo pozna kak Unit oz. kak drug lib za delo z jpg datotekami. Predvsem potrebujem nekaj s čemer bi lahko bral in zapisoval po metadata podatkih slik (JPEG).

... bral in zapisoval po metadata podatkih ...

a tud EXIF ?

Sicer več ne vem vira, kjer sem dobil primer, ampak ti ga copy/paste.

In sicer ti napiše podatke o exe datoteki:

const
  InfoNum = 10;
  InfoStr: array[1..InfoNum] of string = ('CompanyName', 'FileDescription', 'FileVersion', 
'InternalName', 'LegalCopyright', 'LegalTradeMarks', 
'OriginalFileName', 'ProductName', 'ProductVersion', 'Comments');
var
  S: string;
  n, Len, i: DWORD;
  Buf: PChar;
  Value: PChar;
begin
  S := Application.ExeName;
  n := GetFileVersionInfoSize(PChar(S), n);
  if n > 0 then
  begin

    Buf := AllocMem(n);
    Memo1.Lines.Add('VersionInfoSize = ' + IntToStr(n));
    GetFileVersionInfo(PChar(S), 0, n, Buf);
    for i := 1 to InfoNum do
      if VerQueryValue(Buf, PChar('StringFileInfo\040904E4\' + InfoStr[i], Pointer(Value), Len) then
        Memo1.Lines.Add(InfoStr[i] + ' = ' + Value);
    FreeMem(Buf, n);
  end
  else
    Memo1.Lines.Add('No version information found');
end;

[edit - kar se tag-ov tiče, si na pravi poti ;) - vsc]

ej, fenkju ver mač
Bom danes zvečer poskusil kaj te kode uporabiti ...
še enkrat hvala

Moj sony DSC zapiše naslednje podatke v jpg datoteko:

Width, Height, Horizontal Resolution, Vertical Rasolutio, Bit Depth...... itd

In te lastnosti zapišeš v InfoStr:

const
  Infonum = 19;  // oziroma toliko, kolikor jih pac je v tvojem primeru
  array[1..InfoNum] of string = ('Width', 'Height', 'Horizontal Resolution', 'Vertical Rasolutio', 'Bit Depth', 'Frame Count', 'Equipment Make', 'Camera Model' {in nadaljujes naprej, kolikor jih je})

In to je v bistvu to. Napiši kodo, pa pogledamo.

Veš da sem prebral zgornjo kodo, sem pa tudi ugotovil, da si primer našel v Delphi Helpu , kar je vse čist ok, sam menim, da to še vedno ni to kar js iščem, kodo sem poskusil tudi spreminjati (sicer ne array[1..InfoNum] of string = ('Width' ... ampak 'title' 'comment' itd.) , vendar mislim da je GetFileVersionInfo predvsem namenjnen točno tistemu, kar že ime samo pove in sicer verziji file-a.
Slišal sem tudi da menda obstaja nek dEXIF ki menda bere te podatke. ČE jih pa tudi ureja pa ne vem.
Se bom še mal pozanimal

fenks enivej
ČE imaš še kako drugo idejo kar na dan z njo ...

LP

tell me something new ...
sam kaj k včasih tud najboljši prijatelji zatajijo