Recuperer la date de prise de vue JPG

Messages postés
78
Date d'inscription
samedi 12 avril 2003
Dernière intervention
19 juillet 2017
- 21 nov. 2016 à 11:36 - Dernière réponse :
Messages postés
5528
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
16 novembre 2018
- 23 nov. 2016 à 23:00
Bonjour à tous.

Dans propriété d'une image JPG dans l'onglet détails on peut retrouver la date de « Prise de vue » de cette photo.
Je voudrais savoir quel est l'instruction quipermetsousvb.net de récupérer cette date de création.
D'avance merci de votre aide


--
Afficher la suite 

Votre réponse

5 réponses

Messages postés
5528
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
16 novembre 2018
- 21 nov. 2016 à 11:43
Commenter la réponse de cs_Le Pivert
Messages postés
78
Date d'inscription
samedi 12 avril 2003
Dernière intervention
19 juillet 2017
- 23 nov. 2016 à 11:44
0
Merci
Bonjour le pivert.
Merci de ta réponse cela marche parfaitement j'ai bien récupéré la date de la prise de vue.
Une fois que j'ai récupéré cette date je me dis la date de création du fichier avec cette nouvelle date mais problème au moment d'enregistrer mon fichier JPG j'ai une erreur car le fichier est utilisé par un autre processus et je ne sais pas comment libérer ce fichier.
Quelle instruction ne constitue.

-Je te donne ici le code que j'utilise pour récupérer ma date de prise de:

' on recupere la date de prise de vue
Dim img As Image = Image.FromFile(file)
Dim prop As PropertyItem = img.GetPropertyItem(&H9003)
Dim sDate As String = System.Text.Encoding.ASCII.GetString(prop.Value, 0, prop.Len).TrimEnd(Chr(0))

Bien à toi.
Commenter la réponse de cs_DAN1
Messages postés
5528
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
16 novembre 2018
- 23 nov. 2016 à 12:47
0
Merci
comme ceci:

  Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim fichier As String = "C:\Users\Public\Pictures\Pictures\Année 2003\Créte.jpg" 'adapter chemin
        Dim Repertoire As New System.IO.DirectoryInfo(fichier) 'infos fichier
        MessageBox.Show("Date de création: " & Repertoire.CreationTime.ToString)
        MessageBox.Show("Date du cliché: " & CStr(datecreate(fichier)))
    End Sub
    Public Function datecreate(ByVal Path As String) As Date
        Dim img As Image = Image.FromFile(Path)
        Dim prop As PropertyItem = img.GetPropertyItem(&H9003)
        Dim sDate As String = System.Text.Encoding.ASCII.GetString(prop.Value, 0, prop.Len).TrimEnd(Chr(0))
        Dim dateTimeOriginal As DateTime = DateTime.ParseExact(sDate, "yyyy:MM:dd HH:mm:ss", Nothing)
        Return dateTimeOriginal
    End Function

Commenter la réponse de cs_Le Pivert
Messages postés
78
Date d'inscription
samedi 12 avril 2003
Dernière intervention
19 juillet 2017
- 23 nov. 2016 à 21:05
0
Merci
Bonsoir le pivert et encore merci.
La récupération de la date de prise de vue ne me pose pas de problème là où je suis très ennuyé c'est que je désire modifier les dates de création du fichier et la date de dernière modification du fichier par cette date de prise de vue et lorsque je veux enregistrer le fichier j'ai un message d'erreur qui m'indique grosso modo que le fichier est déjà utilisé par un autre processus.
Aurait une solution ?
A+.
Dan

--
Commenter la réponse de cs_DAN1
Messages postés
5528
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
16 novembre 2018
- 23 nov. 2016 à 23:00
0
Merci
Oui, avec une petite astuce, mettre une autre image à la place au moment de la modification, comme ceci:

 PictureBox1.Image = Nothing
        PictureBox1.Image = My.Resources.essai


ayant mis auparavant une image nommée "essai" dans les Resources

Voilà
Commenter la réponse de cs_Le Pivert

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.