(Tcl) 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 Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set xmp [new_CkXmp]

# xml is a CkXml

# 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.  
set xml [CkXmp_NewXmp $xmp]

# Add some properties...
set success [CkXmp_AddSimpleStr $xmp $xml "Iptc4xmpCore:Chilkat" "Blah blah"]
# If you wish to view the XML, save it to a file and review it
# with a text editor:
set success [CkXml_SaveXml $xml "newXmp.xml"]
if {$success != 1} then {
    puts [CkXml_lastErrorText $xml]
    delete_CkXmp $xmp
    exit
}

# To add the XMP to the JPG (or TIFF), simply load the JPG,
# append the XMP, and save:
set success [CkXmp_LoadAppFile $xmp "scream.jpg"]
if {$success != 1} then {
    puts [CkXmp_lastErrorText $xmp]
    delete_CkXmp $xmp
    exit
}

set success [CkXmp_Append $xmp $xml]
if {$success != 1} then {
    puts [CkXmp_lastErrorText $xmp]
    delete_CkXmp $xmp
    exit
}

set success [CkXmp_SaveAppFile $xmp "screamOut.jpg"]
if {$success != 1} then {
    puts [CkXmp_lastErrorText $xmp]
    delete_CkXmp $xmp
    exit
}


delete_CkXmp $xmp