I am using version 3.15 of GFL SDK. If I Load an image and saving it, EXIF data are saved correctly:
Code: Select all
gflLibraryInit();
gflGetDefaultLoadParams(mLoadOption);
mLoadOption.Flags := GFL_LOAD_READ_ALL_COMMENT;
mLoadOption.Flags := GFL_LOAD_METADATA;
mError := gflLoadBitmap(Pchar(FileName1),mOriBitmap, mLoadOption, lInformation); // Carga una imagen en Memoria
gflGetDefaultSaveParams(mSaveOption);
mSaveOption.Flags := GFL_SAVE_REPLACE_EXTENSION;
mSaveOption.Flags := GFL_SAVE_ICC_PROFILE;
mSaveOption.FormatIndex := 0;
mSaveOption.Quality := 50;
gflSaveBitmap(PChar('prueba.jpg'),mOriBitmap,mSaveOption);
Code: Select all
gflLibraryInit();
gflGetDefaultLoadParams(mLoadOption);
mLoadOption.Flags := GFL_LOAD_READ_ALL_COMMENT;
mLoadOption.Flags := GFL_LOAD_METADATA;
mError := gflLoadBitmap(Pchar(FileName1),mOriBitmap, mLoadOption, lInformation); // Carga una imagen en Memoria
//EXIF 2
mEXIFData2 := gflBitmapGetEXIF2(mOriBitmap);
gflBitmapRemoveMetaData(mOriBitmap);
gflBitmapSetEXIF2(mOriBitmap,mEXIFData2);
gflGetDefaultSaveParams(mSaveOption);
mSaveOption.Flags := GFL_SAVE_REPLACE_EXTENSION;
mSaveOption.Flags := GFL_SAVE_ICC_PROFILE;
mSaveOption.FormatIndex := 0;
mSaveOption.Quality := 50;
gflSaveBitmap(PChar('prueba.jpg'),mOriBitmap,mSaveOption);
gflFreeEXIF2(mEXIFData2);
- x Resolution
y Resolution
Exposure Time
Focal Length
This error does not occur with other camera models
You can download an image here:
http://personal.telefonica.terra.es/web ... mg0022.jpg
Miguel Angel
http://imagen3d.site88.net