[VB.NET] aggiungere un metadato ad una immagine jpg

[pietro09]

Ho provato a copiare i metadati da una immagine ad un'altra, modificando il tag 0x131 software.

        For Each p As PropertyItem In bmp.PropertyItems
            If p.Id = &H131 Then
                p.Value = l.StringToBytes("Libreria" & vbNullChar, Encoding.ASCII)
                p.Len = p.Value.Length
                bmp1.SetPropertyItem(p)
            Else
                bmp1.SetPropertyItem(p)
            End If

        Next

Il problema sorge quando l'immagine di partenza non ha metadati.
Questo codice non funziona "classe PropertyItem Friend"

Dim p1 As New System.Drawing.Imaging.PropertyItem()
p1.Id = &H131
p1.Type = 2

Mi date qualche suggerimento?

[U235]

Ciao Pietro,

Dim imm As Image = Image.FromFile(@"C:\miacartella\SenzaTag.jpg")
Dim tag = imm.PropertyItems.FirstOrDefault(Function(w) w.Id = &H131)
If tag Is Nothing Then
    Dim mType = GetType(PropertyItem)
    Dim ctor = mType.GetConstructor(BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.[Public], Nothing, New Type() {}, Nothing)
    tag = DirectCast(ctor.Invoke(Nothing), PropertyItem)
End If
Dim text As String = "Libreria" & Char.MinValue
tag.Id = &H131
tag.Len = text.Length
tag.Type = 2
tag.Value = Encoding.UTF8.GetBytes(text)
imm.SetPropertyItem(tag)
imm.Save("C:\miacartella\conTag.jpg")

[pietro09]

Ti ringrazio. Lo studierò con attenzione.

Ciao