source upload

contrib/mORMot/SQLite3/Samples/14 - Interface based services/Project14Interface.pas

@@ -0,0 +1,25 @@
+/// some common definitions shared by both client and server side
+unit Project14Interface;
+
+interface
+
+type
+  ICalculator = interface(IInvokable)
+    ['{9A60C8ED-CEB2-4E09-87D4-4A16F496E5FE}']
+    function Add(n1,n2: integer): integer;
+  end;
+
+const
+  ROOT_NAME = 'root';
+  PORT_NAME = '8888';
+  APPLICATION_NAME = 'RestService';
+
+implementation
+
+uses
+  mORMot;
+
+initialization
+  // so that we could use directly ICalculator instead of TypeInfo(ICalculator)
+  TInterfaceFactory.RegisterInterfaces([TypeInfo(ICalculator)]);
+end.