- retirada do autocreate das ResponsePages do servidor, para nao ficar dando diferença entre versao compilada versao do conteudo

- implmentado no SynopseServer o evento OnTerminate para identificar queda no servidor

Author: FernandoBanhos

src/base/RALServer.pas

@@ -431,8 +431,6 @@ constructor TRALServer.Create(AOwner: TComponent);
   FShowServerStatus := True;
   FCookieLife := 30;
   FSSL := CreateRALSSL;
-
-  ResponsePages.CreateDefaultPages;
 end;
 
 function TRALServer.CreateRALSSL: TRALSSL;

src/engine/synopse/RALSynopseServer.pas

@@ -46,6 +46,7 @@   TRALSynopseServer = class(TRALServer)
     procedure SetSSL(const AValue: TRALSynopseSSL);
     function OnCommandProcess(AContext: THttpServerRequestAbstract): Cardinal;
     function OnSendFile(AContext: THttpServerRequestAbstract; const LocalFileName: TFileName): boolean;
+    procedure OnHttpTerminate(ASender : TObject);
   public
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
@@ -96,6 +97,7 @@ procedure TRALSynopseServer.SetActive(const AValue: boolean);
     FHttp.HttpQueueLength := FQueueSize;
     FHttp.OnSendFile := {$IFDEF FPC}@{$ENDIF}OnSendFile;
     FHttp.ServerName := 'RAL_Mormot2';
+    FHttp.OnTerminate := {$IFDEF FPC}@{$ENDIF}OnHttpTerminate;
     //    FHttp.RegisterCompressGzStatic := True;
     FHttp.OnRequest := {$IFDEF FPC}@{$ENDIF}OnCommandProcess;
     if SSL.Enabled then
@@ -312,6 +314,11 @@ function TRALSynopseServer.OnSendFile(AContext: THttpServerRequestAbstract;
   Result := True;
 end;
 
+procedure TRALSynopseServer.OnHttpTerminate(ASender: TObject);
+begin
+  Active := False;
+end;
+
 constructor TRALSynopseServer.Create(AOwner: TComponent);
 begin
   inherited;

src/utils/RALResponsePages.pas

@@ -48,17 +48,23 @@ function TRALResponsePages.GetHTMLPage(AStatusCode: IntegerRAL): StringRAL;
 var
   vInt: IntegerRAL;
   vPage: TRALResponsePage;
+  vFind: boolean;
 begin
   Result := '';
+  vFind := False;
   for vInt := 0 to Pred(Count) do
   begin
     vPage := TRALResponsePage(Items[vInt]);
     if vPage.StatusCode = AStatusCode then
     begin
       Result := vPage.Page.Text;
-      Exit;
+      vFind := True;
+      Break;
     end;
   end;
+
+  if not vFind then
+    Result := GetHTTPResponsePage(AStatusCode);
 end;
 
 constructor TRALResponsePages.Create(AOwner: TPersistent);