Add XMP Metadata to a JPG Image File

Delphi example program to embed XMP metadata into a JPEG image file.

procedure TForm1.Button3Click(Sender: TObject);
var
  success : Integer;
  numXmp: Integer;
  xml: IChilkatXml;
begin
      ChilkatXmp1.UnlockComponent('Anything for 30-day trial');

      // Load a JPEG image file (which has no embedded XMP metadata yet).
      success := ChilkatXmp1.LoadAppFile('cheese32.jpg');
      if (success = 0) then
        begin
            ChilkatXmp1.SaveLastError('lastError.txt');
            ShowMessage(ChilkatXmp1.LastErrorText);
        end;

      // How many XMP metadata docs are embedded in this image file?
      numXmp := ChilkatXmp1.NumEmbedded;

      if (numXmp = 0) then
        begin
            // Create a new XMP document
            // (XML Reference: http://www.chilkatsoft.com/refdoc/xChilkatXmlRef.html)
            xml := ChilkatXmp1.NewXmp();

            // Add some simple properties:
            ChilkatXmp1.AddSimpleStr(xml,'exif:PixelXDimension','240');
            ChilkatXmp1.AddSimpleStr(xml,'exif:PixelYDimension','240');

            // Append the XMP to the JPG.
            ChilkatXmp1.Append(xml);
            
            // Save the JPG with embedded XMP metadata
            ChilkatXmp1.SaveAppFile('out.jpg');
        end;
end;