Extract XMP MetaData as XML

Demonstrates how to open a JPG or TIF image file and extract the XMP metadata as XML.

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATXMLLib_TLB,
    CHILKATXMPLib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
xmp: TChilkatXmp;
success: Integer;
xml: CHILKATXMLLib_TLB.IChilkatXml;

begin
xmp := TChilkatXmp.Create(Self);

success := xmp.UnlockComponent('Anything for 30-day trial.');
if (success <> 1) then
  begin
    ShowMessage(xmp.LastErrorText);
    Exit;
  end;

//  Load a JPG or TIF image file.
//  Sample JPG's with XMP metadata may be found at:
//  http://www.chilkatsoft.com/testData/xmp/sample1.jpg
//  http://www.chilkatsoft.com/testData/xmp/sample2.jpg
//  http://www.chilkatsoft.com/testData/xmp/sample3.jpg
success := xmp.LoadAppFile('sample1.jpg');
if (success <> 1) then
  begin
    ShowMessage(xmp.LastErrorText);
    Exit;
  end;

Memo1.Lines.Add('Num embedded XMP docs: ' + IntToStr(xmp.NumEmbedded));

//  Assuming there is at least one, get the 1st.
//  (There is typically never more than one, but theoretically it's possible.)

xml := xmp.GetEmbedded(0);
if (not (xml = nil )) then
  begin
    success := xml.SaveXml('xmpMetaData.xml');
    if (success <> 1) then
      begin
        ShowMessage(xml.LastErrorText);
      end;

    ShowMessage('Success.');

  end
else
  begin
    ShowMessage(xmp.LastErrorText);
  end;
end;