source upload

2022-01-17 22:16:47 +02:00
parent 12936d065b
commit 098e8c48de
1778 changed files with 1206749 additions and 0 deletions
--- a/DDD/04/dom/DomConferenceInterfaces.pas
+++ b/DDD/04/dom/DomConferenceInterfaces.pas
@@ -0,0 +1,35 @@
+/// Conference Domain services interfaces definition
+unit DomConferenceInterfaces;
+
+interface
+
+uses
+  SysUtils,
+  Classes,
+  SynCommons,
+  mORMot,
+  DomConferenceTypes;
+
+{ Conference Domain Services }
+
+type
+  TRegisterAttendee = (raSuccess, raMissingField, raInvalidField,
+    raAlreadyRegistered, raPersistenceError);
+
+  IConferenceBooking = interface(IInvokable)
+    ['{0A128982-38E3-406E-B7B4-7FE212552BBF}']
+    function RegisterAttendee(const Name: TAttendeeName;
+      FirstName: TAttendeeFirstName; const Days: TSessionDays;
+      out Attendee: TAttendee): TRegisterAttendee;
+  end;
+
+
+implementation
+
+initialization
+  TJSONSerializer.RegisterObjArrayForJSON([
+    ]);
+  TInterfaceFactory.RegisterInterfaces([
+    TypeInfo(IConferenceBooking)
+    ]);
+end.