Save EXIF

Discussions on GFL SDK, the graphic library for reading and writing graphic files

Moderators: XnTriq, xnview

Post Reply
User avatar
madiazg
Posts: 82
Joined: Wed Jul 18, 2007 8:00 pm
Location: Tenerife - Islas Canarias
Contact:

Save EXIF

Post by madiazg » Fri Aug 15, 2008 2:15 pm

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

User avatar
xnview
Author of XnView
Posts: 33612
Joined: Mon Oct 13, 2003 7:31 am
Location: France
Contact:

Re: Save EXIF

Post by xnview » Fri Aug 15, 2008 4:02 pm

Your picture before the save has EXIF?
Pierre.

User avatar
madiazg
Posts: 82
Joined: Wed Jul 18, 2007 8:00 pm
Location: Tenerife - Islas Canarias
Contact:

Post by madiazg » Sun Aug 17, 2008 3:58 pm

Yes,
the original image has EXIF data.

Miguel Angel

User avatar
madiazg
Posts: 82
Joined: Wed Jul 18, 2007 8:00 pm
Location: Tenerife - Islas Canarias
Contact:

Post by madiazg » Wed Aug 20, 2008 5:20 pm

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,

User avatar
xnview
Author of XnView
Posts: 33612
Joined: Mon Oct 13, 2003 7:31 am
Location: France
Contact:

Post by xnview » Mon Aug 25, 2008 8:16 am

gflBitmapGetEXIF2 is undefined?
Pierre.

User avatar
madiazg
Posts: 82
Joined: Wed Jul 18, 2007 8:00 pm
Location: Tenerife - Islas Canarias
Contact:

Post by madiazg » Mon Aug 25, 2008 5:50 pm

I have defined as:

Code: Select all

var
  EXIF2 : PGFL_EXIF_DATAEX;
Rgds,
Miguel Angel

User avatar
xnview
Author of XnView
Posts: 33612
Joined: Mon Oct 13, 2003 7:31 am
Location: France
Contact:

Post by xnview » Mon Aug 25, 2008 7:06 pm

But what's happened?
Pierre.

User avatar
madiazg
Posts: 82
Joined: Wed Jul 18, 2007 8:00 pm
Location: Tenerife - Islas Canarias
Contact:

Post by madiazg » Mon Aug 25, 2008 8:19 pm

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/

Post Reply