Fetch Simple EXIF Integer Properties

Download Chilkat XML ActiveX

Load JPG, access XMP metadata, and fetch some simple EXIF integer properties.

    ' Visual Basic Example to load a JPG and fetch some core EXIF integer properties.
    
    ' Add references to these ActiveX components in your VB6 project:
    ' Chilkat XML
    ' Chilkat XMP
    ' The AgencyPhotographer-Example.jpg test JPG can be downloaded from
    ' http://www.chilkatsoft.com/testData/AgencyPhotographer-Example.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("AgencyPhotographer-Example.jpg")
     If (success = 0) Then
        MsgBox xmp.LastErrorText
        Exit Sub
    End If
   
   ' Get the 1st (and only) XMP in this JPG.
    Dim xml As ChilkatXml
    Set xml = xmp.GetEmbedded(0)
    If (xml Is Nothing) Then
        MsgBox xmp.LastErrorText
        Exit Sub
    End If
        
    List1.AddItem Str(xmp.GetSimpleInt(xml, "exif:PixelXDimension"))
    List1.AddItem Str(xmp.GetSimpleInt(xml, "exif:PixelYDimension"))