XnView Software

Hello,
this is the code I use in my program Imagen3D to display data IPTC:


var
NItems : integer;
Iptc : PGFL_IPTC_DATA;
....
begin
...
if gflBitMapHasIPTC(gfl_bmp) = gfl_no_error then
begin
IPTC := gflLoadIPTC(Pchar(FileName));
NItems := IPTC.NumberOfItems;
for i := 0 to NItems-1 do
begin ...

Hi,
I have found a bug in libgfl.pas.

The function: must be replaced by: Best Regards
Miguel Angel

I use GFL for about 2 years
I am an amateur photographer stereo and I'm developing a program called Imagen3D:
http://imagen3d.site88.net
I'll try this new version and I will indicate to you the results of my tests.

Miguel Angel

Hi,

Changed many function parameters to use VAR instead of pointers, where it makes sense

This version has many changes from previous version. Such changes require modifying a lot of code in programs and that is a problem.

Regards...
Miguel Angel

Hi,
you're right. The function gflBitmapSetEXIFValueRationalArray2 is not implemented in version 3.11.
Frankly, my level of programming in Delphi is low, as my English level.
I hope this new version of the interface for delphi.
Thanks and regards ...
Miguel Angel

Hello,
There are some errors in libgfl.pas:


function gflSetColorAt(src: PGFL_BITMAP; x, y: GFL_INT32; var color: TGFL_COLOR): GFL_ERROR; stdcall;
GFL_EXIF_MAIN_IFD = $0002;
GFL_EXIF_IFD_0 = $0001;
function gflBitblt(src: PGFL_BITMAP; rect: PGFL_RECT;dst: PGFL_BITMAP; x_dest, y_dest: GFL_INT32 ...

Hi,
have you been able to find out what the problem?

Miguel Angel
http://imagen3d.site88.net

Hi,
I am using version 3.15 of GFL SDK. If I Load an image and saving it, EXIF data are saved correctly:


gflLibraryInit();
gflGetDefaultLoadParams(mLoadOption);
mLoadOption.Flags := GFL_LOAD_READ_ALL_COMMENT;
mLoadOption.Flags := GFL_LOAD_METADATA;
mError := gflLoadBitmap(Pchar(FileName1 ...

I think it would be an interesting option to prevent degradation of the jpg image when we want to add, for example, the GPS data.

Miguel Angel

Hi,
Is it possible to save the EXIF data of an image without having to load and then save the image? It would be the equivalent instruction "gflSaveIPTC"

Miguel Angel

Thank you very much!
Miguel Angel

Hello Pierre,
I have sent you the file at: <-- removed* -->

The code used is as follows (Delphi):


var
Lat_pq,Long_pq : array[0..5] of integer;
PosicionXgpsRef,PosicionYgpsRef : string;
ppp : integer;
....
begin
....
//GPS
PosicionYgpsRef := 'N';
PosicionXgpsRef := 'W';
Lat_pq[0] := 28 ...

Hi,
you have been able to find out what is wrong?

Miguel Angel

Thank you,
with XnView you can even see the first image and EXIF data.

Miguel Angel

Hi,
In this link there are examples of file in MPO format.
http://88.191.20.67/video/akiba/3dphoto.zip

About MPO format:
http://www.cipa.jp/english/hyoujunka/ki ... -007_E.pdf

Would it be possible to incorporate this format in GFL SDK?

Miguel Angel