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