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/Project31LongWorkCallbackInterface.pas
+++ b/WebSockets/Project31LongWorkCallbackInterface.pas
@@ -0,0 +1,32 @@
+unit Project31LongWorkCallbackInterface;
+
+interface
+
+uses
+  SysUtils,
+  SynCommons,
+  mORMot;
+
+type
+  ILongWorkCallback = interface(IInvokable)
+    ['{425BF199-19C7-4B2B-B1A4-A5BE7A9A4748}']
+    procedure WorkFinished(const workName: string; timeTaken: integer);
+    procedure WorkFailed(const workName, error: string);
+  end;
+  
+  ILongWorkService = interface(IInvokable)
+    ['{09FDFCEF-86E5-4077-80D8-661801A9224A}']
+    procedure StartWork(const workName: string; const onFinish: ILongWorkCallback);
+    function TotalWorkCount: Integer;
+  end;
+
+const
+  PROJECT31_TRANSMISSION_KEY = 'longwork_privatekey';
+
+  
+implementation
+
+initialization
+  TInterfaceFactory.RegisterInterfaces([
+    TypeInfo(ILongWorkService),TypeInfo(ILongWorkCallback)]);
+end.