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,imgResolutionX) + CR + ...
"RésolutionY : "+sRésolution+" : " + ImageInfoValeur(sFichierImage,imgResolutionY) + 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 |