add(feat): integration of validation error in the standard error processing

Author: danieleteti

samples/validation_showcase/ValidationShowcaseClient.dpr

@@ -358,7 +358,7 @@ begin
   try
     LBody.S['name'] := 'Mario Rossi';
     LBody.S['email'] := 'mario.rossi@example.it';
-    LBody.S['taxId'] := 'RSSMRA85M01H501Z';
+    LBody.S['taxId'] := 'RSSMRA85M01H501Q';
     LBody.O['billingAddress'].S['street'] := 'Via Roma 123';
     LBody.O['billingAddress'].S['city'] := 'Roma';
     LBody.O['billingAddress'].S['postalCode'] := '00100';

sources/MVCFramework.Serializer.JsonDataObjects.CustomTypes.pas

@@ -38,6 +38,7 @@ interface
   MVCFramework.Serializer.Intf,
   MVCFramework.Serializer.Commons,
   JsonDataObjects,
+  System.SysConst,
   MVCFramework.Commons,
   MVCFramework.Serializer.JsonDataObjects;
 
@@ -169,7 +170,6 @@   TMVCGUIDSerializer = class(TInterfacedObject, IMVCTypeSerializer)
 implementation
 
 uses
-  System.SysConst,
   Data.DB,
   MVCFramework.DuckTyping,
   System.Generics.Collections,

sources/MVCFramework.pas

@@ -1330,7 +1330,8 @@ implementation
   MVCFramework.Serializer.HTML,
   MVCFramework.Serializer.Abstract,
   MVCFramework.Utils,
-  MVCFramework.Serializer.Text;
+  MVCFramework.Serializer.Text,
+  MVCFramework.Validation;
 
 var
   gIsShuttingDown: Boolean = False;
@@ -2756,6 +2757,9 @@ function TMVCEngine.ExecuteAction(const ASender: TObject; const ARequest: TWebRe
   lInvokeResult: TValue;
   lRespStatus: Integer;
   lRouterResult: TMVCRouterResult;
+  lEValidException: EMVCValidationException;
+  lValidationErrorsStr: string;
+  lValidationError: TPair<string, string>;
 begin
   Result := False;
 
@@ -3014,15 +3018,36 @@ function TMVCEngine.ExecuteAction(const ASender: TObject; const ARequest: TWebRe
             end;
             if not CustomExceptionHandling(E, lSelectedController, lContext) then
             begin
-              Log.Error('[%s] %s [PathInfo "%s"] - %d %s (Custom message: "%s")',
-                [
-                  E.Classname,
-                  E.Message,
-                  GetRequestShortDescription(ARequest),
-                  E.HTTPStatusCode,
-                  HTTP_STATUS.ReasonStringFor(E.HTTPStatusCode),
-                  E.DetailedMessage
-                ], LOGGERPRO_TAG);
+              if E is EMVCValidationException then
+              begin
+                lEValidException := EMVCValidationException(E);
+                lValidationErrorsStr := '';
+                for lValidationError in lEValidException.ValidationErrors do
+                begin
+                  if lValidationErrorsStr <> '' then
+                    lValidationErrorsStr := lValidationErrorsStr + '; ';
+                  lValidationErrorsStr := lValidationErrorsStr + lValidationError.Key + ': ' + lValidationError.Value;
+                end;
+                Log.Warn('[%s] %s [PathInfo "%s"] - %d %s (Validation Errors: "%s")',
+                  [
+                    lEValidException.Classname,
+                    lEValidException.Message,
+                    GetRequestShortDescription(ARequest),
+                    lEValidException.HTTPStatusCode,
+                    HTTP_STATUS.ReasonStringFor(lEValidException.HTTPStatusCode),
+                    lValidationErrorsStr
+                  ], LOGGERPRO_TAG)
+              end
+              else
+                Log.Error('[%s] %s [PathInfo "%s"] - %d %s (Custom message: "%s")',
+                  [
+                    E.Classname,
+                    E.Message,
+                    GetRequestShortDescription(ARequest),
+                    E.HTTPStatusCode,
+                    HTTP_STATUS.ReasonStringFor(E.HTTPStatusCode),
+                    E.DetailedMessage
+                  ], LOGGERPRO_TAG);
               if Assigned(lSelectedController) then
               begin
                 lSelectedController.ResponseStatus(E.HTTPStatusCode);

sources/dmvcframeworkbuildconsts.inc

@@ -1,2 +1,2 @@
 const
-  DMVCFRAMEWORK_VERSION = '3.4.3-aluminium';
+  DMVCFRAMEWORK_VERSION = '3.5.0-silicon-beta';