Récupérer les données GPS d'une photo

**woodyfrance** · 27/06/2012, 15h51

Bonjour,

Je cherche à récupérer les données GPS contenues dans les informations EXIF d'un fichier JPG. Il n'existe aucune constante du Wlangage qui retourne ces informations et les valeurs des marqueurs EXIF qui correspondent aux coordonnées GPS restent désespérément vides lorsque j'utilise la fonction ImageInfoValeur().
Toutes vos idées ou expériences sont les bienvenues.

Merci à tous

**frenchsting** · 27/06/2012, 16h10

Je viens de regarder ce document : http://exif.org/Exif2-2.PDF

Tout est dedans. Je ne pensais pas qu'il y avait autant de champs exif.

Edit : je viens de trouver que la librairie CxImage permettrait de le faire. A creuser donc...

**mail.spam** · 27/06/2012, 16h49

Bonjour,

Après une petite recherche google il y a post sur le forum de pc-soft qui dois pouvoir t'aider. (ici)

bonne lecture

**Hibernatus34** · 28/06/2012, 10h08

Bonjour,

J'ai voulu vous aider avec ImageInfoValeur, mais la fonction est mal fichue.
De même les fonctions .Net sont lourdes.

Du coup j'ai développé "à la main" une fonction qui extrait tout un EXIF en respectant son arborescence. L'EXIF devient un tableau de structure et chaque élément est un Variant. Un Variant pouvant être un scalaire, une chaîne, un buffer, une structure (par exemple pour les nombres rationnels), un tableau de Variant (pour une liste de valeurs), ou encore un autre tableau de structure pour un IFD secondaire.

Dans l'exemple ci-joint, la fonction est dans cpExif, c'est ChargeExif() (le reste c'est des fonctions privées).
Elle gère les erreurs (fichier mal formé).

Et la fenêtre montre un exemple d'utilisation, en chargeant tout dans une table hiérarchique. J'ai inclus un JPEG qui contient des coordonnées GPS en exemple.

NB. C'est tout frais, donc il y a un petit risque de bug.

**woodyfrance** · 28/06/2012, 11h01

Alors la je dis, bravo !

Merci beaucoup pour le temps passé la dessus et surtout pour le résultat.
Je débute sur WD, autodidacte, et en aucun cas je n'aurais réussi à récupérer ces informations.
Je m'étais orienté vers l'utilisation d'ExifTool mais le trainement aurait été bien trop long vu le nombre de photos que je dois analyser.
Je vais regarder tout cela et tenter de l'adapter à un traitement automatique.

Merci beaucoup

**Hibernatus34** · 28/06/2012, 11h22

Donc votre cas on peut imaginer ceci :

Code :

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

1
2
3
4
5
6
ST_InfoGPS	est structure
	sRefLatitude	est chaîne
	sRefLongitude	est chaîne
	tabLatitude		est tableau de réels
	tabLongitude		est tableau de réels
FIN

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
PROCEDURE ChargeGPSExif(tabExif est tableau de ST_EXIF_Champ, stInfoGPS est ST_InfoGPS)
nIndice			est entier
tabIFD			est tableau de ST_EXIF_Champ
tabRationals	est tableau de ST_EXIF_RationnelSansSigne
stRational		est ST_EXIF_RationnelSansSigne
 
VariableRAZ(stInfoGPS)
nIndice = TableauCherche(tabExif, tcLinéaire, "nTag", 0x8825)
SI nIndice = -1 ALORS
	RENVOYER Faux
FIN
SI tabExif[nIndice].nTypeOrigine <> c_TypeIFD ALORS
	RENVOYER Faux
FIN
tabIFD = tabExif[nIndice].vValeur
nIndice = TableauCherche(tabIFD, tcLinéaire, "nTag", 1)
SI nIndice <> -1 _ET_ tabIFD[nIndice].vValeur..Type = wlChaîne ALORS
	stInfoGPS.sRefLatitude = tabIFD[nIndice].vValeur
FIN
nIndice = TableauCherche(tabIFD, tcLinéaire, "nTag", 3)
SI nIndice <> -1 _ET_ tabIFD[nIndice].vValeur..Type = wlChaîne ALORS
	stInfoGPS.sRefLongitude = tabIFD[nIndice].vValeur
FIN
nIndice = TableauCherche(tabIFD, tcLinéaire, "nTag", 2)
SI nIndice <> -1 _ET_ tabIFD[nIndice].vValeur..Type = wlTableau _ET_ tabIFD[nIndice].nTypeOrigine = c_TypeURational ALORS
	tabRationals = tabIFD[nIndice].vValeur
	POUR i = 1 _A_ TableauOccurrence(tabRationals)
		stRational = tabRationals[i]
		TableauAjoute(stInfoGPS.tabLatitude, stRational.nNumérateur / stRational.nDénominateur)
	FIN
FIN
nIndice = TableauCherche(tabIFD, tcLinéaire, "nTag", 4)
SI nIndice <> -1 _ET_ tabIFD[nIndice].vValeur..Type = wlStructure _ET_ tabIFD[nIndice].nTypeOrigine = c_TypeURational ALORS
	tabRationals = tabIFD[nIndice].vValeur
	POUR i = 1 _A_ TableauOccurrence(tabRationals)
		stRational = tabRationals[i]
		TableauAjoute(stInfoGPS.tabLongitude, stRational.nNumérateur / stRational.nDénominateur)
	FIN
FIN
RENVOYER Vrai

Usage :

Code :

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

1
2
3
4
5
6
7
8
9
tabExif	est tableau de ST_EXIF_Champ
stInfoGPS	est ST_InfoGPS
 
SI PAS ChargeExif(tabExif, sCheminFichier) ALORS
	RETOUR
FIN
SI ChargeGPSExif(tabExif, stInfoGPS) ALORS
	// ...
FIN

C'est là qu'on voit la lourdeur de mon système, il faudrait une couche au-dessus et des fonctions de manipulation de l'EXIF mémoire.
Mais au moins c'est rigoureux et on peut tout récupérer.

**PaulNero** · 28/06/2012, 11h32

Chapeau Hibernatus34,
tu continues de m'impressionner!!

**woodyfrance** · 29/06/2012, 11h42

Je pense que tout cela dépasse, de très loin, le peu de connaissance que j'ai pu acquérir sur Windev. Je vais modifier tout cela pour sauvegarder les données dans un fichier.

Une fois encore, merci pour le temps passé la dessus.

**woodyfrance** · 02/07/2012, 13h50

Tout cela est beaucoup trop complexe pour moi, l'avantage c'est que je connais le mode débug sur le bout des doigts

D'après mes tests, 11 marqueurs Exif semblent avoir été trouvés :

Variable nNbDonnées dans la procédure _ExifVersStructure()

Ce que je ne comprends pas, c'est que le chargement des marqueurs s'arrête après la lecture du 3e...

Comme je suis incapable de modifier quoi que ce soit dans ce programme, je vais tenter de trouver une autre solution.

Désolé de vous avoir fais perdre du temps.

Merci beaucoup pour l'aide apportée

**Hibernatus34** · 02/07/2012, 14h07

Il n'y a pas de souci. J'ai sorti le bazooka pour tuer le moustique, je comprends que ça soit trop lourd à utiliser.
Je peux vous faire une fonction plus simple qui charge uniquement les infos GPS et qui stocke les rationnels dans des numériques.
Et si vous avez trouvé un bug, notamment une image sur laquelle je ne charge pas toutes les infos, ça serait gentil de me l'envoyer.

**woodyfrance** · 02/07/2012, 14h22

Le fait de récupérer toutes les données de l'Exif est fantastique et surtout très utile, que je n'y comprenne pas grand chose, c'est autre chose

Je joints à ce message la photo sur laquelle j'ai fais mes tests.

**Hibernatus34** · 02/07/2012, 16h58

Mon code marche avec cette image.
Voici un projet qui n'extrait que latitude + longitude.
Tout le code est dans le bouton de la fenêtre d'exemple.
La fonction d'extraction est aussi un peu simplifiée. (un tout petit peu car je voulais garder un peu de rigueur tout de même)

**woodyfrance** · 03/07/2012, 09h23

Bonjour,

Je sais m'acharner sur ce qui me résiste et je finirai par être à l'aise avec votre développement initial qui me sera d'une très grande utilité lorsque j'aurai compris pourquoi mes tests ne renvoient pas toutes les données. Le plus important était de pouvoir obtenir les coordonnées GPS et tout fonctionne à merveille.

Je vous remercie une fois de plus l'aide que vous m'avez apportée