半岛外围网上直营

对于提取图片中的XMP元数据，GdPicture.NET 提供了一个简便的方法，可快速实现XMP元数据的提取。

>>GdPicture.NET下载

    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 //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