Discussion :

[diam's]

Je bricole une petite appli pour recadrer mes photos numériques. Pour cela, je charge le JPEG dans un TImage, puis je retaille (sélection du ratio de l'image, position du cadrage) et l'image recadrée apparait 'en temps réel' dans un second TImage.

L'image recadrée n'est ni plus ni moins que la copie d'une partie du Bitmap de la photo d'origine. Je n'ai donc pas de problème pour redimensionner un JPEG, en passant par un TBitmap (voir FAQ).

Mais quand j'enregistre la photo recadrée au format JPEG, et bien, je perd les infos EXIF. Je veux bien perdre le thumbnail (en fait, ça m'arrangerait), mais je souhaite conserver toutes les autres (appareil, date de prise de vue, avec/sans flash, temps d'expo, focale, etc...).

Donc la question est :
- Peut-on retailler un JPEG sans perdre les EXIF ?
- Ou est-il possible d'enregistrer des infos EXIF dans un fichier qui n'en possède pas ?

Pour info, j'utilise l'excellente unité dEXIF, et j'ai déjà potassé le guide du developper qui y est joint, mais là, je vois pas

[tourlourou]

le TImage sauve les jpeg sans conserver les exif

l'idée des exif, c'est de ne pas y toucher pour ne pas les altérer, puisqu'ils sont liés à la prise de vue !

mais on peut souhaiter les récupérer et en ajouter à un cliché qui aura été modifié ou n'en possédait pas.

il est d'ailleurs moins "dangereux" de recréer que de tripatouiller...

quelle version de delphi utilises-tu ?

[diam's]

J'utilise D6 perso (je suis un autodidacte, et je ne fais que des applis perso, donc...)

mais on peut souhaiter les récupérer et en ajouter à un cliché qui aura été modifié ou n'en possédait pas.

Ben, oui, c'est justement ma deuxième question : comment en ajouter à un jpeg qui n'est possède pas ... (c'est ça que tu appelles tripatouiller ?)

il est d'ailleurs moins "dangereux" de recréer que de tripatouiller...

Si on me dit comment faire pour recréer un jpeg avec des exifs facilement, je prends, sinon, je m'en passerais tant pis

[tourlourou]

ce que je voulais dire, c'est que tu ne peux pas proprement prendre les exif de ton original et juste changer la photo, la vignette... et modifier quelques données (cela dit, c'est faisable quand même, mais c'est tripatouille and co)

voilà pourquoi il vaut mieux utiliser un truc qui les crée de A à Z : je n'en connais pas, mais j'ai quelque chose en cours - malheureusement développé en D5 : en l'essayant sous D6, j'ai un bug-de-la-mort-qui-tue sorti d'on ne sait où...

j'essayerai de faire une dll, si je trouve le temps

[tourlourou]

bon, j'ai trouvé la cause du bug : une fonction (avec de l'asm) pas compilée de la même manière en D5 et D6 !!!
je pourrai t'envoyer un petit exemple si tu me fournis ton mél (en MP si tu veux)
l'unité n'est pas complètement aboutie : pas encore de tri des données dans l'ordre croissant des tags, notamment, en écriture
pas de doc : juste la partie interface qui est à peine commentée : j'espère que ce sera assez parlant...
merci des retours éventuels ;-)

[tourlourou]

oups, il faudra que je fasse un petit ajout, car aujourd'hui, pas de fonction pour coller une photo quelconque aux exif...
je ne pense pas que ce sera bien long !

[Bruno@Chrysis]

Si tu utilises DExif, ouvre le fichier ProgrammerGuide.txt, tu y trouvera ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
   Open a file, manipulate the image and save to a new file adjusting
   the EXIF size for the new file:
 
       // var MyImage:TJpegImage;
       if ImgData.ProcessFile('FileName.jpg') then
       begin
         MyImage.ReadFromFile('FileName.jpg);
         // manipulate image here
         ImgData.WriteEXIF(MyImage,'NewFile.jpg');
       end;

Bruno

[diam's]

@Bruno :

j'ai bel et bien lu le programmer's guide, et je peux en toute sincérité de dire qu'il y a une erreur. la véritable fonction à appeler n'est pas WriteExif, mais WriteExifJpeg.

Comme cette fonction peut être appelé de plusieurs façon, voici celle que j'ai utilisée (à dire vrai, c'est la seule que j'ai réussi à faire fonctionner )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

imgdata.WriteEXIFJpeg(jpg,filename,true)

Pour info, j'ai même traduit la fonction ToLongString de imgdata.exifobj pour que les infos soit écrites en français, avec les dates et heures au format francophone... (ça va, c'était pas trop dur )

Avec cette fonction, j'enregistre le contenu de mon TImage en JPEG avec les infos exif.

Pour info, j'ai découvert que si vous copiez un Timage dans un autre Timage, les infos exif sont conservées, même si vous retaillez l'image (j'ai pas regardé pour un redimensionnement type strechdraw)

@Tourlourou : à mon avis, ton projet peut en interresser beaucoup, surtout si tu arrive à en faire un composant. Car à part dEXIF (excellent soit dit au passage), j'ai pas trouvé grand chose de sérieux pour les EXIF sur le web (du moins en relation avec Delphi).

[Bruno@Chrysis]

Je suis bien de cet avis aussi. Tourlourou, si tu y arrives, fait nous signe...

Pendant que j'y suis, vous auriez pas une solution pour modifier une valeur et réecrire les infos EXIF (par exemple, modifier la longitude, latitude) ?

Bruno.

[diam's]

Peut-être en regardant dans le source de dEXIF.

Regarde aussi sur exif.org, y'a pas mal d'infos sur les EXIF et les tag associés