Zlib exception when calling response.free

[Tom]

After Installing sparkle (3.27.1.2) on D12 I am getting an exception "http response stream cannot change position" due to the (TZDecompressionStream.Destroy) as I have requested 'gzip' so procedure THttpResponse.PrepareResponse creates TZDecompressionStream
FContentStream := TZDecompressionStream.Create(FWrappedStream, 31);

destructor TZDecompressionStream.Destroy;
begin
inflateEnd(FZStream);
if FOwnsStream then
FStream.Free
else
try
FStream.Position := FStreamPos - FZStream.avail_in;
except
end;
inherited Destroy;
end;

My prior version of Sparkle (cannot remember what that was) and D11 did not do this

[Tom]

this is the same issue as the one below and the fix provided works

HTTP Responsestream Exception after updating BIZ to Juli Updates

I could fix this issue by accepting Offset = Position: function THttpResponseStream.Seek(const Offset: Int64; Origin: TSeekOrigin): Int64; begin if Offset = 0 then case Origin of soBeginning: if FContentSize = 0 then Exit(0); soCurrent, soEnd: Exit(FContentSize); end; //>>> begin Fix if Offset = Position then Exit(Position); //<<< end FIX raise EStreamError.Create('Http response stream cannot change position.'); end; Is this a good idea?

[wlandgraf (Wagner Landgraf)]

Thank you for the feedback, the fix will be included in the next release.