support for delphi 11.1

contrib/mORMot/SQLite3/Samples/30 - MVC Server/MVCServer.dpr

@@ -38,17 +38,25 @@ var aModel: TSQLModel;
     aApplication: TBlogApplication;
     aHTTPServer: TSQLHttpServer;
 begin
-  //with TSQLLog.Family do Level := LOG_VERBOSE;
+  with TSQLLog.Family do begin
+    Level := LOG_VERBOSE;
+    PerThreadLog := ptIdentifiedInOnFile;
+    RotateFileCount := 10;
+    RotateFileSizeKB := 20 shl 10;
+    FileExistsAction := acAppend; // as expected by rotation
+  end;
   aModel := CreateModel;
   try
     aServer := TSQLRestServerDB.Create(aModel,ChangeFileExt(ExeVersion.ProgramFileName,'.db'));
     try
       aServer.DB.Synchronous := smNormal;
       aServer.DB.LockingMode := lmExclusive;
+      aServer.Options := aServer.Options+[rsoNoTableURI];
       aServer.CreateMissingTables;
       aApplication := TBlogApplication.Create;
       try
         aApplication.Start(aServer);
+        aServer.ServiceMethodRegisterPublishedMethods('', aApplication);
         aHTTPServer := TSQLHttpServer.Create('8092',aServer
           {$ifndef ONLYUSEHTTPSOCKET},'+',useHttpApiRegisteringURI{$endif});
         try