Add String Property that is the First in a New Schema

Download Chilkat XML ActiveX

Load JPG, access XMP metadata, and add a new property that is the first in a schema.

' Add a property to a JPG that causes a new rdf:Description node
' to be created in the embedded XMP.
Private Sub Command4_Click()

    ' Create an instance of the XMP ActiveX and unlock it.
    Dim xmp As New ChilkatXmp
    success = xmp.UnlockComponent("anything for 30 day trial")
    If (success = 0) Then
        MsgBox "Failed to unlock"
        Exit Sub
    End If
    
    ' Load a JPG file.
    success = xmp.LoadAppFile("BlueSquare57.jpg")
     If (success = 0) Then
        MsgBox xmp.LastErrorText
        Exit Sub
    End If

    ' Get the 1st XMP doc as XML.
    Dim xml As ChilkatXml
    Set xml = xmp.GetEmbedded(0)

    ' Add an IPTC Core property.
    ' There are no existing IPTC core properties in the BlueSquare57.jpg,
    ' so adding this property causes a new rdf:Description node to be added,
    ' with the Iptc4xmpCore:CountryCode added as the 1st and only child.
    xmp.AddSimpleStr xml, "Iptc4xmpCore:CountryCode", "US"
    
    xmp.SaveAppFile "out.jpg"