Zitat von
GPRSNerd:
Here we go! Angehängt sind die Units dEXIF 1.03d portiert nach Delphi 2009.
Die Portierung ist eine reine Umstellung auf explizite ANSIStrings, Unicode geht nicht!
Falls jemandem noch Probleme auffallen sollten, bitte melden, so dass wir alle davon profitieren können.
Danke für die Portiertung. Leider ist mir ein Fehler aufgefallen, dessen Ursache ich nicht erkenne: Unter Delphi 5 werden zum einem Bild alle vorhandenen Infos zu "Maker Specific Data" ausgegeben. Bei D2009 mit den neuen Units fehlt sehr viel.
So lasse ich die "Maker Specific Data" ausgeben:
Delphi-Quellcode:
if ImgData.HasEXIF and ImgData.ExifObj.msAvailable then
begin
// verbose data is only available in the trace strings
ImgData.ExifObj.ResetIterator;
while ImgData.ExifObj.IterateFoundTags(CustomEXIF, Item) do
Memo(Item.Desc, Item.Data);
end;
Im Anhang das Originalbild mit den EXIF-Daten und die beide Ausgaben als Bildschirmfoto.