paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 21:49:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* More strict behaviour of TStreamReader after close

Browse Source 
git-svn-id: trunk@34728 -
This commit is contained in:
michael 2016-10-16 10:22:10 +00:00
parent 8c1ebcd4ad
commit 3b1980b8f3
1 changed files with 17 additions and 8 deletions

25
packages/fcl-base/src/streamex.pp
View File

@ -103,6 +103,7 @@ type
private
FBufferRead: Integer;
FBufferPosition: Integer;
FClosed,
FOwnsStream: Boolean;
FStream: TStream;
FBuffer: array of Byte;
@ -348,6 +349,7 @@ begin
raise EArgumentException.CreateFmt(SParamIsNil, ['AStream']);
FStream := AStream;
FOwnsStream := AOwnsStream;
FClosed:=False;
if ABufferSize >= MIN_BUFFER_SIZE then
SetLength(FBuffer, ABufferSize)
else
@ -367,9 +369,17 @@ end;
procedure TStreamReader.FillBuffer;
begin
FBufferRead := FStream.Read(FBuffer[0], Pred(Length(FBuffer)));
FBuffer[FBufferRead] := 0;
FBufferPosition := 0;
if FClosed then
begin
FBufferRead:=0;
FBufferPosition:=0;
end
else
begin
FBufferRead := FStream.Read(FBuffer[0], Pred(Length(FBuffer)));
FBuffer[FBufferRead] := 0;
FBufferPosition := 0;
end;
end;
procedure TStreamReader.Reset;
@ -383,15 +393,13 @@ end;
procedure TStreamReader.Close;
begin
if FOwnsStream then
begin
FStream.Free;
FStream := nil;
end;
FreeAndNil(FStream);
FClosed:=True;
end;
function TStreamReader.IsEof: Boolean;
begin
if not Assigned(FStream) then
if FClosed or not Assigned(FStream) then
Exit(True);
Result := FBufferPosition >= FBufferRead;
if Result then
@ -408,6 +416,7 @@ var
begin
VPosition := FBufferPosition;
SetLength(AString, 0);
if FClosed then exit;
repeat
VPByte := @FBuffer[FBufferPosition];
while (FBufferPosition < FBufferRead) and not (VPByte^ in [10, 13]) do