CCR Exif v1.1.0: IPTC auslesen und JPEG in TImage darstellen

[BeastyK]

Moin Leute,

irgendwie komme ich nicht recht weiter, zuerst öffne ich über einen Button den OpenPictureDialog und hab mir ein JPEG geöffnet und in Image1: TIMage dargestellt.
Das klappte auch alles prima, nun wollte ich aber auch mit IPTCData.LoadFromJPEG mit demselben Button dann gleichzeitig auch die IPTC Daten übernehmen.
Das kriege ich irgendwie nicht hin.
Es würde sich dann ja wieder ein OpenDialog öffnen..dabei will ich die Daten ja aus dem JPEG.LoadFromFile haben....

Kennt sich jemand mit dem CCR Exif Paket aus?

Gruß
Andi

[juergen]

Hallo,
die Frage(n?) verstehe ich nicht ganz.
Ich versuchs mal trotzdem ganz grob.
Du kannst mehrere Anweisungen ausführen:

Delphi-Quellcode:

var
ExifData: TExifData;
begin
with OpenDialog do
  if Execute then begin
    ExifData := TExifData.Create;
    1. Anweisung....
    2.Anweisung....
    ...
   
   end;
 ExifData.Free;
...

Es gibt übrigens eine überschaubare und wie ich finde gute Doumentation zu den CCR Exifs, da steht das was du suchst alles drin. Solltes mal reinschauen.:wink:

[BeastyK]

Moin Juergen,

geht hier mehr um IPTC, ich versuche mal das anhand der Buttonprocedure zu verdeutlichen:

Delphi-Quellcode:

procedure TForm2.Button4Click(Sender: TObject);

VAR
    JPEG  :  TJPEGImage;
    IPTCData: TIPTCData;
begin
   DataModule2.SimpleDataSet1.Last;
   DataModule2.SimpleDataSet1.Append;
if OpenPictureDialog1.Execute then
  begin
   JPEG := TJPEGImage.Create;
   IPTCData := TIPTCData.Create;
  try
    JPEG.LoadFromFile(OpenPictureDialog1.Filename);
    IPTCData.LoadFromJPEG(FileName);
      Image1.Picture.Graphic := JPEG;
    FINALLY
       JPEG.Free;
       IPTCData.Free;
  end;
end;
end;

Eigentlich ist mir klar das das hier nicht funktionieren kann, mir fällt nur nichts ein damit ich beides zugleich habe, also Bild und die Daten im Bild.

gruß
Andi

[juergen]

Hallo Andi,

ich kenne jetzt IPTCData() nicht, aber das Laden wird wohl so funktionieren wie du es aufzeigst.
Wo sollen die Exif-Tag's angezeigt werden? In einem Memo?
Wahrscheinlich lassen sich die Daten ermitteln mit IPTCData.Author, IPTCData.xxxx, usw.; das dann jeweils dem Memo hinzufügen.


//Edit:
Von welchem CCR Exif redest du hier?
Ich kenne nur die CCR Exif von Chris Rolliston, welche man sich auch von Embar-dingens runterladen kann oder hier:
http://delphihaven.wordpress.com/
So wie ich Wikipedia auf die Schnelle verstehe, ist IPTC ein anderer Standard wie Exif, oder?
Dann reden wir wohl leider aneinander vorbei.:oops:

[BeastyK]

Moin Juergen,

ja wir reden vom selben CCR Exif-Pack!
Exif und IPTC sind 2 unterschiedliche Möglichkeiten Daten in einem Bild zu speichern.
Aber im Grunde hast du Recht mit den IPTCData.xxxx und ich benutze zur Zeit noch DBEdit-Felder und DBTDateTimePicker.
Für einige Sachen werde ich wohl aber sowas wie ein DBMemo nehmen (später!).
Hab schon gesehen das es ein TJPEGImageEX in CCR EXif gibt. Gestern probierte ich damit noch rum, heute brauchte ich mal Abstand. Gut das ich das nicht beruflich mache *g*.

Für Tips bin ich von allen Seiten offen!

Gruß
Andi