Discussion :

[Pyrof]

Bonjour,
Je suis débutant en VB et je souhaiterai pouvoir récupérer les valeurs Exif d'un fichier JPG (photo), et de créer un écran de visualisation de ces données. Pour la partie écran, je n'ai pas de problème. Pour les Exifs j'ai déjà récupérer des choses mais les résultats ne sont pas correctes, du style le temps de pose ne peut dépasser 1 seconde. Quelqu'un aurait-il travailler sur ce sujet.
Merci

[popo]

Un peu de doc :
https://learn.microsoft.com/en-us/do...image-metadata

Sinon, il existe ce NuGet :
https://www.nuget.org/packages/groupdocs.metadata

Et cette doc :
https://blog.groupdocs.com/fr/metada...f-webp-images/

[Pyrof]

Merci de votre aide. Je suis débutant de chez débutant, je ne connais que le langage VB (débutant) et l'anglais est un peu difficile.
Je suis conscient que tout ça n'aide pas. Tous les infos que je trouve sont en C#. C'est pas grave je vais persévérer
Merci

[m4k-Hurrican]

Il existe des convertisseurs en ligne de code VB.net vers C# et inversement.
Par exemple :
https://converter.telerik.com/
https://www.codeconvert.ai/csharp-to-vb.net-converter
ou
https://icsharpcode.github.io/CodeConverter/

[popo]

Merci de votre aide. Je suis débutant de chez débutant, je ne connais que le langage VB (débutant) et l'anglais est un peu difficile.
Je suis conscient que tout ça n'aide pas. Tous les infos que je trouve sont en C#. C'est pas grave je vais persévérer
Merci

VB.Net et C#, c'est uniquement une question de syntaxe.
Cela reste du .Net.

Le NuGet est donc également disponible sur un projet écrit en VB.Net.

Pour la syntaxe, il n'y a franchement rien d'insurmontable.
Et il existe des convertisseurs comme ceux proposés par m4k-Hurrican.

[excalybur]

Bonjour

Il y a quelque temps j'ai eu le mêm problème pour identifier les exifs de jpeg, bmp et raw (divers formats!) . Je te met le code complet d'une function que tu peu adapter à tes besoin :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
Imports System.Drawing
Imports System.Drawing.Imaging
Imports System.Text
Imports MetadataExtractor
Imports MetadataExtractor.Formats.Exif
Imports System.Diagnostics
 
''' <summary>
''' Lit les métadonnées EXIF d'un fichier image (JPEG, RAW, BMP).
''' Retourne un dictionnaire (nom de tag -> valeur).
''' </summary>
Public Function ReadExif(path As String) As Dictionary(Of String, String)
    Dim result As New Dictionary(Of String, String)(StringComparer.OrdinalIgnoreCase)
 
    ' 1) Essayer d'abord MetadataExtractor (meilleur support pour RAW & divers formats)
    Try
        Dim directories = ImageMetadataReader.ReadMetadata(path)
        For Each dir In directories
            For Each tag In dir.Tags
                Dim key = $"{dir.Name} - {tag.Name}"
                If Not result.ContainsKey(key) Then
                    result(key) = If(tag.Description, String.Empty)
                End If
            Next
            ' Enregistrer les erreurs non bloquantes rencontrées lors de l'analyse
            For Each err In dir.Errors
                Dim k = $"{dir.Name} - Error"
                result(k) = err
            Next
        Next
        If result.Count > 0 Then
            Return result
        End If
    Catch ex As Exception
        ' Ignorer les erreurs et tenter le fallback
        Debug.WriteLine($"MetadataExtractor échoué pour '{path}': {ex.Message}")
    End Try
 
    ' 2) Fallback pour JPEG/BMP via System.Drawing (lit les PropertyItems disponibles)
    Try
        Using img = Image.FromFile(path)
            For Each p As PropertyItem In img.PropertyItems
                Dim name = ExifTagName(p.Id)
                Dim value = PropertyItemToString(p)
                If Not result.ContainsKey(name) Then
                    result(name) = value
                End If
            Next
        End Using
    Catch ex As Exception
        ' Si tout échoue, retourner l'erreur en entrée du dictionnaire
        result("Error") = ex.Message
    End Try
 
    Return result
End Function
 
' Retourne un nom lisible pour quelques tags EXIF courants (ajouter si nécessaire)
Private Function ExifTagName(id As Integer) As String
    Select Case id
        Case &H010F : Return "Make"
        Case &H0110 : Return "Model"
        Case &H0132 : Return "DateTime"
        Case &H9003 : Return "DateTimeOriginal"
        Case &H829A : Return "ExposureTime"
        Case &H829D : Return "FNumber"
        Case &H8827 : Return "ISOSpeedRatings"
        Case &H9209 : Return "Flash"
        Case &H920A : Return "FocalLength"
        Case &HA002 : Return "PixelXDimension"
        Case &HA003 : Return "PixelYDimension"
        Case Else
            Return $"Tag_0x{id:X4}"
    End Select
End Function
 
' Convertit un PropertyItem en chaîne lisible
Private Function PropertyItemToString(p As PropertyItem) As String
    Try
        Select Case p.Type
            Case 1 ' byte
                If p.Value IsNot Nothing AndAlso p.Value.Length > 0 Then
                    Return p.Value(0).ToString()
                End If
            Case 2 ' ASCII
                Dim s = Encoding.ASCII.GetString(p.Value)
                Return s.Trim(ChrW(0))
            Case 3 ' short (UInt16)
                If p.Value IsNot Nothing AndAlso p.Value.Length >= 2 Then
                    Return BitConverter.ToUInt16(p.Value, 0).ToString()
                End If
            Case 4 ' long (UInt32)
                If p.Value IsNot Nothing AndAlso p.Value.Length >= 4 Then
                    Return BitConverter.ToUInt32(p.Value, 0).ToString()
                End If
            Case 5 ' rational (deux UInt32: num/den)
                If p.Value IsNot Nothing AndAlso p.Value.Length >= 8 Then
                    Dim num = BitConverter.ToUInt32(p.Value, 0)
                    Dim den = BitConverter.ToUInt32(p.Value, 4)
                    If den <> 0 Then
                        Return (num / den).ToString(System.Globalization.CultureInfo.InvariantCulture)
                    End If
                    Return $"{num}/{den}"
                End If
            Case 10 ' signed rational
                If p.Value IsNot Nothing AndAlso p.Value.Length >= 8 Then
                    Dim num = BitConverter.ToInt32(p.Value, 0)
                    Dim den = BitConverter.ToInt32(p.Value, 4)
                    If den <> 0 Then
                        Return (num / den).ToString(System.Globalization.CultureInfo.InvariantCulture)
                    End If
                    Return $"{num}/{den}"
                End If
            Case Else
                If p.Value IsNot Nothing Then
                    Return BitConverter.ToString(p.Value)
                End If
        End Select
    Catch ex As Exception
        Debug.WriteLine($"Erreur conversion PropertyItem: {ex.Message}")
    End Try
    Return String.Empty
End Function

a+

[fred1599]

Hello,

Merci de votre aide. Je suis débutant de chez débutant, je ne connais que le langage VB (débutant) et l'anglais est un peu difficile.

Je pense que vous devriez être plus précis sur le type de réponse que vous attendez des membres qui vous répondent.