How can I see this values EXIF?
Code: Select all
Exif := gflLoadExif(Pchar(FileName1),0);
NItems := Exif.NumberOfItems;
for i := 0 to NItems-1 do
begin
FormPrincipal.ListBox1.Items.Add(Exif.ItemsList[i].Name + ': ' + Exif.ItemsList[i].Value);
end;
Thanks
Miguel Angel