THRIFT-5012 Centralize configuration aspects into a commonly used configuration object [ci skip]
Client: Delphi
Patch: Jens Geyer
This closes #1955
diff --git a/lib/delphi/test/skip/skiptest_version2.dpr b/lib/delphi/test/skip/skiptest_version2.dpr
index 7893748..07c2c9a 100644
--- a/lib/delphi/test/skip/skiptest_version2.dpr
+++ b/lib/delphi/test/skip/skiptest_version2.dpr
@@ -31,6 +31,7 @@
Thrift.Protocol in '..\..\src\Thrift.Protocol.pas',
Thrift.Protocol.JSON in '..\..\src\Thrift.Protocol.JSON.pas',
Thrift.Collections in '..\..\src\Thrift.Collections.pas',
+ Thrift.Configuration in '..\..\src\Thrift.Configuration.pas',
Thrift.Server in '..\..\src\Thrift.Server.pas',
Thrift.Utils in '..\..\src\Thrift.Utils.pas',
Thrift.WinHTTP in '..\..\src\Thrift.WinHTTP.pas',
@@ -96,8 +97,8 @@
begin
adapt := TThriftStreamAdapterDelphi.Create( stm, FALSE);
if aForInput
- then trans := TStreamTransportImpl.Create( adapt, nil)
- else trans := TStreamTransportImpl.Create( nil, adapt);
+ then trans := TStreamTransportImpl.Create( adapt, nil, TThriftConfigurationImpl.Create)
+ else trans := TStreamTransportImpl.Create( nil, adapt, TThriftConfigurationImpl.Create);
result := protfact.GetProtocol( trans);
end;