[thrift] 03/04: THRIFT-5386 XML-HTTP client may throw "max message size reached" incorrectly Client: delphi Patch: Jens Geyer

[jensg]

This is an automated email from the ASF dual-hosted git repository.

jensg pushed a commit to branch master
in repository https://gitbox.apache.org/repos/asf/thrift.git

commit 036665edc1b1567e521472f295ce039a10d06b73
Author: Jens Geyer <je...@apache.org>
AuthorDate: Mon Mar 29 22:36:19 2021 +0200

    THRIFT-5386 XML-HTTP client may throw "max message size reached" incorrectly
    Client: delphi
    Patch: Jens Geyer
---
 lib/delphi/src/Thrift.Transport.MsxmlHTTP.pas | 1 +
 1 file changed, 1 insertion(+)

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 @@ begin
     xmlhttp.send( IUnknown( TStreamAdapter.Create( ms, soReference )));
     FInputStream := nil;
     FInputStream := TThriftStreamAdapterCOM.Create( IUnknown( 
xmlhttp.responseStream) as IStream);
+    ResetConsumedMessageSize;
     UpdateKnownMessageSize( FInputStream.Size);
   finally
     ms.Free;