source upload

contrib/mORMot/SQLite3/Samples/27 - CrossPlatform Clients/RegressionTestsServer.dpr

@@ -0,0 +1,31 @@
+program RegressionTestsServer;
+
+{$i Synopse.inc} // define e.g. HASINLINE
+
+{$APPTYPE CONSOLE}
+
+uses
+  {$I SynDprUses.inc}
+  PeopleServer,
+  SynCommons,
+  SynLog,
+  mORMot,
+  SysUtils;
+
+begin
+  // define the log level
+  if false then
+  with TSQLLog.Family do begin
+    Level := LOG_VERBOSE; // LOG_STACKTRACE;
+    //EchoToConsole := LOG_VERBOSE; // events to the console
+    PerThreadLog := ptIdentifiedInOnFile;
+  end;
+  Writeln('Running Cross-Platform mORMot Server on port 888'#13#10+
+          'Using TSQLRestServerAuthenticationDefault'#13#10#10+
+          'You can now run FPC or SMS client applications'#13#10':)');
+  StartServer(psaDefault);
+  writeln(#13#10'Press [Enter] to quit');
+  readln;
+  StopServer;
+end.
+