(Visual FoxPro) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loXmp
LOCAL loXml
LOCAL lnSuccess

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Xmp')
loXmp = CreateObject('Chilkat.Xmp')

* 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
    ? loXml.LastErrorText
    RELEASE loXmp
    CANCEL
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
    ? loXmp.LastErrorText
    RELEASE loXmp
    CANCEL
ENDIF

lnSuccess = loXmp.Append(loXml)
IF (lnSuccess <> 1) THEN
    ? loXmp.LastErrorText
    RELEASE loXmp
    CANCEL
ENDIF

lnSuccess = loXmp.SaveAppFile("screamOut.jpg")
IF (lnSuccess <> 1) THEN
    ? loXmp.LastErrorText
    RELEASE loXmp
    CANCEL
ENDIF

RELEASE loXmp