(PowerBuilder) 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

integer li_rc
oleobject loo_Xmp
oleobject loo_Xml
integer li_Success

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

loo_Xmp = create oleobject
// Use "Chilkat_9_5_0.Xmp" for versions of Chilkat < 10.0.0
li_rc = loo_Xmp.ConnectToNewObject("Chilkat.Xmp")
if li_rc < 0 then
    destroy loo_Xmp
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// 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.  
loo_Xml = loo_Xmp.NewXmp()

// Add some properties...
li_Success = loo_Xmp.AddSimpleStr(loo_Xml,"Iptc4xmpCore:Chilkat","Blah blah")
// If you wish to view the XML, save it to a file and review it
// with a text editor:
li_Success = loo_Xml.SaveXml("newXmp.xml")
if li_Success <> 1 then
    Write-Debug loo_Xml.LastErrorText
    destroy loo_Xmp
    return
end if

// To add the XMP to the JPG (or TIFF), simply load the JPG,
// append the XMP, and save:
li_Success = loo_Xmp.LoadAppFile("scream.jpg")
if li_Success <> 1 then
    Write-Debug loo_Xmp.LastErrorText
    destroy loo_Xmp
    return
end if

li_Success = loo_Xmp.Append(loo_Xml)
if li_Success <> 1 then
    Write-Debug loo_Xmp.LastErrorText
    destroy loo_Xmp
    return
end if

li_Success = loo_Xmp.SaveAppFile("screamOut.jpg")
if li_Success <> 1 then
    Write-Debug loo_Xmp.LastErrorText
    destroy loo_Xmp
    return
end if



destroy loo_Xmp