Bonjour,
Je dispose d'images TIFF contenant des méta-données EXIF qui sont affichées par certains logiciels (par exemple Photoshop). Cependant, lorsque je les énumère avec le Framework 4.0, je n'en trouve
qu'un sous ensemble !
En particulier, Photoshop affiche la longueur focale de l'appareil de prise de vue dont
le tag EXIF est 920A en hexa (37386 en décimal) alors que ce tag n'est pas présent dans l'image !!
Ci-dessous le programme d'énumération des EXIF que j'ai utilisé (rtb
est une RichTextBox placée sur Form1).
Auriez-vous une idée du problème ? Je tiens une telle image à votre disposition.
Merci de votre aide.
Cordialement
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'Create an Image object.
Dim path As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) + "\" + "IMG_8233PhShop_180ppi" + "\"
Dim image As Bitmap = New Bitmap(path + "IMG_8233PhShop_180ppi.tif")
'Get the PropertyItems property from image.
Dim propItems As PropertyItem() = image.PropertyItems
'For each PropertyItem in the array, display the ID, type, and length.
Dim count As Integer = 0
Dim propItem As PropertyItem
For Each propItem In propItems
rtb.Text += "Property Item " & count.ToString()
rtb.Text += " ; iD: 0x" & propItem.Id.ToString("x")
rtb.Text += " ; type: " & propItem.Type.ToString()
rtb.Text += " ; length: " & propItem.Len.ToString() & " bytes"
rtb.Text += vbCr
count += 1
Next propItem
'Convert the value of the second property to a string, and display it.
Dim encoding As New System.Text.ASCIIEncoding()
Dim manufacturer As String = encoding.GetString(propItems(1).Value)
rtb.Text += "The equipment make is " & manufacturer & "."
End Sub
Alain
