commit 5a781c2e71c2d5da052fac6cd6386267ab68694e
author Jens Geyer <jensg@apache.org> Tue Feb 04 23:35:55 2025 +0100
committer Jens Geyer <jensg@apache.org> Wed Feb 05 01:47:07 2025 +0100
tree 5c2bfedbc23281875eac71b25d1e8c96b206453a
parent c854f648dfbe64f08f9e4d97f9ace64dbcf394f3

THRIFT-5851 Promote known total stream sizes for seekable stream transports properly
Client: Delphi
Patch: Jens Geyer

lib/delphi/src/Thrift.Transport.MsxmlHTTP.pas

diff --git a/lib/delphi/src/Thrift.Transport.MsxmlHTTP.pas b/lib/delphi/src/Thrift.Transport.MsxmlHTTP.pas
index b0c7acd..2cc3bfe 100644
--- a/lib/delphi/src/Thrift.Transport.MsxmlHTTP.pas
+++ b/lib/delphi/src/Thrift.Transport.MsxmlHTTP.pas
@@ -256,7 +256,7 @@
     xmlhttp.send( IUnknown( TStreamAdapter.Create( ms, soReference )));
     FInputStream := nil;
     FInputStream := TThriftStreamAdapterCOM.Create( IUnknown( xmlhttp.responseStream) as IStream);
-    ResetConsumedMessageSize;
+    ResetMessageSizeAndConsumedBytes;
     UpdateKnownMessageSize( FInputStream.Size);
   finally
     ms.Free;