Hi wp!
The fpExif package is super, but in my application, in same jpg files I have run-time error: "Range check error" in file fpeutils.pas at line 1370.
Maybe the following code would be more appropriate:
function PosInBytes( const AText: AnsiString; ABuffer: TBytes ): Integer;
var n: Integer;
begin
n := Length( AText );
if (n > 0) and Assigned( ABuffer ) then begin
for Result := Low( ABuffer ) to High( ABuffer )-n+1 do
if {%H-}CompareMem( @ABuffer[ Result ], Pointer( AText), n ) then
exit;
end;
Result := -1;
end;
A sample jpg file is attached.
I have also a lot of unsupported exif tags in second attachment. Please check them and add them to fpeexifdata.pas
Sorry for my english
Best regards
MirKasp