Delphi example to read EXIF and write & read IPTC
Posted: Fri May 14, 2010 12:03 pm
Hi,
I downloaded the example GflSDK.20100320.zip from posting http://newsgroup.xnview.com/viewtopic.p ... phi#p82804 but I get the following errors when compiling it:
libgfl.Load gfl: "..\..\..\libW\libgfl311.dll" failed: 126 (0x0000007E) The specified module could not be found.
libgfl.Load gfle: "..\..\..\libW\libgfle311.dll" failed: 126 (0x0000007E) The specified module could not be found.
My effort follows:
procedure TForm1.btnGetIPTCClick(Sender: TObject);
var
iptc_data: PGFL_IPTC_DATA;
i: Cardinal;
s: string;
begin
iptc_data := gflNewIPTC;
try
gflLoadIPTC('D:\My Documents\Delphi\ScannedMaps\Temp\scalledImage.jpg');
for i := 0 to iptc_data.NumberOfItems -1 do
begin
// What now???
end;
finally
gflFreeIPTC(iptc_data);
end;
end;
I downloaded the example GflSDK.20100320.zip from posting http://newsgroup.xnview.com/viewtopic.p ... phi#p82804 but I get the following errors when compiling it:
libgfl.Load gfl: "..\..\..\libW\libgfl311.dll" failed: 126 (0x0000007E) The specified module could not be found.
libgfl.Load gfle: "..\..\..\libW\libgfle311.dll" failed: 126 (0x0000007E) The specified module could not be found.
My effort follows:
procedure TForm1.btnGetIPTCClick(Sender: TObject);
var
iptc_data: PGFL_IPTC_DATA;
i: Cardinal;
s: string;
begin
iptc_data := gflNewIPTC;
try
gflLoadIPTC('D:\My Documents\Delphi\ScannedMaps\Temp\scalledImage.jpg');
for i := 0 to iptc_data.NumberOfItems -1 do
begin
// What now???
end;
finally
gflFreeIPTC(iptc_data);
end;
end;