Author |
Topic |
|
John
USA
94 Posts |
Posted - Mar 05 2014 : 11:45:11
|
I also recently upgraded from 5.0.5 to 5.0.6 and starting receiving reports from users regarding EXIF data irregularities.
In investigating, the attached image is of a showmessage dialog which returns the correct values in 5.0.5 and no values or incorrect values in 5.0.6. The code for the showmessage is found below the image.
tempDateString := Copy(String(ImageEnView1.IO.Params.EXIF_DateTimeOriginal), 1, 10); tempTimeString := DateTimeToStr(ImageEnView1.IO.Params.EXIF_DateTime2);
tempSpaceLocation := 0; for I := 1 to Length(tempTimeString) do begin if (tempTimeString[I] = ' ') and (tempSpaceLocation = 0) then begin tempSpaceLocation := I; end; end; tempTimeString := Copy(tempTimeString, tempSpaceLocation + 1, Length(tempTimeString) - tempSpaceLocation);
showmessage( 'Copy(String(EXIF_DateTimeOriginal = ' + tempDateString + #13 + 'Ansi DateTimeOriginal = ' + ImageEnView1.IO.Params.EXIF_DateTimeOriginal + #13 + 'AnsiStringToStringAsIs DateTimeOriginal = ' + AnsiStringToStringAsIs(ImageEnView1.IO.Params.EXIF_DateTimeOriginal) + #13 + 'DateToStr(Exif_DateTime2 = ' + DateToStr(ImageEnView1.IO.Params.EXIF_DateTime2) + #13 + 'TimeToStr using Exif_DateTime2 = ' + tempTimeString + #13 + 'DateToStr(Exif_DateTimeOriginal2 = ' + DateToStr(ImageEnView1.IO.Params.EXIF_DateTimeOriginal2) + #13 + 'DateToStr(Exif_DateTimeDigitized2 = ' + DatetoStr(ImageenView1.IO.Params.EXIF_DateTimeDigitized2));
TIA
John |
|
fab
1310 Posts |
Posted - Mar 05 2014 : 12:40:27
|
Thank you, it has been fixed now. |
|
|
jrpcguru
USA
266 Posts |
Posted - Mar 13 2014 : 11:03:05
|
I too have just discovered that 5.0.6 completely fails in reading EXIF, IPTC, and GPS data. I have two programs, one compiled in Delphi 7 and one in XE2. Versions compiled with 5.0.5 successfully read Exif. Those compiled in 5.0.6 fail. I have just uninstalled, rebooted, reinstalled 5.0.6 with the same result. I then uninstalled, rebooted, and reinstalled 5.0.5 and the programs now compile and show Exif properly.
I sure hope this is what you have already found and fixed!
J.R. |
|
|
xequte
38611 Posts |
|
|
Topic |
|
|
|