JPG-Header lesen und speichern

[ThoPos]

Hallo,

ich habe mir ein Programm für die Verwaltung und Präsentation von JPG-Bildern geschrieben.

Wenn ich aber eine Datei lade, bearbeite (z.B. 90°-Drehung, Monochrom, etc) und als neue Datei speichere, so fehlt bei der neuen Datei die Informationen aus dem Header der ursprünglichen JPG-Datei (Aufnahmedatum, Einstellungen wie Belichtungszeit, Kameramodell, etc.).

Kann und würde mir einer erklären, wie ich diese Headerinformationen auslesen, ggf. modifizieren und in die neue Datei speichern kann?

Gruß aus Köln
Thomas

[Klaus01]

Hallo,

wie bearbeitest Du denn das jpg Bild.
Konvertierst Du es zuerst nach bmp dann wieder nach jpg.
Hier gibt es auch einen Thread dazu. Der Link zu der jpg Unit funktioniert aber leider nicht mehr.

Grüße
Klaus

[toms]

Neuer Link (JPEG Unit): http://cc.codegear.com/Item/19723 oder :arrow: Anhang.

[ThoPos]

Bisher bearbeite ich die Bilder als Bitmap. Das mit der JPG-Komponente sieht vielversprechend aus.

Nur moniert bei mir Delphi2007 die Befehlszeile 116:

Delphi-Quellcode:

      jpeg.BitmapCMYKToRGB(B, true);

Die DCU jpegex habe ich in das Programmverzeichnis gelegt und entsprechend in Uses aufgenommen.

Gruß aus Köln
Thomas

[toms]

Zitat:

Zitat von ThoPos

Nur moniert bei mir Delphi2007 die Befehlszeile 116:

Was für ein Fehler wird angezeigt?

[ThoPos]

Den Fehler habe ich gefunden: habe vergessen, daß hier jpeg. durch jpegex. ersetzt werden muß.

Aber dafür ist der Erfolg mit dieser Komponente leider nicht der gewünschte. Wenn ich ein Bld drehe und speichere, dannn ist beim nächsten Laden des Bildes die Änderung vorhanden. Aber die Vorschau im Windows-Explorer zeigt sich von allen Modifikationen unbeeindruckt. Aber hier möchte ich die Änderungen auch sehen.

Gruß aus Köln
Thomas

[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

[ThoPos]

Vielen Dank für den Tipp. Funktioniert prima.

Kennst Du auch 'nen Trick, wie ich folgende EXIF-Einträge ändern, bzw. hinzufügen, kann:
- Description
- User Comment
- Comments


Gruß aus Köln
Thomas

[olaf43]

Zitat:

Zitat von Matze (Beitrag 770013)

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 der link auf die mcguirez.homestead.com Seite nicht (mehr). Gibt es einen neuen Link?
Danke!
Olaf43

[himitsu]

eventuell handelt es sich hierbei um die gewünschte Datei
dEXIF.pas > http://my-svn.assembla.com/svn/App_Smallsee/dEXIF.pas