Преглед на файлове

* Fix rare case of stream contents not being read correctly

(cherry picked from commit 0fac221a61414d3b1bc77cd00a34ce8498a86a58)
Michaël Van Canneyt преди 2 години
родител
ревизия
1eee31c04f
променени са 1 файла, в които са добавени 2 реда и са изтрити 0 реда
  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
         aCount:=0;
     end;
+  if IsEOB then
+    FillBufferForwardAt(FPosition);
 end;
 
 procedure TPDFSourceStream.Previous;