Exemple de code permettant d`obtenir les infos EXIF :
//Unité de résolution
SELON ImageInfoValeur(sFichierImage ,imgUnitéResolution)
CAS 2
sRésolution = "(pouces)"
CAS 3
sRésolution = "(centimètres)"
AUTRES CAS
sRésolution = ""
FIN

//Etat du flash
SELON ImageInfoValeur(sFichierImage ,imgFlash)
CAS 0
sFlash = "non déclenché"
CAS 1
sFlash = "déclenché"
CAS 5
sFlash = "déclenché et lumière de retour non détectée"
CAS 7
sFlash = "déclenché et lumière de retour détectée"
AUTRES CAS
sFlash = ""
FIN

//On récupères les catégories affectées à cette image
SI PAS HExécuteRequête(Categories_dun_DATA,hRequêteDéfaut,nIDImage) ALORS
Erreur(HErreurInfo())
SINON
//Affichage des catégories
TableAffiche({NomFen+".Table_Categories_dun_DATA"},taInit)

//Affichage des infos
{
NomFen+".LibelléDetail"} = +...
"Nom image : " + Data.Nom + CR +...
"Enregistré dans le fichier le : " + DateVersChaîne(Data.DateAjout, "AAAA:MM:JJ") + " " + HeureVersChaîne(Data.HeureAjout, "HH:MM:SS" + CR + ...
"Date de la prise de vue : " + ImageInfoValeur(sFichierImage,imgDate) + CR + ...
"dimension : " + Data.Largeur + " X " + Data.Hauteur + CR + ...
"Compression : " + ImageInfoValeur(sFichierImage,imgCompression) + CR + ...
"Bits/Pixel : " + Data.BitsPixell + CR + ...
"RésolutionX : "+sRésolution+" : " + ImageInfoValeur(sFichierImage,imgRésolutionX) + CR + ...
"RésolutionY : "+sRésolution+" : " + ImageInfoValeur(sFichierImage,imgRésolutionY) + CR + ...
"Format : " + Data.Extension + CR +...
"Marque de l`APN : " + ImageInfoValeur(sFichierImage,imgMarqueAppareil) + CR + ...
"Modèle de l`APN : " + ImageInfoValeur(sFichierImage,imgModèleAppareil) + CR + ...
"Distance prise de vue : " + ImageInfoValeur(sFichierImage,imgDistanceSujet) + CR + ...
"Flash : " + sFlash + CR + ...
sLocalisation + CR + ...
sChemin)
FIN