Hallo,
wenn ich das richtig verstehe, geht's dir um die EXIF-Infos. Die kannst du mit
dieser Unit auslesen und wieder (unverändert) speichern.
Delphi-Quellcode:
uses
dEXIF;
var
ImgData: TImgData;
ImgData := TimgData.Create;
try
ImgData.ProcessFile('Ladepfad\bild.jpg');
// hier das Bild bearbeiten und, falls nicht bereits geschehen, in einem TJPEGImage ablegen
ImgData.WriteEXIFJpeg(JpegImage, 'Zielpfad\bild.jpg');
finally
FreeAndNil(ImgData);
end;
Bei mir funktioniert's.
Grüße
Leider funktioniert dieser Link nicht mehr !