I need help to save EXIF data in DELPHI
Posted: Sat Nov 01, 2008 10:12 pm
Hello,
I have problems to save EXIF data in DELPHI.
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
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;
What's happening?
Rgds,
Miguel Angel