I need help to save EXIF data in DELPHI

[madiazg]

Hello,
I have problems to save EXIF data in DELPHI.

Code: Select all

var
  EXIF2 : PGFL_EXIF_DATAEX;
....
begin
    gflEnableLZW(GFL_TRUE);
    gflGetDefaultLoadParams(lp);
    lp.ColorModel := GFL_BGR;
    lp.LinePadding := 4;
    gflLoadBitmap(Pchar(FileName1),gfl_bmp, lp, finfo);
//EXIF 2
    if gflBitMapHasEXIF(gfl_bmp1b) = gfl_no_error then
    begin
      EXIF2 := gflBitmapGetEXIF2(gfl_bmp);
........
      gflBitmapSetEXIF2(gfl_bmp,EXIF2);
      gflFreeEXIF2(EXIF2);
      gflGetDefaultSaveParams(sp);
      sp.FormatIndex := gflGetFormatIndexByName('jpeg');
      gflSaveBitmap(PChar('prueba.jpg'),gfl_bmp,sp);
    end;
...
end;

EXIF2 not load any data. After saving the EXIF data and save the file, the EXIF data in the PRUEBA.JPG file appear in white.
What's happening?
Rgds,
Miguel Angel

[xnview]

Please use GFL_LOAD_METADATA

[madiazg]

Thank you very much,
It works perfectly.