program ServerContainerBasicDemo;

{$APPTYPE CONSOLE}


uses
  System.SysUtils,
  Winapi.Windows,
  Winapi.ShellAPI,
  Web.WebReq,
  Web.WebBroker,
  MVCFramework.Console,
  MVCFramework.Server,
  MVCFramework.Server.Impl,
  CustomWebModuleU in 'CustomWebModuleU.pas' {CustomWebModule: TWebModule},
  App1MainControllerU in 'App1MainControllerU.pas',
  WebModule01U in 'WebModule01U.pas' {WebModule01: TWebModule},
  WebModule02U in 'WebModule02U.pas' {WebModule02: TWebModule},
  WebModule03U in 'WebModule03U.pas' {WebModule03: TWebModule};

{$R *.res}


procedure RunServer(APort: Integer);
var
  lServerListeners: IMVCListenersContext;
begin
  Writeln(Format('Starting HTTP Server or port %d, %d, %d and %d',
    [APort, APort + 10, APort + 20, APort + 30]));

  lServerListeners := TMVCListenersContext.Create;

  lServerListeners.Add(TMVCListenerProperties.New
    .SetName('BasicDemo1')
    .SetPort(APort)
    .SetMaxConnections(1024)
    .SetWebModuleClass(TWebModule01)
    );

  lServerListeners.Add(TMVCListenerProperties.New
    .SetName('BasicDemo2')
    .SetPort(APort + 10)
    .SetMaxConnections(1024)
    .SetWebModuleClass(TWebModule02)
    );

  lServerListeners.Add(TMVCListenerProperties.New
    .SetName('BasicDemo3')
    .SetPort(APort + 20)
    .SetMaxConnections(1024)
    .SetWebModuleClass(TWebModule03)
    );

  lServerListeners.Add(TMVCListenerProperties.New
    .SetName('BasicDemo4')
    .SetPort(APort + 30)
    .SetMaxConnections(1024)
    .SetWebModuleClass(TWebModule03)
    );

  lServerListeners.StartAll;

{$IFNDEF LINUX}
  ShellExecute(0, 'open', PChar('http://localhost:' + inttostr(APort) +
    '/div/10/10'), nil, nil, SW_SHOWMAXIMIZED);
  ShellExecute(0, 'open', PChar('http://localhost:' + inttostr(APort + 10) +
    '/div/10/20'), nil, nil, SW_SHOWMAXIMIZED);
  ShellExecute(0, 'open', PChar('http://localhost:' + inttostr(APort + 20) +
    '/div/10/30'), nil, nil, SW_SHOWMAXIMIZED);
  ShellExecute(0, 'open', PChar('http://localhost:' + inttostr(APort + 30) +
    '/div/10/40'), nil, nil, SW_SHOWMAXIMIZED);
{$ENDIF}
  Writeln('Press RETURN to stop the server');
  ReadLn;
end;

begin
  ReportMemoryLeaksOnShutdown := True;
  try
    RunServer(3000);
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;

end.