Explorar el Código

* Fix rare case of stream contents not being read correctly

Michaël Van Canneyt hace 2 años
padre
commit
0650a1654c
Se han modificado 1 ficheros con 2 adiciones y 0 borrados
  1. 2 0
      packages/fcl-pdf/src/fppdfsource.pp

+ 2 - 0
packages/fcl-pdf/src/fppdfsource.pp

@@ -217,6 +217,8 @@ begin
       if not FillBufferForwardAt(FPosition) then
       if not FillBufferForwardAt(FPosition) then
         aCount:=0;
         aCount:=0;
     end;
     end;
+  if IsEOB then
+    FillBufferForwardAt(FPosition);
 end;
 end;
 
 
 procedure TPDFSourceStream.Previous;
 procedure TPDFSourceStream.Previous;