Hallo, ich bin auf der Suche nach einer Möglichkeit JPG Bilder zu bearbeiten und dann (mitsamt der Exif-Infos) wieder zu speichern.
Das klappt auch soweit ganz gut:
Delphi-Quellcode:
Extention := Ansilowercase(Extractfileext(DName));
if (Extention = '.jpg') or (Extention = '.jpeg') then
begin
Jpg := TJPEGImage.Create;
JPG.LoadFromFile(DName);
BITMap.Assign(JPG);
if Grad = 90 then
Drehen90Grad(BITMAP) ELSE
Drehen270Grad(BITMAP);
JPG.Assign(Bitmap);
JPG.SaveToFile(DName);
JPG.Free;
end;
Leider werden hierbei die vorher vorhandenen Exif-Infos gelöscht. Wie kann man das verhindern? (Die Windows Bildvorschau schafft das doch auch...)