Add XMP Metadata to JPEG

Download Chilkat XML ActiveX

VB6 code showing how to add XMP metadata to a JPG that does not already contain embedded XMP metadata.

    ' 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
    
    ' Create a new XML document that looks like this:
    '
    ' <x:xmpmeta xmlns:x="adobe:ns:meta/">
    ' <rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#">
    ' </rdf:RDF>
    ' </x:xmpmeta>
    Dim xml As ChilkatXml
    Set xml = xmp.NewXmp()

    ' Add a simple property in the "photoshop" schema.
    xmp.AddSimpleStr xml, "photoshop:Headline", "This is the new headline"
    
    ' Load a JPG file without any embedded XMP info.
    success = xmp.LoadAppFile("cheese32.jpg")
     If (success = 0) Then
        MsgBox xmp.LastErrorText
        Exit Sub
    End If
   
    ' Add the XML to the XMP.
    xmp.Append xml
    
    ' Save the JPG, which now contains the XMP metadata.
    xmp.SaveAppFile "cheeseXmp.jpg"