JPG-Header lesen und speichern

[tcoman]

Zitat von Matze:

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 !