program TCMWebservice;
uses
ActiveX,
System.Win.ComObj,
Vcl.SvcMgr,
SysUtils,
StrUtils,
Web.WebReq,
IdHTTPWebBrokerBridge,
srvMain in 'srvMain.pas' {GFSRestWebservice: TService},
serviceConsts in 'serviceConsts.pas',
ModDb in 'modules\ModDb.pas' {DataModule1: TDataModule},
ModWebModule in 'modules\ModWebModule.pas' {WebModuleMain: TWebModule},
ModSessionHandler in 'modules\ModSessionHandler.pas' {SessionHandler: TDataModule};
{$R *.RES}
var
sName : String;
DBConInit : TDataModule1;
begin
if not Application.DelayInitialize or Application.Installing then
Application.Initialize;
if WebRequestHandler <> nil then
begin
WebRequestHandler.WebModuleClass := WebModuleClass;
end;
Application.CreateForm(TTCMRestWebservice, TCMRestWebservice);
Application.CreateForm(TSessionHandler, SessionHandler);
try
sName := ExtractFileName (ParamStr (0));
sName := AnsiReplaceText (sName, ExtractFileExt (sName), '');
TCMRestWebservice.Name := sName;
TCMRestWebservice.DisplayName := sName;
sName := EmptyStr;
Application.Run;
except
on E:
Exception do
end;
end.