source upload

2022-01-17 22:16:47 +02:00
parent 12936d065b
commit 098e8c48de
1778 changed files with 1206749 additions and 0 deletions
--- a/WebSockets/Project31ChatCallbackInterface.pas
+++ b/WebSockets/Project31ChatCallbackInterface.pas
@@ -0,0 +1,31 @@
+unit Project31ChatCallbackInterface;
+
+interface
+
+uses
+  SysUtils,
+  SynCommons,
+  mORMot;
+
+type
+  IChatCallback = interface(IInvokable)
+    ['{EA7EFE51-3EBA-4047-A356-253374518D1D}']
+    procedure NotifyBlaBla(const pseudo, msg: string);
+  end;
+
+  IChatService = interface(IServiceWithCallbackReleased)
+    ['{C92DCBEA-C680-40BD-8D9C-3E6F2ED9C9CF}']
+    procedure Join(const pseudo: string; const callback: IChatCallback);
+    procedure BlaBla(const pseudo, msg: string);
+  end;
+
+const
+  PROJECT31_TRANSMISSION_KEY = 'meow_privatekey';
+
+  
+implementation
+
+initialization
+  TInterfaceFactory.RegisterInterfaces([
+    TypeInfo(IChatService),TypeInfo(IChatCallback)]);
+end.