* Record and reuse start position after checkcontents (Ondrey Pokorny, bug ID #29985)

git-svn-id: trunk@33464 -

packages/fcl-image/src/fpimage.inc

@@ -123,7 +123,9 @@ var r : integer;
     reader : TFPCustomImageReader;
     msg : string;
     d : TIHData;
+    startPos: Int64;
 begin
+  startPos := str.Position;
   with ImageHandlers do
     try
       r := count-1;
@@ -139,6 +141,7 @@ begin
             try
               if CheckContents (str) then
                 try
+                  str.Position := startPos;
                   FStream := str;
                   FImage := self;
                   InternalRead (str, self);
@@ -149,7 +152,7 @@ begin
                 end;
             finally
               Free;
-              str.seek (soFromBeginning, 0);
+              str.Position := startPos;
             end;
           end;
         dec (r);