THRIFT-5740 inherited interfaces should be explicitly listed in Delphi class decl
Client: Delphi
Patch: Jens Geyer
diff --git a/lib/delphi/test/TestServer.pas b/lib/delphi/test/TestServer.pas
index 3ae82a1..1e3a393 100644
--- a/lib/delphi/test/TestServer.pas
+++ b/lib/delphi/test/TestServer.pas
@@ -55,7 +55,7 @@
procedure TestStop;
end;
- TTestHandlerImpl = class( TInterfacedObject, ITestHandler )
+ TTestHandlerImpl = class( TInterfacedObject, ITestHandler, TThriftTest.Iface)
strict private
FServer : IServer;
strict protected
diff --git a/tutorial/delphi/DelphiServer/DelphiServer.dpr b/tutorial/delphi/DelphiServer/DelphiServer.dpr
index 5f2dc45..6b8e115 100644
--- a/tutorial/delphi/DelphiServer/DelphiServer.dpr
+++ b/tutorial/delphi/DelphiServer/DelphiServer.dpr
@@ -41,7 +41,7 @@
type
- TCalculatorHandler = class( TInterfacedObject, TCalculator.Iface)
+ TCalculatorHandler = class( TInterfacedObject, TSharedService.Iface, TCalculator.Iface)
protected
FLog : TDictionary< Integer, ISharedStruct>;