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

32 lines
721 B
ObjectPascal

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.