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
--- a/lib/delphi/src/Thrift.Protocol.pas
+++ b/lib/delphi/src/Thrift.Protocol.pas
@@ -1225,7 +1225,7 @@
function TBinaryProtocolImpl.TFactory.GetProtocol( const trans: ITransport): IProtocol;
begin
- Result := TBinaryProtocolImpl.Create( trans );
+ Result := TBinaryProtocolImpl.Create( trans, FStrictRead, FStrictWrite);
end;
end.