(Delphi DLL) Add XMP MetaData to JPG or TIFF

Demonstrates how to add XMP metadata to a JPG or TIFF image that doesn't already have XMP metadata.

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Xmp, Xml;

...

procedure TForm1.Button1Click(Sender: TObject);
var
xmp: HCkXmp;
xml: HCkXml;
success: Boolean;

begin
// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

xmp := CkXmp_Create();

// The first step is to create a new XMP document, which is nothing
// more than XML.  The NewXmp method returns an XML document with
// the standard XMP boilerplate.  
xml := CkXmp_NewXmp(xmp);

// Add some properties...
success := CkXmp_AddSimpleStr(xmp,xml,'Iptc4xmpCore:Chilkat','Blah blah');
// If you wish to view the XML, save it to a file and review it
// with a text editor:
success := CkXml_SaveXml(xml,'newXmp.xml');
if (success <> True) then
  begin
    Memo1.Lines.Add(CkXml__lastErrorText(xml));
    Exit;
  end;

// To add the XMP to the JPG (or TIFF), simply load the JPG,
// append the XMP, and save:
success := CkXmp_LoadAppFile(xmp,'scream.jpg');
if (success <> True) then
  begin
    Memo1.Lines.Add(CkXmp__lastErrorText(xmp));
    Exit;
  end;
success := CkXmp_Append(xmp,xml);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkXmp__lastErrorText(xmp));
    Exit;
  end;
success := CkXmp_SaveAppFile(xmp,'screamOut.jpg');
if (success <> True) then
  begin
    Memo1.Lines.Add(CkXmp__lastErrorText(xmp));
    Exit;
  end;

CkXmp_Dispose(xmp);

end;