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

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