IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Téléchargé 21 fois
Vote des utilisateurs
0 
0 
Détails
Licence : Non renseignée
Mise en ligne le 29 décembre 2011
Plate-forme : Windows
Langue : Français
Référencé dans
Navigation

Extraire les Données Exif des photos

Un module de classe pour lire les données Exif des photos à l'aide de la librairie gdi+ de Microsoft.
Le fichier Excel du Zip contient un formulaire qui affiche une mosaïque de miniatures d'un répertoire. Cela permet de se rendre compte de la rapidité d'extraction des miniatures intégrées. En cliquant sur une miniature on affiche quelques unes de ses données Exif (date cliché, description, modèle d'APN) dans le cadre de droite (la description est modifiable et remplace le nom de fichier dans la mosaïque et l'extraction). Le cadre d'export en bas en droite permet de générer une liste des photos et de données Exif dans la feuille de calcul. Deux cases à cocher demandent l'affichage des images qui n'ont pas de miniature Exif intégrée. Par contre cela ralenti évidemment l'exécution et occupe plus de mémoire. N'oubliez pas d'ajouter la librairie gdi+ dans le même répertoire que le fichier Excel.

Testé sous XL2000,XL2002 Lien vers la libraire en téléchargement sur Microsoft.com.

Le tutoriel associé.
Avatar de josephr
Nouveau Candidat au Club https://www.developpez.com
Le 24/05/2014 à 17:01
Intéressant, mais impossible de le télécharger pour l'essayer..
Avatar de Dr_Gilles
Nouveau Candidat au Club https://www.developpez.com
Le 25/10/2017 à 20:05
Bonsoir Arkham46.

Comme josephr, je n'arrive pas à télécharger ton élément.
Lorsque je clique sur le gros bouton vert "Télécharger Extraire les Données Exif des photos", un nouvel onglet s'ouvre et pointe sur l'adresse "https://excel.developpez.com/telecharger/telecharger/id/2351/Extraire-les-Donnees-Exif-des-photos" puis le message d'erreur "550 No such directory." s'affiche.

Je suppose que le lien est rompu...

Cordialement.
Dr_Gilles
Avatar de Arkham46
Responsable Access https://www.developpez.com
Le 26/10/2017 à 20:41
Bonjour,

C'est très vieux ça.
Regardez plutôt ici :
http://arkham46.developpez.com/artic...clgdiplusexif/
Avatar de JFDAccess
Membre régulier https://www.developpez.com
Le 20/11/2017 à 7:26
Bonjour,

C'est exactement le module dont je rêvais depuis un certain temps!.
J'ai essayé de l'adapter - sans succès vu mon incompétence - pour modifier la date de prise vue problème classique lors de changement de fuseau horaire ou autre.

Que faudrait-il faire pour ajouter un module type
Code : Sélectionner tout
1
2
3
4
Private Sub EImageDescription_AfterUpdate()
    ' Mise à jour de la description
    clGdip.SetExifData TagImageDescription, EImageDescription.Value
End Sub
avec TagDateTimeOriginal et EDateTimeOriginal, une fois le champ correspondant modifiable sur le formulaire

Merci,
JF Denes
Avatar de pczt45
Membre à l'essai https://www.developpez.com
Le 23/09/2021 à 14:19
Bonjour Monsieur,
j'utilise votre module de gestion EXIF sous access. Il est absolument extraordinaire. Toutefois, j'ai un gros souci avec la sauvegarde. Elle impose de désigner un fichier cible avec un dialogue lancé par "If (GetOpenFileName(StructFile)) ..."
Il semble impossible de ne pas lancer ce dialogue, qui dans mon cas est une perte de temps; je puis en effet sauver dans un folder et avec un nom standard, puis renommer (pour conserver les MAJ de l'EXIF, artiste et commentaires).
Si je donne ces valeurs comme retour de "OuvrirUnFichier", au mieux j'ai un message d'échec et dans la plupart des cas un plantage Access.
Il est donc probable que l'appel du GetOpenFileName ne fasse pas que récupérer un nom. (a cet égard, si on n'ajoute pas à la main l'extension .jpg, on a un plantage Access))
Est-il possible de faire autrement pour sauver en copie le fichier photo avec un EXIF modifié ou non?
Merci d'avance.
Bien cordialement
Avatar de pczt45
Membre à l'essai https://www.developpez.com
Le 24/09/2021 à 9:45
Bonjour Monsieur,
excusez moi de me répéter, mais j'aivais fait une erreur et vous répondre a plus de chance de vous atteindre.J
J'utilise votre module de gestion EXIF sous access pour récupérer des informations (GPS) de sites de prélèvements entomologiques. Il est absolument extraordinaire.
Toutefois, j'ai un gros souci avec la sauvegarde. Elle impose de désigner un fichier cible avec un dialogue lancé par "If (GetOpenFileName(StructFile)) ...". J'ai fait plusieurs tentatives pour contourner l'ouverture du dialogue, sans succès.
Il semble en effet impossible de ne pas lancer ce dialogue, qui dans mon cas est une perte de temps; je préfère en effet sauver dans un folder et avec un nom standard, puis renommer (pour conserver les MAJ de l'EXIF, artiste et commentaires).
Si je donne ces valeurs comme retour de "OuvrirUnFichier", au mieux j'ai un message d'échec et dans la plupart des cas un plantage Access.
Il est donc probable que l'appel du GetOpenFileName ne fasse pas que récupérer un nom. (a cet égard, si on n'ajoute pas à la main l'extension .jpg, on a un plantage Access))
Est-il possible de faire autrement pour sauver en copie le fichier photo avec un EXIF modifié ou non?
Merci d'avance.
j'ai vu que vous avez posté de nouvelles possibilités, que je vais également explorer.
Bien cordialement

Citation Envoyé par Arkham46 Voir le message
Bonjour,

Je vous propose un nouvel élément à utiliser : Extraire les Données Exif des photos

Un module de classe pour lire les données Exif des photos à l'aide de la librairie gdi+ de Microsoft.

Le fichier Excel du Zip contient un formulaire qui affiche une mosaïque de miniatures d'un répertoire. Cela permet de se rendre compte de la rapidité d'extraction des miniatures intégrées. En cliquant sur une miniature on affiche quelques unes de ses données Exif (date cliché, description, modèle d'APN) dans le cadre de droite (la description est modifiable et remplace le nom de fichier dans la mosaïque et l'extraction). Le cadre d'export en bas en droite permet de générer une liste des photos et de données Exif dans la feuille de calcul. Deux cases à cocher demandent l'affichage des images qui n'ont pas de miniature Exif intégrée. Par contre cela ralenti évidemment l'exécution et occupe plus de mémoire. N'oubliez pas d'ajouter la librairie gdi+ dans le même répertoire que le fichier Excel.

Testé sous XL2000,XL2002 Lien vers la libraire en téléchargement sur Microsoft.com.

Le tutoriel associé.

Qu'en pensez-vous ?
Avatar de pczt45
Membre à l'essai https://www.developpez.com
Le 13/10/2021 à 17:57
Bonjour "Arkham46", dont je présume que le choix de ce nom provient de l'intérêt pour HP Lovecraft, auteur que j'apprécie également. J'ai seulement pris connaissance de votre complément que je suis en train d'examiner pour l'intégrer dans mon travail. Cela semble au premier coup d'oeil répondre à ma préoccupation .

Je vous tiendrai au courant de l'avancement, dès que je serai prêt, mais j'ai encore d'autres importantes charges en dehors du développement, donc excusez moi de ne pas vous répondre de suite.

Bien cordialement
Avatar de alea83
Nouveau membre du Club https://www.developpez.com
Le 20/11/2023 à 16:43
Bonjour,

Avez vous eu une réponse à votre pb, le mien est d'avoir les données GPS des fichiers d'un répertoire.
Merci d'avance.
Developpez.com décline toute responsabilité quant à l'utilisation des différents éléments téléchargés.