(PowerBuilder) Get a String Property Value from XMP

Demonstrates how to open a JPG or TIF image file, access the XMP metadata, and fetch the value of a string property, such as the Location.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Xmp
integer li_Success
oleobject loo_Xml
string ls_PropVal

// This requires 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

// Load a JPG or TIF image file.
// Sample JPG's with XMP metadata may be found at:
// http://www.chilkatsoft.com/testData/xmp/sample1.jpg
// http://www.chilkatsoft.com/testData/xmp/sample2.jpg
// http://www.chilkatsoft.com/testData/xmp/sample3.jpg
li_Success = loo_Xmp.LoadAppFile("sample1.jpg")
if li_Success <> 1 then
    Write-Debug loo_Xmp.LastErrorText
    destroy loo_Xmp
    return
end if

Write-Debug "Num embedded XMP docs: " + string(loo_Xmp.NumEmbedded)

// Assuming there is at least one, get the 1st.
// (There is typically never more than one, but theoretically it's possible.)

loo_Xml = loo_Xmp.GetEmbedded(0)
if loo_Xmp.LastMethodSuccess = 1 then

    ls_PropVal = loo_Xmp.GetSimpleStr(loo_Xml,"Iptc4xmpCore:Location")
    if loo_Xmp.LastMethodSuccess <> 1 then
        Write-Debug "Not found."
    else
        Write-Debug ls_PropVal
    end if

    destroy loo_Xml

else
    Write-Debug loo_Xmp.LastErrorText
end if



destroy loo_Xmp