Delphi DataSnap Rest服务器windows服务

我试图构建一个作为windows服务运行的DataSnap Rest应用程序，但向导只有“独立VCL应用程序”、“独立控制台应用程序”和“ISAPI动态链接库”（我使用的是Delphi XE2 enterprise）。有人可以帮我。谢谢。

如果DataSnap REST向导可以选择创建Windows服务（否则您将如何运行应用程序服务器？），那么会更方便，但是您可以稍微修改一下

在我第一次运行此程序时，我创建了一个常规DataSnap REST服务器作为VCL应用程序和常规Windows服务，并将相关部分从REST服务器复制到该服务。只需确保服务的输出目录与VCL应用程序的目录相同

服务的.dpr可能如下所示：

program Service;

uses
  Vcl.SvcMgr,
  Web.WebReq,
  IdHTTPWebBrokerBridge,
  WebModuleUnit1 in '..\GUI\WebModuleUnit1.pas' {WebModule1: TWebModule},
  ServerMethodsUnit1 in '..\GUI\ServerMethodsUnit1.pas' {ServerMethods1: TDSServerModule},
  ServerContainerUnit1 in '..\GUI\ServerContainerUnit1.pas' {ServerContainer1: TDataModule},
  Unit1 in 'Unit1.pas' {Service1: TService};

{$R *.RES}

begin
  if not Application.DelayInitialize or Application.Installing then
    Application.Initialize;

  if WebRequestHandler <> nil then
    WebRequestHandler.WebModuleClass := WebModuleClass;

  Application.CreateForm(TService1, Service1);
  Application.Run;
end.

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.SvcMgr, Vcl.Dialogs,
  IdHTTPWebBrokerBridge, Web.HTTPApp;

type
  TService1 = class(TService)
    procedure ServiceCreate(Sender: TObject);
    procedure ServiceExecute(Sender: TService);
    procedure ServiceStart(Sender: TService; var Started: Boolean);
    procedure ServiceStop(Sender: TService; var Stopped: Boolean);
  private
    FServer: TIdHTTPWebBrokerBridge;
    procedure TerminateThreads;
  public
    function GetServiceController: TServiceController; override;
  end;

var
  Service1: TService1;

implementation

{$R *.DFM}

uses
  //Datasnap.DSService;  // XE2
  Datasnap.DSSession;  // XE3

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  Service1.Controller(CtrlCode);
end;

{ TService1}

function TService1.GetServiceController: TServiceController;
begin
  Result := ServiceController;
end;

procedure TService1.ServiceCreate(Sender: TObject);
begin
  FServer := TIdHTTPWebBrokerBridge.Create(Self);
end;

procedure TService1.ServiceExecute(Sender: TService);
begin
  while not Terminated do
  begin
    Sleep(1000);
    ServiceThread.ProcessRequests(False);
  end;
end;

procedure TService1.ServiceStart(Sender: TService; var Started: Boolean);
begin
  if not FServer.Active then
  begin
    FServer.Bindings.Clear;
    FServer.DefaultPort := 8080;
    FServer.Active := True;
  end;
end;

procedure TService1.ServiceStop(Sender: TService; var Stopped: Boolean);
begin
  TerminateThreads;
  FServer.Active := False;
  FServer.Bindings.Clear;

  ServiceThread.Terminate;
end;

procedure TService1.TerminateThreads;
begin
  if TDSSessionManager.Instance <> nil then
    TDSSessionManager.Instance.TerminateAllSessions;
end;

end.

程序服务；
使用
Vcl.SvcMgr，
Web.WebReq，
IdHTTPWebBrokerBridge，
“..\GUI\WebModuleUnit1.pas”{WebModule1:TWebModule}中的WebModuleUnit1，
'..\GUI\ServerMethodsUnit1.pas'{ServerMethods1:TDSServerModule}中的ServerMethodsUnit1，
'..\GUI\ServerContainerUnit1.pas'{ServerContainer1:TDataModule}中的ServerContainerUnit1，
'Unit1.pas'{Service1:TService}中的Unit1；
{$R*.RES}
开始
如果不是Application.DelayInitialize或Application.Installing，则
应用程序初始化；
如果WebRequestHandler为nil，则
WebRequestHandler.WebModuleClass:=WebModuleClass；
Application.CreateForm（TService1，Service1）；
应用程序。运行；
结束。

服务的主要单元可能如下所示：

program Service;

uses
  Vcl.SvcMgr,
  Web.WebReq,
  IdHTTPWebBrokerBridge,
  WebModuleUnit1 in '..\GUI\WebModuleUnit1.pas' {WebModule1: TWebModule},
  ServerMethodsUnit1 in '..\GUI\ServerMethodsUnit1.pas' {ServerMethods1: TDSServerModule},
  ServerContainerUnit1 in '..\GUI\ServerContainerUnit1.pas' {ServerContainer1: TDataModule},
  Unit1 in 'Unit1.pas' {Service1: TService};

{$R *.RES}

begin
  if not Application.DelayInitialize or Application.Installing then
    Application.Initialize;

  if WebRequestHandler <> nil then
    WebRequestHandler.WebModuleClass := WebModuleClass;

  Application.CreateForm(TService1, Service1);
  Application.Run;
end.

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.SvcMgr, Vcl.Dialogs,
  IdHTTPWebBrokerBridge, Web.HTTPApp;

type
  TService1 = class(TService)
    procedure ServiceCreate(Sender: TObject);
    procedure ServiceExecute(Sender: TService);
    procedure ServiceStart(Sender: TService; var Started: Boolean);
    procedure ServiceStop(Sender: TService; var Stopped: Boolean);
  private
    FServer: TIdHTTPWebBrokerBridge;
    procedure TerminateThreads;
  public
    function GetServiceController: TServiceController; override;
  end;

var
  Service1: TService1;

implementation

{$R *.DFM}

uses
  //Datasnap.DSService;  // XE2
  Datasnap.DSSession;  // XE3

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  Service1.Controller(CtrlCode);
end;

{ TService1}

function TService1.GetServiceController: TServiceController;
begin
  Result := ServiceController;
end;

procedure TService1.ServiceCreate(Sender: TObject);
begin
  FServer := TIdHTTPWebBrokerBridge.Create(Self);
end;

procedure TService1.ServiceExecute(Sender: TService);
begin
  while not Terminated do
  begin
    Sleep(1000);
    ServiceThread.ProcessRequests(False);
  end;
end;

procedure TService1.ServiceStart(Sender: TService; var Started: Boolean);
begin
  if not FServer.Active then
  begin
    FServer.Bindings.Clear;
    FServer.DefaultPort := 8080;
    FServer.Active := True;
  end;
end;

procedure TService1.ServiceStop(Sender: TService; var Stopped: Boolean);
begin
  TerminateThreads;
  FServer.Active := False;
  FServer.Bindings.Clear;

  ServiceThread.Terminate;
end;

procedure TService1.TerminateThreads;
begin
  if TDSSessionManager.Instance <> nil then
    TDSSessionManager.Instance.TerminateAllSessions;
end;

end.

单元1；
接口
使用
Winapi.Windows、Winapi.Messages、System.SysUtils、System.class、，
Vcl.图形、Vcl.控件、Vcl.SvcMgr、Vcl.对话框、，
IdHTTPWebBrokerBridge，Web.HTTPApp；
类型
TService1=类（TService）
过程服务创建（发送方：TObject）；
过程ServiceExecute（发送方：TService）；
过程ServiceStart（发送方：TService；var start：Boolean）；
过程ServiceStop（发送方：TService；停止变量：Boolean）；
私有的
FServer:tidhtttpwebbrokerbridge；
程序终止读取；
公众的
函数GetServiceController:TServiceController；推翻
结束；
变量
服务1:t服务1；
实施
{$R*.DFM}
使用
//Datasnap.DSService；//XE2
Datasnap.DSSession；//XE3
程序服务控制员（CtrlCode:DWord）；stdcall；
开始
服务1.控制器（CtrlCode）；
结束；
{TService1}
函数TService1.GetServiceController:TServiceController；
开始
结果：=服务控制器；
结束；
过程TService1.ServiceCreate（发送方：TObject）；
开始
FServer:=TIdHTTPWebBrokerBridge.Create（Self）；
结束；
过程TService1.ServiceExecute（发送方：TService）；
开始
虽然没有终止
开始
睡眠（1000）；
ServiceThread.ProcessRequests（False）；
结束；
结束；
过程TService1.ServiceStart（发送方：TService；启动的变量：Boolean）；
开始
如果不是FServer.Active，则
开始
FServer.Bindings.Clear；
FServer.DefaultPort:=8080；
FServer.Active:=True；
结束；
结束；
过程TService1.ServiceStop（发送方：TService；停止变量：布尔值）；
开始
终端阅读；
FServer.Active:=False；
FServer.Bindings.Clear；
ServiceThread.终止；
结束；
程序TService1.1；
开始
如果TDSSessionManager.Instance为nil，则
TDSSessionManager.Instance.TerminateAllSessions；
结束；
结束。

为什么关闭请求？这个问题怎么不是建设性的？