Save EXIF

[madiazg]

Hello,
using

Code: Select all

Exif: gflLoadExif = (Pchar (FileName1), 1)

get the EXIF data from a photo.

After editing the picture, when save the photo

Code: Select all

(gflSaveBitmap (pchar (FileName), gfl_bmpS, SPS))

are not stored the EXIF data from the original photo. How do I save the EXIF data in the new file?

Greetings ...
Miguel Angel
http://imagen3d.site88.net

[xnview]

Your picture before the save has EXIF?

[madiazg]

Yes,
the original image has EXIF data.

Miguel Angel

[madiazg]

Hello,
I have problem (Turbo Delphi) when I use this function:

Code: Select all

gflBitmapGetEXIF2(bitmap: PGFL_BITMAP)

Code: Select all

//Carga la imagen
    gflLoadBitmap(Pchar(FileName1),gfl_bmp1b, lp1b, finfo1b);
//EXIF 2
    if gflBitMapHasEXIF(gfl_bmp1b) = gfl_no_error then
    begin
      EXIF2 := gflBitmapGetEXIF2(gfl_bmp1b);
      gflFreeEXIF2(EXIF2);
    end;

Do you know what may be the problem?
Rgds,

[xnview]

gflBitmapGetEXIF2 is undefined?

[madiazg]

I have defined as:

Code: Select all

var
  EXIF2 : PGFL_EXIF_DATAEX;

Rgds,
Miguel Angel

[xnview]

But what's happened?

[madiazg]

The program does not run.

Code: Select all

program EXIF;

uses
  Forms,
  Principal in 'Principal.pas' {FormPrincipal},
  Datos in 'Datos.pas',
  IPTC in 'IPTC.pas' {FormIPTC};

{FormDatos}

{$R *.res}

begin  // +++++++++ STOP
  Application.Initialize;
  Application.Title := 'FotoDatos';
  Application.CreateForm(TFormPrincipal, FormPrincipal);
  Application.CreateForm(TFormDatos, FormDatos);
  Application.CreateForm(TFormIPTC, FormIPTC);
  Application.Run;
end.

I do not understand what happens

Rgds
Miguel Angel
http://imagen3d.site88.net/