|
|
|
#1 |
|
Messages: n/a
Hébergeur: |
Bonjour,
Je cherche à transférer d'une image jpeg vers une autre image toute aussi jpeg les infos EXIF de la première. Et ceci sans modification des infos EXIF. Des idées??? Eric |
|
|
|
#2 |
|
Messages: n/a
Hébergeur: |
Je fais la réponse moi-même pour les archives.
Une piste : utiliser la librairie dEXIF.pas à l'adresse : http://mcguirez.homestead.com/downloads.html Mon code ensuite : procedure Transfert_Exif(source, destination : TFileName); var ImgData_Source : TImgData; MyImage:TJpegImage; begin ImgData_Source := TImgData.Create; try if ImgData_Source.ReadExifInfo(source) then begin if ImgData_Source.HasExif then begin ImgData_Source.ClearEXIF; MyImage:=TJpegImage.Create; try MyImage.LoadFromFile(destination); ImgData_Source.WriteEXIFJpeg(MyImage,destination); finally MyImage.Free; end; end; end; finally ImgData_Source.Free; end; end; Ce n'est pas optimal en ce sens que je suis obligé de lire et donc décoder l'image Destination. Eric |
|
![]() |
| Outils de la discussion | |
|
|