B4X

Update a String Property in XMP

See more XMP Examples

Demonstrates how to open a JPG or TIF image file, access the XMP metadata, and update the value of a string property. (If the string property does not already exist, it is created.) B4X

Dim success As Boolean = False

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

Dim xmp As ChilkatXmp
xmp.Initialize

'  Load a JPG or TIF image file.
success = xmp.LoadAppFile("qa_data/xmp/AJ_123642_1511.tif")
If success <> True Then
    Log(xmp.LastErrorText)
    Return
End If


Log("Num embedded XMP docs: " & xmp.NumEmbedded)

'  This example assumes that XMP metadata is already present in the image file.
If xmp.NumEmbedded = 0 Then
    Log("No XMP metadata already exists..")
    Return
End If


'  Get the XMP metadata.
Dim xml As ChilkatXml
xml = xmp.GetEmbedded(0)

'  Show the XML:
Log(xml.GetXml)

'  Update (overwrite) a string property.
xmp.AddSimpleStr(xml, "NumberofTimes", "123")

success = xmp.SaveAppFile("qa_output/updated.tif")
If success <> True Then
    Log(xmp.LastErrorText)
    Return
End If


Log("Success.")