mormot2 笔记(四) Services的使用

constructor TMyRestServer.Create(Port: Word);
begin
  inherited Create;

  FRestServerDB := TRestServerDB.Create(TOrmModelFactory.ModelInstance, SQLITE_MEMORY_DATABASE_NAME);
  FRestServerDB.DB.Synchronous := smOff;
  FRestServerDB.DB.LockingMode := lmExclusive;
  FRestServerDB.CreateMissingTables;

  FRestServerDB.ServiceDefine(TTest, [ITest], sicShared);

  FHttpServer := TRestHttpServer.Create(RawUtf8(Port.ToString), [FRestServerDB], '+', HTTP_DEFAULT_MODE, 4 );
  FHttpServer.AccessControlAllowOrigin := '*';
end;

type

  TTest = class(TInterfacedObject, ITest)
    function GetTime: TDateTime;
    function Add(a, b: Integer): Integer;
  end;

implementation

uses
  mormot.core.interfaces;

{ TTest }

function TTest.Add(a, b: Integer): Integer;
begin
  result := a+b;
end;

function TTest.GetTime: TDateTime;
begin
  Result := Now;
end;

initialization

  TInterfaceFactory.RegisterInterfaces([TypeInfo(ITest)]);

end.