Visual FoxPro

Add XMP MetaData to JPG or TIFF

See more XMP Examples

Demonstrates how to add XMP metadata to a JPG or TIFF image that doesn't already have XMP metadata. Visual FoxPro

LOCAL lnSuccess
LOCAL loXmp
LOCAL loXml

lnSuccess = 0

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

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