Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Lire la date du cliché pour les fichiers de type photo numérique ?

Lire la date du cliché pour les fichiers de type photo numérique ?

8 réponses
Avatar
Fred Godefroidt
Bonjour,

En VB6, comment lire la propriété "Date du cliché" d'un ficheir *.JPG
correspondant à une photo numérique ?

Merci d'avance
FG
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Fred Godefroidt
c'est un attribut spécifique ?

"Fred Godefroidt" a écrit dans le message de news:
42b9623a$0$13494$
Bonjour,

En VB6, comment lire la propriété "Date du cliché" d'un ficheir *.JPG
correspondant à une photo numérique ?

Merci d'avance
FG



Avatar
Fred
Dans le message:42b97823$0$14866$,
Fred Godefroidt écrit:
c'est un attribut spécifique ?

"Fred Godefroidt" a écrit dans le message
de news: 42b9623a$0$13494$
Bonjour,

En VB6, comment lire la propriété "Date du cliché" d'un ficheir *.JPG
correspondant à une photo numérique ?

Merci d'avance
FG





Bonjour,
J'ai fait cela en vbs en passant par WIA automation, mais ce composant
n'est disponible que sur XP SP1 minimum.
Peut-être une recherche sur des API WIA ?

--
Fred
Avatar
Jacques93
Fred Godefroidt,
Fred Godefroidt a écrit :
c'est un attribut spécifique ?

"Fred Godefroidt" a écrit dans le message de news:
42b9623a$0$13494$

Bonjour,

En VB6, comment lire la propriété "Date du cliché" d'un ficheir *.JPG
correspondant à une photo numérique ?

Merci d'avance
FG






Tu peux jeter un oeil sur les meta-data et les tags stockés dans un JPG.
Une piste :

http://graphicssoft.about.com/gi/dynamic/offsite.htm?zi=1/XJ&sdn=graphicssoft&zu=http%3A%2F%2Fwww.exif.org%2F

Bonne lecture.

--
Cordialement,

Jacques.
Avatar
Jacques93
Bonjour Fred Godefroidt,
Fred Godefroidt a écrit :
c'est un attribut spécifique ?

"Fred Godefroidt" a écrit dans le message de news:
42b9623a$0$13494$

Bonjour,

En VB6, comment lire la propriété "Date du cliché" d'un ficheir *.JPG
correspondant à une photo numérique ?

Merci d'avance
FG







Pour compléter la réponse de Fred, si tu as XP SP1 minimum, c'est ici :
http://www.microsoft.com/downloads/details.aspx?FamilyID£32a77a-01b8-4de6-91c2-b7ea32537e29&DisplayLang=en

--
Cordialement,

Jacques.
Avatar
pas-de-spam>Wanadoo.fr
Fred Godefroidt a écrit :
c'est un attribut spécifique ?

"Fred Godefroidt" a écrit dans le message de news:
42b9623a$0$13494$

Bonjour,

En VB6, comment lire la propriété "Date du cliché" d'un ficheir *.JPG
correspondant à une photo numérique ?

Merci d'avance
FG










Salut,

Tu peux aussi fouiller là

http://edais.mvps.org/

Christophe
Avatar
Michel
Fred Godefroidt a écrit :
Bonjour,

En VB6, comment lire la propriété "Date du cliché" d'un ficheir *.JPG
correspondant à une photo numérique ?

Merci d'avance
FG




Fais une recherche google sur EXIF FILE VB
tu trouveras certainement ton bonheur en fignolant.
Attention ce n'est pas ce n'est pas du facile facile
De meme fais un tour sur PSC avce EXIF FILE
Avatar
Daniel AUBRY
Salut,

je te livre ce que j'utilise depuis quelques temps.
Ce n'est pas de moi, c'est un petit bout de code trouvé sur le net.

Sub RecupDate()

LongueurImage = FileLen(FichierSource.Path & "" & FichierSource.FileName)
If LongueurImage > 850 Then LongueurImage = 850
'attention cette valeur dépend de l'appareil photo
'chargemement de l'image en binaire

Open FichierSource.Path & "" & FichierSource.FileName For Binary As #1

For i = 1 To LongueurImage
Inbi = 0
Get #1, i, Inbi
Memoire = Memoire & Chr(CStr(Inbi))
Next i
Close #1

'recherche date création
Position = InStr(Memoire, ":")

'on recherche le caractère : qui est inclus dans la date
If Position = 0 Then
Exit Sub
End If

DateCreation = Mid(Memoire, Position - 4, 19)
AnneeCreation = Left(DateCreation, 4)

If IsNumeric(AnneeCreation) = False Then
Exit Sub
End If

MoisCreation = Mid(DateCreation, 6, 2)

If Val(MoisCreation) < 1 Or Val(MoisCreation) > 12 Then
Exit Sub
End If

JourCreation = Mid$(DateCreation, 9, 2)

DatePhoto = JourCreation & "/" & MoisCreation & "/" & AnneeCreation

End Sub

Dany,

"Fred Godefroidt" a écrit dans le message de news:
42b9623a$0$13494$
Bonjour,

En VB6, comment lire la propriété "Date du cliché" d'un ficheir *.JPG
correspondant à une photo numérique ?

Merci d'avance
FG



Avatar
Clive
Essayer le wrapper GDI+ de vbAccelerator
Demo de lecture de données EXIF ici
http://www.vbaccelerator.com/home/VB/Code/vbMedia/Using_GDI_Plus/Reading_EX IF_and_Other_Image_Properties/article.asp


Clive