mORMot Open Source

program TestLog;

{$MODE Delphi}
uses
  {$I mormot.uses.inc}
  classes,
  mormot.core.base,
  mormot.core.os,
  mormot.core.log,
  mormot.net.server,
  mormot.net.http;
type
  TTest = class
  private
    fServer: THttpServer;
    function Request(Ctxt: THttpServerRequestAbstract): cardinal;
    procedure Stop(Sender: TThread);
    procedure Start(Sender: TThread);
  end;

function TTest.Request(Ctxt: THttpServerRequestAbstract): cardinal;
begin
  TSynLog.Add.Log(sllTrace, 'Start request');
  Result := HTTP_SUCCESS;
  TSynLog.Add.Log(sllTrace, 'End request');
end;

procedure TTest.Stop(Sender: TThread);
begin
  TSynLog.Add.Log(sllTrace, 'End thread');
end;

procedure TTest.Start(Sender: TThread);
begin
  TSynLog.Add.Log(sllTrace, 'Start thread');
end;

begin
  with TSynLog.Family do
  begin
    Level := LOG_VERBOSE;
    EchoToConsole := LOG_VERBOSE;
    //PerThreadLog := ptIdentifiedInOneFile;
    //AutoFlushTimeOut := 10;
  end;
  with TTest.Create do
  try
    fServer := THttpServer.Create('8088', start, stop, '', 0);
    fServer.WaitStarted();
    fServer.OnRequest := Request;
    writeln('Server is now running');
    ConsoleWaitForEnterKey;
  finally
    Free;
  end;
end.

program Test;

uses
  {$I SynDprUses.inc}
  SynCommons, SynCrtSock, SynLog;

{$APPTYPE CONSOLE}

type
  TTestServer = class
  private
    fServer: THttpServerGeneric;
  public
    constructor Create;
    destructor Destroy; override;
    function onRequest(Ctxt: THttpServerRequest): cardinal;
  end;

constructor TTestServer.Create;
begin
  fServer := THttpServer.Create('8888', nil, nil, '');
//  fServer := THttpApiServer.Create(false);
//  THttpApiServer(fServer).AddUrl('','8888', False, 'localhost');
  fServer.OnRequest := onRequest;
  with TSynLog.Family do
  begin
    Level := LOG_VERBOSE;
    EchoToConsole := LOG_VERBOSE;
    PerThreadLog := ptIdentifiedInOnFile;
  end;
end;

destructor TTestServer.Destroy;
begin
  fServer.Free;
  inherited;
end;

function TTestServer.onRequest(Ctxt: THttpServerRequest): cardinal;
begin
  Writeln('Hello!');
  Ctxt.OutContentType := HTML_CONTENT_TYPE;
  Ctxt.OutContent := 'Hello!';
  Result := 200;
end;

var
  LServer: TTestServer;

begin
  LServer := TTestServer.Create;
  Writeln('Server localhost:8888');
  Readln;
  LServer.Free;
end.