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