Hallo zusammen,
ich habe über dieses Forum die ImageEN-Komponente Version 2.3.2 von
www.hicomponents.com gefunden und einige Dinge ließen sich damit bestens lösen. Da diese Komponente auch die Bearbeitung der EXIF- und IPTC-Daten ermöglicht, würde ich gerne die dEXIF-
Unit ganz raus schmeißen. Ich habe allerdings noch ein Problem. Obwohl ich die Beschreibung so verstehe, dass nur EXIF-Felder kopiert werden, die auch im Original vorhanden sind, sind in der kopierten Datei plötzlich alle möglichen EXIF-Felder drin. Dafür fehlt das Thumbnail. Das lässt sich schon mit folgendem Code testen.
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
begin
ImageEnView1.IO.ParamsFromFile('Image1.jpg'); // Enthält EXIF-Daten
ImageEnView1.IO.InjectJpegEXIF('Image2.jpg'); // Enthält noch keinerlei EXIF-Daten
end;
Eigentlich wollte ich aber Bilder drehen und dafür sorgen, dass das Thumbnail mitgedreht wird und falls keines vorhanden, eines angehängt wird.
Delphi-Quellcode:
procedure TfoBilder.spb90DegClick(Sender: TObject);
var
rc: TRect;
sFile:String;
begin
sFile:=ImageEnMView1.ImageFileName[ImageEnMView1.MultiSelectedImages[i]];
JpegLosslessTransform2(sFile,jtRotate90,false,jcCopyAll, rc, true)
end;
Auch nach diesem Vorgang ist das Bild plötzlich voll mit neuen EXIF-Feldern, dafür ohne Thumbnail. Auf jeden Fall findet das mit dEXIF geschriebene Programm keine mehr.
Kann jemand helfen?
Gruß
Gerd