EXIF problem [Delphi]
Posted: Wed Apr 28, 2004 8:32 pm
Hello!
This is how I managed the EXIT in my file
However I have the following error message "incorrect floating point operation" when I execute the function gflBitmapGetEXIF
the structure of EXIF is
The problem does not occur everytime I open a picture
Any ideas?
This is how I managed the EXIT in my file
Code: Select all
gflGetDefaultLoadParams(LoadParam);
LoadParam.Flags := GFL_LOAD_METADATA;
Erreur := gflLoadBitmap(NomFichier, GFLImage, LoadParam, InformationFichier);
if GFLBitmapHasEXIF(GFLImage) = GFL_True then
Exif := gflBitmapGetEXIF(GFLImage, EXIF_MAIN_IFD);
However I have the following error message "incorrect floating point operation" when I execute the function gflBitmapGetEXIF
the structure of EXIF is
Code: Select all
const
EXIF_MAIN_IFD = $0001;
EXIF_IFD_0 = $0002;
EXIF_INTEROPERABILITY_IFD = $0004;
EXIF_IFD_THUMBNAIL = $0008;
EXIF_GPS_IFD = $0010;
EXIF_MAKERNOTE_IFD = $0020;
type
TGFL_EXIF_ENTRY = record
Flag : GFL_UINT32; // EXIF_...IFD
Tag : GFL_UINT32;
Name : PCHAR;
Value : PCHAR;
end;
PGFL_EXIF_ENTRY = ^TGFL_EXIF_ENTRY;
type
TTabGFL_EXIF_ENTRY = array [0..0] of TGFL_EXIF_ENTRY;
PTTabGFL_EXIF_ENTRY = ^TTabGFL_EXIF_ENTRY;
TGFL_EXIF_DATA = record
NumberOfItems : GFL_UINT32;
ItemsList : PTTabGFL_EXIF_ENTRY; //PGFL_EXIF_ENTRY;
end;
PGFL_EXIF_DATA = ^TGFL_EXIF_DATA;
The problem does not occur everytime I open a picture
Any ideas?