Open trpjxrdf opened 7 years ago
Happens when SubSecs tag length > 3.
In the TExifSection.GetDateTimeValue Move(SubSecsTag.Data^, S[1], Max(3, SubSecsTag.ElementCount - 1)); must be replaced by Move(SubSecsTag.Data^, S[1], Min(3, SubSecsTag.ElementCount - 1));
Move(SubSecsTag.Data^, S[1], Max(3, SubSecsTag.ElementCount - 1));
Move(SubSecsTag.Data^, S[1], Min(3, SubSecsTag.ElementCount - 1));
Thanks for reporting!
GabrielOnDelphi
commented
1 year ago
Happens when SubSecs tag length > 3.
In the TExifSection.GetDateTimeValue
Move(SubSecsTag.Data^, S[1], Max(3, SubSecsTag.ElementCount - 1));must be replaced byMove(SubSecsTag.Data^, S[1], Min(3, SubSecsTag.ElementCount - 1));