LECTURE DES PARAMÈTRES EXIF D'UNE IMAGE JPEG

---

Auteur : ricrak

Ecrire un message privé
Commentaire sur cette source (6)
Ajouter un commentaire et/ou une note

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).

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

U tilisation 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.D ateTimeOriginal)+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,APal ette);
      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 zip