delphi-RestClient/TestServer.dpr at master · defcore/delphi-RestClient · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
program TestServer;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  System.Types,
  WiRL.Console.Base,
  WiRL.Console.Factory,
  WiRL.Core.Engine,
  WiRL.http.Server,
  WiRL.http.Server.Indy,
  WiRL.Configuration.Core,
  WiRL.Configuration.Neon,
  Neon.Core.Types,
  Server.Recources.Todos in 'Demo\Server.Recources.Todos.pas',
  Sample.Classes in 'Demo\Sample.Classes.pas';

var
  WiRLConsole: TWiRLConsoleBase;

begin
  try
    WiRLConsole := TWiRLConsoleFactory.NewConsole(
      procedure (AServer: TWiRLServer)
      begin
        AServer
          .SetPort(8080)
          .SetThreadPoolSize(10)
          .AddEngine<TWiRLEngine>('/rest')
          .SetEngineName('WiRL HelloWorld')

          // Adds and configures an application
          .AddApplication('/app')
            .SetResources('*')
            .SetFilters('*')
            .Plugin.Configure<IWiRLConfigurationNeon>
              .SetUseUTCDate(True)
              .SetMemberCase(TNeonCase.SnakeCase)
              .BackToApp
        ;
      end
    );
    try
      WiRLConsole.Start;
    finally
      WiRLConsole.Free;
    end;

    ExitCode := 0;
  except
    on E: Exception do
    begin
      ExitCode := 1;
      TWiRLConsoleLogger.LogError('Exception: ' + E.Message);
    end;
  end;
end.

{
var
  FServer: TWiRLServer;
begin

  FServer := TWiRLServer.Create(nil);

  FServer
    .SetPort(8080)
    .SetThreadPoolSize(20)
    .AddEngine<TWiRLEngine>('/rest')
    .SetEngineName('ErgoMobileTime')
    .AddApplication('/v1')
      .SetResources('*')
      .SetFilters('*')
      .Plugin.Configure<IWiRLConfigurationNeon>
        .SetUseUTCDate(True)
        .SetMemberCase(TNeonCase.SnakeCase);


    REadln;


    WiRLConsole := TWiRLConsoleFactory.NewConsole(
      procedure (AServer: TWiRLServer)
      begin
        AServer
          .SetPort(8080)
          .SetThreadPoolSize(10)
          .AddEngine<TWiRLEngine>('/rest')
          .SetEngineName('WiRL HelloWorld')

          // Adds and configures an application
          .AddApplication('/app')
            .SetResources([
              'Server.Resources.THelloWorldResource',
              'Server.Resources.TEntityResource'])
        ;
      end
    );
    try
      WiRLConsole.Start;
    finally
      WiRLConsole.Free;
    end;

    ExitCode := 0;
end.
}