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.
测试中的OrmModel中是不与真实的数据库关联。
在调用时，mormot框架对不同调用方式（get,post)进行了相应的处理，即
get baseUrl/Test/Add?a=1&b=2 与 post baseUrl/Test.Add (body为 {a: 1, b: 2} )都是可行的。
另外，Test.add(ormValue: TOrmXXX) mormot框架也会进行绑定。