THRIFT-1873 Binary protocol factory ignores struct read/write flags

Patch: Jens Geyer

diff --git a/lib/delphi/src/Thrift.Protocol.pas b/lib/delphi/src/Thrift.Protocol.pas
index 33e17d7..4c1954c 100644 (file)
--- a/lib/delphi/src/Thrift.Protocol.pas
+++ b/lib/delphi/src/Thrift.Protocol.pas
@@ -1225,7 +1225,7 @@ end;
 \r
 function TBinaryProtocolImpl.TFactory.GetProtocol( const trans: ITransport): IProtocol;\r
 begin\r
-  Result := TBinaryProtocolImpl.Create( trans );\r
+  Result := TBinaryProtocolImpl.Create( trans, FStrictRead, FStrictWrite);\r
 end;\r
 \r
 end.\r