Hola, he implementado este código:
Código:
var
EXIF : PGFL_EXIF_DATA;
NItems : integer;
gfl_bmp1b: PGFL_BITMAP; // Estructura que contiene todas la información sobre una imagen cargada en memoria
...
begin
......
if gflBitMapHasEXIF(gfl_bmp1b) = gfl_no_error then
begin
LabelEXIF.Enabled := True;
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;
gflFreeEXIF(Exif);
end else MessageDlg('File not readable: ' + string(gflGetErrorString(e1)), mtError, [mbOK], 0);
Funciona correctamente. Gracias!!!!