Discussion :

[jerem7w]

Bonjour,

avec l'aide de divers forums mais aussi des précieuses informations glanées auprès de vous, je parviens à récupérer les données EXIF de fichiers .JPG, et notamment la date/heure de prise de vue.
Oui, mais cela me semble long. 16 secondes pour 50 images... c'est pas top comme performance. J'aperçois d'ailleurs la barre de défilement vertical de ma listview qui apparaît progressivement. Je precise que quand il s'agit de 50 fichiers non .JPG, la durée est quasi instantanée.

Pourriez vous me dire si qque chose cloche dans mon code ? Merci. Jeremy

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
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        ListV1_initialize()
 
        Dim folderbrowser As New FolderBrowserDialog
 
        If folderbrowser.ShowDialog = Windows.Forms.DialogResult.OK Then
 
 
            folder = New System.IO.DirectoryInfo(folderbrowser.SelectedPath)
            Dim folderFi As IO.FileInfo() = folder.GetFiles("*.*")
            Dim Fi As IO.FileInfo
 
            Dim FiNom As String
            Dim arr(5) As String
            Dim itm As ListViewItem
 
            Dim img As Image
            Dim prop As PropertyItem
            Dim sDate As String
            Dim dateTimeOriginal As DateTime
            Dim tps1 As DateTime
            Dim tps2 As DateTime
 
            For Each Fi In folderFi
 
                FiNom = Fi.FullName
                arr(0) = Fi.Name
                arr(1) = Math.Round((Fi.Length) / 1024, 0)
                arr(1) = Format(Int(arr(1)), "# ### ###") & " Ko"
                arr(2) = Fi.Extension
                arr(3) = (Fi.CreationTime)
 
                'si le fichier est une image, je lis son EXIF, sinon je sors.
                If Fi.Extension = ".JPG" Then
 
 
                    Dim fs As New System.IO.FileStream(FiNom, FileMode.Open)
                    img = Image.FromStream(fs)
                    fs.Close()
 
                    'utilisation de system.drawing.imaging 
                    img = Image.FromFile(FiNom) 'recupere le chemin complet de l'image pour la date_prise_de_vue 
                    prop = img.GetPropertyItem(&H9003)
                    sDate = Encoding.ASCII.GetString(prop.Value, 0, prop.Len).TrimEnd(Chr(0))
                    dateTimeOriginal = DateTime.ParseExact(sDate, "yyyy:MM:dd HH:mm:ss", Nothing)
                    arr(4) = dateTimeOriginal
                    img.Dispose()
 
 
                Else
 
                    arr(4) = "not a pic" 'quand ce n'est pas un fichier JPG, je ne cherche pas l'EXIF.
 
                End If
 
                itm = New ListViewItem(arr)
                ListV1.Items.Add(itm)
                ' msg pour visualiser où ca plante     MsgBox(arr(0))
 
 
            Next
 
        End If
 
    End Sub

[GuruuMeditation]

Interessant....ce serait parce que le JPG est plus long à décoder?
Tu as essayé avec un profileur ou il passe tout ce temps supplémentaire? Dans le Image.FromStream j suppose

[jerem7w]

non, je n'ai pas essayé avec un profileur, je ne sais pas ce que c'est
toutefois, j'ai mesuré cela avec DateInterVal.second pour arriver à 16.
je dois maintenant mesurer à la millisecondes pour avoir une idée plus précise.

je vous tiens au courant

[rv26t]

Bopnjour,

toutefois, j'ai mesuré cela avec DateInterVal.second pour arriver à 16.
je dois maintenant mesurer à la millisecondes pour avoir une idée plus précise.

Pour mesurer le temps de ton traitement, tu peux utiliser la classe Stopwatch, un exemple est fourni.

[jerem7w]

voilà, j'ai mesuré le temps de traitement de ma boucle dans la condition IF : environ 15s pour 50 images.
Lorsque je prends la mesure à l'extérieur du IF, j'ai sensiblement la même chose.
Donc en gros, pour récupérer l'information date prise de vue, le traitement dure 300ms par image.

Par comparaison, pour un dossier de 36 fichiers videos, la durée de traitement est de 00 seconde 010 ms, soit 0,3ms ! C'est 1000 fois plus rapide !?

Il va me falloir trouver comment accélerer cela.

Jeremy

[jerem7w]

Bonjour,

j'ai effectué quelques mesures plus précises. Pour 50 images jpg, ma boucle if dure 15,265 secondes, dont 7,389 pour le flux et 7,542 pour l'image

dans le Flux, c'est ça qui dure 7,4 secondes : img = Image.FromStream(fs)
ensuite, pour récupérer les propriétés de l'image, c'est ça qui dure 7,5 s : img = Image.FromFile(FiNom)

-> donc la classe Image de System.Imaging semble lourde en terme de performances.
Cela vous semble-t-il logique ?

voici la boucle if

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 If Fi.Extension = ".JPG" Then
 
 
                    Dim fs As New System.IO.FileStream(FiNom, FileMode.Open)
                    img = Image.FromStream(fs)
                    fs.Close()
 
                    'utilisation de system.drawing.imaging 
                    img = Image.FromFile(FiNom) 'recupere le chemin complet de l'image pour la date_prise_de_vue 
                    prop = img.GetPropertyItem(&H9003)
                    sDate = Encoding.ASCII.GetString(prop.Value, 0, prop.Len).TrimEnd(Chr(0))
                    dateTimeOriginal = DateTime.ParseExact(sDate, "yyyy:MM:dd HH:mm:ss", Nothing)
                    arr(4) = dateTimeOriginal
                    img.Dispose()

[Rainui]

Bonjour,
Juste une question bête :
La date de prise de vue ne serait elle pas la même que la date de création du fichier image?

Si ça se vérifie, il est peut être plus rapide de passer par un System.IO.FileInfo...

[wallace1]

Bonjour,
Juste une question bête :
La date de prise de vue ne serait elle pas la même que la date de création du fichier image?

Si ça se vérifie, il est peut être plus rapide de passer par un System.IO.FileInfo...

Effectivement il serait judicieux de vérifier cela.

Je rajoute que ceci ne détermine en rien que ton fichier est un fichier Jpg !!! :

Code :

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

1
2
3
4
5
 
      'si le fichier est une image, je lis son EXIF, sinon je sors.
                If Fi.Extension = ".JPG" Then
'...
'......

par exempe : si le fichier est un fichier .png dont l'extension a été renommée en .jpg tu risques de rencontrer une exception !

Je t'ai donné la solution ici pour palier à cela :

http://www.developpez.net/forums/d14...n/#post7853112

A+

[jerem7w]

bonjour,

La date de création des photos prises avec mon appareil est la date ou j'ai copié les photos sur mon PC, d'où la différence avec la date de prise de vue.

wallace1 : merci pour ta remarque et solution, je comptais m'y attaquer très prochainement.

[jerem7w]

Bonsoir,

je remonte ce topic pour vous dire que j'ai trouvé la solution à mon problème. Comme décrit plus tôt, je bouclais sur tout une serie d'image via un flux FromStream afin de récupérer certaines info EXIF de mes images jpeg (ou autres).

Cela prenait un temps déraisonnable avec ce code-ci :

Code :

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

1
2
3
Dim fs As New System.IO.FileStream(FiNom, FileMode.Open)
                    img = Image.FromStream(fs)
                    fs.Close()

566 images (2,6Go) parcourues par le flux en 166 secondes, soit 3 images par secondes.

En utilisant la même méthode sensiblement différemment, le traitement est 80 fois plus rapide.

Code :

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

1
2
3
Dim fs As New System.IO.FileStream(FiNom, FileMode.Open)
                    img = Image.FromStream(fs,false,false)
                    fs.Close()

La méthode ci-dessus épargne à mon application de la lecture d'info inutile -> 566 images en...2,3 secondes ! 250 images secondes !

Pour ceux que cela intéresse : http://msdn.microsoft.com/fr-fr/libr...vs.110%29.aspx

Merci à vous.