Extracting XMP Metadata of an image to a XML File

[Loïc]

Here a quick sample to extract XMP Metadata of an image to a file.
In future version of GdPicture.NET we will include an XMP annotation parser.

Code: Select all

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Imaging1 As New GdPicture.GdPictureImaging
        Call Imaging1.SetLicenseNumber("XXX") 'Please, replace XXXX by a valid demo or commercial license key.
        'Go to http://evaluation-gdpicture.com to get a 1 month trial key unlocking all features of the toolkit.

        Dim ImageID As Integer = Imaging1.CreateGdPictureImageFromFile("c:\test.tif")

        For i As Integer = 1 To Imaging1.TagCount(ImageID)
            If Imaging1.TagGetID(ImageID, i) = Tags.TagXMLPackets Then
                Dim arByte(0) As Byte
                Dim FileNumber As Integer = FreeFile()

                Imaging1.TagGetValueBytes(ImageID, i, arByte)
                FileOpen(FileNumber, "c:\data.xmp", OpenMode.Binary)
                FilePut(FileNumber, arByte)
                FileClose(FileNumber)
            End If
        Next i

        Imaging1.ReleaseGdPictureImage(ImageID)
    End Sub