gflSaveIPTC
Posted: Thu Dec 02, 2010 1:26 pm
I'm trying to use GFLSDK in Delphi (latest (XE) edition), but gflSaveIPTC returns always with >1< (GFL_ERROR_FILE_OPEN).
Thanks for any help.
Laszlo
Thanks for any help.
Laszlo
Various discussion boards for XnView and related products
https://newsgroup.xnview.com/
Code: Select all
procedure TImageViewForm.Button4Click(Sender: TObject);
var
PIPTC : PGFL_IPTC_DATA;
s : ansistring;
iRet : integer;
begin
PIPTC := gflLoadIPTCW(widestring('c:\a\1.jpg'));
gflSetIPTCValue(PIPTC, GFL_IPTC_CREDITS, 'XXXXXXXXXXXXXXXXX');
iRet := gflSaveIPTCW(widestring('c:\a\1.jpg'), PIPTC);
end;
Code: Select all
var
IptcData : PGFL_IPTC_DATA;
FileNameA : string;
begin
....
FilenameA := OpenDialog1.Filename;
IptcData := gflLoadIPTC(Pchar(FileNameA));
...
gflSetIptcValue(IptcData,GFL_IPTC_OBJECTNAME,Pchar(FormIPTC.Edit1.Text));
....
gflSaveIPTC(Pchar(fileNameA),IptcData);