Lecture des paramètres exif d'une image jpeg

5/5 (8 avis)

Vue 22 409 fois - Téléchargée 1 695 fois

Télécharger le projet
Commenter

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;
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
cs_Delphiprog Messages postés 4297 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 9 janvier 2013 32
30 mai 2004 à 09:21
Ca faisait un moment que je me demandais comment récupérer ces infos avec Delphi alors que tout parait si simple avec PHP et les bonnes librairies qui vont bien avec !

Une petite appli pour montrer comment mettre en oeuvre cette librairie serait la bienvenue.
En tous cas ce code est utile, vu le développement rapide de la photo numérique, pour réaliser un soft qui affiche toutes les informations enregistrées par l'APN.

Difficile de donner une note dans la mesure où l'on ne connait pas les proportions de code original et de code modifié.
BrunoLaw Messages postés 1 Date d'inscription mercredi 19 mars 2003 Statut Membre Dernière intervention 7 juin 2004
7 juin 2004 à 07:05
le compo dexif de http://mcguirez.homestead.com/downloads.html me semble beaucoup plus compet...

Bruno.
cs_ricrak Messages postés 5 Date d'inscription mardi 10 juin 2003 Statut Membre Dernière intervention 9 juin 2004
9 juin 2004 à 15:48
Oui, j'ai trouvé le composant en question il y a quelques jours.
Trop tard!
Ce source est beaucoup plus complet, y'a pas photo (mais peut-être un peu plus dur à comprendre?)
Mais mon développement m'a permis de comprendre un peu mieux la structure EXIF.
Entre temps j'ai aussi trouvé comment récupérer le Thumbnail.
Je mettrai peut-être à jour mon source si ça intéresse quelqu'un...
rdelphi Messages postés 8 Date d'inscription mercredi 5 novembre 2003 Statut Membre Dernière intervention 21 septembre 2009
9 sept. 2004 à 13:51
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.
cs_Francois42 Messages postés 3 Date d'inscription vendredi 5 janvier 2007 Statut Membre Dernière intervention 11 février 2007
5 janv. 2007 à 15:11
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?
S'inscrire maintenant

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.