Load JPG, Extract XMP and Save as XML

Download Chilkat XML ActiveX

Loads a JPG with XMP metadata and extracts the 1st XMP document and saves it to a .xml file.

Private Sub Command1_Click()
    ' Add references to these ActiveX components in your VB6 project:
    ' Chilkat XML
    ' Chilkat XMP
    ' The ChilkatXmpDude1.jpg test JPG can be downloaded from
    ' http://www.chilkatsoft.com/testData/ChilkatXmpDude1.jpg

    ' 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("chilkatXmpDude1.jpg")
     If (success = 0) Then
        MsgBox xmp.LastErrorText
        Exit Sub
    End If
   
    ' Show how many XMP documents are embedded within this JPG
    MsgBox "Number of embedded XMP docs = " + Str(xmp.NumEmbedded)
   
    ' Get the 1st embedded XMP
    ' The sample JPG has only 1 embedded XMP anyway...
    Dim xml As ChilkatXml
    Set xml = xmp.GetEmbedded(0)
    If Not (xml Is Nothing) Then
        ' Save the XML to a file.
        xml.SaveXml "xmpDoc.xml"
    Else
        MsgBox xmp.LastErrorText
    End If
   
End Sub