Page 1 of 1
Save EXIF
Posted: Fri Aug 15, 2008 2:15 pm
by 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
Re: Save EXIF
Posted: Fri Aug 15, 2008 4:02 pm
by xnview
Your picture before the save has EXIF?
Posted: Sun Aug 17, 2008 3:58 pm
by madiazg
Yes,
the original image has EXIF data.
Miguel Angel
Posted: Wed Aug 20, 2008 5:20 pm
by 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,
Posted: Mon Aug 25, 2008 8:16 am
by xnview
gflBitmapGetEXIF2 is undefined?
Posted: Mon Aug 25, 2008 5:50 pm
by madiazg
I have defined as:
Rgds,
Miguel Angel
Posted: Mon Aug 25, 2008 7:06 pm
by xnview
But what's happened?
Posted: Mon Aug 25, 2008 8:19 pm
by 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/