Lecture des paramètres exif d'une image jpeg

Soyez le premier à donner votre avis sur cette source.

Vue 21 330 fois - Téléchargée 1 630 fois

Description

Unit comprenant un objet pour récupérer les principaux paramètres EXIF (focale, vitesse, ouverture, date de prise de vue...) des photos JPEG des appareils numériques.
Issu d'un code (http://www.torry.net/vcl/graphics/jpg/texif.zip) que j'ai modifié (et corrigé).
Références EXIF: www.exif.org

La mise à jour (16/09/04), prend en compte la récupération des "imagettes" (ou Thumbnail in english) incorporé dans les fichiers JPEG, une correction pour prendre en compte le codage "Big Endian" ou "Little Endian" (arrangement des octets), et la lecture/modification du champs commentaire incorporé dans les fichiers JPEG (dans la limite de la taille initiale de ce champs).

Conclusion :


http://www.torry.net/vcl/graphics/jpg/texif.zip

Utilisation dans un programme ou une Unit:

(...)
uses Exif;

var JPegName:string;
ExifImage : TExif;
ImageSource:Tgraphic;
Tmpbitmap: Tbitmap;
AFormat: Word;
AData: THandle;
APalette: HPALETTE;
TFF:boolean;

(...)
begin

(.. affichage des paramètres ..)

JPegName:={nom de fichier photo};
ExifImage := TExif.Create;
ExifImage.ReadFromFile(JPegName);
MessageDlg(
'Fichier Image: '+JPegName+chr(13)+
'Appareil: Marque = '+ExifImage.Make+chr(13)+
' Modèle = '+ExifImage.Model+chr(13)+
'Version EXIF = '+ExifImage.ExifVersion+chr(13)+
'Software = '+ ExifImage.Software+chr(13)+
'Date prise de vue = '+EXIF_DateFormat_to_French_DateFormat(ExifImage.DateTimeOriginal)+chr(13)+
'Taille (pixel): Largeur = '+ExifImage.ImageWidth+chr(13)+
' Hauteur = '+ExifImage.ImageHeight+chr(13)+
'Résolution (dpi): XResol = '+ExifImage.XResol+chr(13)+
' YResol = '+ExifImage.YResol+chr(13)+
'Distance mise au point = '+ExifImage.SubjectDistance+chr(13)+
'Orientation = '+ExifImage.OrientationDesk+chr(13)+
'Vitesse = '+ExifImage.ExposureTime+chr(13)+
'Ouverture = '+ExifImage.FNumber+chr(13)+
'Focale = '+ExifImage.Focallength+chr(13)+
'ISO = '+ExifImage.ISO+chr(13)+
'Mode mesure = '+ExifImage.MeteringMode+chr(13)+
'Mode exposition = '+ExifImage.ExpProg+chr(13)+
'Type lumière = '+ExifImage.LightSource+chr(13)+
'Paramètres flash= '+ExifImage.Flash+chr(13)+
'Thumbnail (vignette): Compression = '+ExifImage.Compression+chr(13)+
' XResol = '+ExifImage.XResolThumb+chr(13)+
' YResol = '+ExifImage.YResolThumb+chr(13)+
' Offset JPEG = '+ExifImage.JPEG_OffsThumb+chr(13)+
' Taille JPEG = '+ExifImage.JPEG_LengThumb+chr(13)+
'Commentaires = '+ExifImage.UserComments
,mtInformation,[mbok],0);

ExifImage.Free;

(...)

(.. récupération de l'imagette dans un Tgraphic ..)

if ReadThumbFromFile(JPegName,Tmpbitmap) then begin
TFF:=true;
ImageSource := Tbitmap.Create;
Tmpbitmap.SaveToClipboardFormat(AFormat,AData,APalette);
ImageSource.LoadFromClipboardFormat(AFormat,AData,APalette);
end
else begin
{image ne comportant pas de miniature}
TFF:=false;
ImageSource := TJPEGImage.Create;
ImageSource.LoadFromFile(JPegName);
end;

{ Imagesource contient soit une miniature, soit l'image originale;}
{ on peut alors charger Imagesource dans un composant Tbitmat en }
{ spécifiant position (Trect) et dimension, puis en faisant un }
{ Tbitmap.canvas.strechdraw(Trect, ImageSource) }

ImageSource.Free;
if TFF then Tmpbitmap.Free;

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Bravo !
mais avec les coordonnées GPS ce serait super.
Messages postés
6
Date d'inscription
vendredi 10 décembre 2004
Statut
Membre
Dernière intervention
18 octobre 2007

ma note 8
pour moi il manque juste la location latitude,longitude
Messages postés
207
Date d'inscription
mercredi 5 mars 2003
Statut
Membre
Dernière intervention
29 mars 2013
5
Désolé mais je ne vois pas l'implémentation de la fonction :
EXIF_DateFormat_to_French_DateFormat

Or j'aurais besoin assez rapidement de pouvoir extraire les dates de prise de vue d'images JPEG pour mon programme, pourrais-tu m'en montrer une implémentation STP ?
Messages postés
3
Date d'inscription
vendredi 5 janvier 2007
Statut
Membre
Dernière intervention
11 février 2007

Bravo pour cette nouvelle version! j'ai tout de même un souci de 'plantage' dans la partie 'Thumbnail', car la valeur oFF0 n'est pas correctement initialisée et l'analyse compressée/non-compressée se termine en erreur. Que dois-je faire?
Messages postés
8
Date d'inscription
mercredi 5 novembre 2003
Statut
Membre
Dernière intervention
21 septembre 2009

Génial, j'attends avec impatience la mise à jour, pour la récupération des "imagettes" et la lecture/modification du champs commentaire incorporé dans les fichiers JPEG.
Afficher les 8 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.