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.

LOCAL loXmp
LOCAL lnSuccess
LOCAL loXml

loXmp = CreateObject('Chilkat.Xmp')

lnSuccess = loXmp.UnlockComponent("Anything for 30-day trial.")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loXmp.LastErrorText)
    QUIT
ENDIF

*  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.
loXml = loXmp.NewXmp()

*  Add some properties...
lnSuccess = loXmp.AddSimpleStr(loXml,"Iptc4xmpCore:Chilkat","Blah blah")
*  If you wish to view the XML, save it to a file and review it
*  with a text editor:
lnSuccess = loXml.SaveXml("newXmp.xml")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loXml.LastErrorText)
    QUIT
ENDIF

*  To add the XMP to the JPG (or TIFF), simply load the JPG,
*  append the XMP, and save:
lnSuccess = loXmp.LoadAppFile("scream.jpg")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loXmp.LastErrorText)
    QUIT
ENDIF

lnSuccess = loXmp.Append(loXml)
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loXmp.LastErrorText)
    QUIT
ENDIF

lnSuccess = loXmp.SaveAppFile("screamOut.jpg")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loXmp.LastErrorText)
    QUIT
ENDIF