commit 036665edc1b1567e521472f295ce039a10d06b73
author Jens Geyer <jensg@apache.org> Mon Mar 29 22:36:19 2021 +0200
committer Jens Geyer <jensg@apache.org> Mon Mar 29 22:59:59 2021 +0200
tree 9d65d7ec38fe3c903703083770f02596170a42ea
parent 589ee5b160f808fdee18ae9657d7c9e2f70014f0

THRIFT-5386 XML-HTTP client may throw "max message size reached" incorrectly
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 a3f387b..6704c12 100644
--- a/lib/delphi/src/Thrift.Transport.MsxmlHTTP.pas
+++ b/lib/delphi/src/Thrift.Transport.MsxmlHTTP.pas
@@ -256,6 +256,7 @@
     xmlhttp.send( IUnknown( TStreamAdapter.Create( ms, soReference )));
     FInputStream := nil;
     FInputStream := TThriftStreamAdapterCOM.Create( IUnknown( xmlhttp.responseStream) as IStream);
+    ResetConsumedMessageSize;
     UpdateKnownMessageSize( FInputStream.Size);
   finally
     ms.Free;