Extract XMP from JPG Image File

Delphi example program to extract XMP metadata from a JPEG image file. (Chilkat XMP also supports other image file formats).

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

      // Load a JPEG image file.
      success := ChilkatXmp1.LoadAppFile('AgencyPhotographer-Example.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
              // Get the 1st XMP as a Chilkat XML object (IChilkatXml)
              // See http://www.chilkatsoft.com/refdoc/xChilkatXmlRef.html
              xml := ChilkatXmp1.GetEmbedded(0);

              // Save the XML to a file.
              xml.SaveXml('xmpDoc.xml');
        end;
end;