[httpserver] better exception control

DelphiPraxis · Oct 22, 2020 · 2c5c3b7 · 2c5c3b7
1 parent 1a8f02e
commit 2c5c3b7
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/Quick.HttpServer.pas b/Quick.HttpServer.pas
@@ -391,16 +391,16 @@ procedure THTTPServer.OnGetRequest(aContext: TIdContext; aRequestInfo: TIdHTTPRe
     on E : Exception do
     begin
       //get unexpected exception
-      if E.ClassType <> EControlledException then
+      if E.InheritsFrom(EControlledException) then response.ContentText := response.ContentText + '<BR>' + e.Message
+      else
       begin
         if response.StatusCode = 200 then
         begin
           response.StatusCode := 500;
           response.StatusText := 'Internal server error';
         end;
         response.ContentText := e.Message;
-      end
-      else response.ContentText := response.ContentText + '<BR>' + e.Message;
+      end;
     end;
   end;
   //check if need return error page