From 5cb0d22a03c709ec9f581a615b9274ab765cea26 Mon Sep 17 00:00:00 2001
From: Jens Geyer <jensg@apache.org>
Date: Thu, 7 Mar 2013 20:44:22 +0100
Subject: [PATCH] THRIFT-1873 Binary protocol factory ignores struct read/write
 flags

Patch: Jens Geyer
---
 lib/delphi/src/Thrift.Protocol.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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