QuickLib/samples/delphi/QuickHttpServer/HttpServer/HttpServerService.dpr

program HttpServerService;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  Quick.Commons,
  Quick.Logger.Intf,
  Quick.Console,
  Quick.AppService,
  Quick.HttpServer,
  Quick.HttpServer.Request,
  Quick.HttpServer.Response,
  HttpServerService.Logger in 'HttpServerService.Logger.pas';

type
  TMyHttpServer = class(THttpServer)
  public
    procedure ProcessRequest(aRequest: IHttpRequest; aResponse: IHttpResponse); override;
  end;

  procedure TMyHttpServer.ProcessRequest(aRequest: IHttpRequest; aResponse: IHttpResponse);
  begin
    aResponse.ContentText := 'Hello world!';
  end;

var
  HttpServer : TMyHttpServer;
  Port : Integer;
  Logger : TQuickLogger;

begin
  try
    ReportMemoryLeaksOnShutdown := True;

    //run as console
    Logger := TQuickLogger.Create;
    Logger.Init;

    // Use TCP port 8889 for demo
    // Otherise, we need to register/open the port
    Port:=8889;
    if not AppService.IsRunningAsService then
    begin
      //create server
      cout('Init server...',etInfo);
      if ParamCount > 0 then
      begin
        Integer.TryParse(ParamStr(1),Port)
      end;
      //start server
      if Port = 0 then Port := 8080;
      HttpServer := TMyHttpServer.Create('127.0.0.1',Port,False,Logger);
      try
        HttpServer.Start;
        //Wait for Exit
        cout(' ',ccWhite);
        cout('Press [Enter] to quit',ccYellow);
        ConsoleWaitForEnterKey;
      finally
        HttpServer.Free;
      end;
    end
    else //run as a service
    begin
      AppService.DisplayName := 'Remote Server';
      AppService.ServiceName := 'RemoteServerSvc';
      AppService.CanInstallWithOtherName := True;
      AppService.OnStart := procedure
                               begin
                                 HttpServer := TMyHttpServer.Create('127.0.0.1',Port,False,nil);
                               end;
      AppService.OnStop := HttpServer.Free;
      AppService.OnExecute := HttpServer.Start;
      AppService.CheckParams;
    end;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.