FIX #334

README.md

@@ -259,6 +259,8 @@ end;
 
 - Fixed! [issue312](https://github.com/danieleteti/delphimvcframework/issues/312)
 
+- Fixed! [issue334](https://github.com/danieleteti/delphimvcframework/issues/334)
+
 - **Breaking Change!** In `MVCActiveRecord` attribute `MVCPrimaryKey` has been removed and merged with `MVCTableField`, so now `TMVCActiveRecordFieldOption` is a set of `foPrimaryKey`, `foAutoGenerated`, `foTransient` (check `activerecord_showcase.dproj` sample).
 
 - **Breaking Change!** Middleware `OnAfterControllerAction` are now invoked in the same order of `OnBeforeControllerAction` (previously were invoked in reversed order).

samples/fileupload/WebModuleUnit1.pas

@@ -24,15 +24,20 @@   TWebModule1 = class(TWebModule)
 
 implementation
 
-uses FileUploadControllerU, MVCFramework.Commons,
-  MVCFramework.View.Renderers.TemplatePro;
+uses
+  FileUploadControllerU,
+  MVCFramework.Commons,
+  MVCFramework.View.Renderers.TemplatePro,
+  MVCFramework.Middleware.Trace;
 
 {$R *.dfm}
 
+
 procedure TWebModule1.WebModuleCreate(Sender: TObject);
 begin
   MVC := TMVCEngine.Create(self);
   MVC.AddController(TFileUploadController);
+  MVC.AddMiddleware(TMVCTraceMiddleware.Create);
   MVC.SetViewEngine(TMVCTemplateProViewEngine);
   MVC.Config[TMVCConfigKey.ViewPath] := ExtractFilePath(GetModuleName(HInstance)
     ) + '..\..\templates';

sources/MVCFramework.Middleware.Trace.pas

@@ -85,14 +85,22 @@ procedure TMVCTraceMiddleware.OnBeforeControllerAction(Context: TWebContext;
 procedure TMVCTraceMiddleware.OnBeforeRouting(Context: TWebContext; var Handled: Boolean);
 var
   lContentStream: TStringStream;
+  lContentType: string;
 begin
   lContentStream := TStringStream.Create;
   try
     Context.Request.RawWebRequest.ReadTotalContent;
     Log.Debug('[REQUEST][URL] ' + Context.Request.RawWebRequest.PathInfo, 'trace');
     Log.Debug('[REQUEST][QUERYSTRING] ' + Context.Request.RawWebRequest.QueryFields.DelimitedText, 'trace');
-    lContentStream.WriteString(EncodingGetString(Context.Request.Headers['content-type'],
-      Context.Request.RawWebRequest.RawContent));
+    lContentType := Context.Request.Headers['content-type'].ToLower;
+    if lContentType.Equals(TMVCMediaType.APPLICATION_JSON) or
+      lContentType.Equals(TMVCMediaType.APPLICATION_XML) or
+      lContentType.Equals(TMVCMediaType.APPLICATION_FORM_URLENCODED) or
+      lContentType.StartsWith('text/') then
+    begin
+      lContentStream.WriteString(EncodingGetString(lContentType,
+        Context.Request.RawWebRequest.RawContent));
+    end;
     Log.Debug('[REQUEST][BODY] ' + lContentStream.DataString, 'trace');
   finally
     lContentStream.Free;

unittests/general/Several/LiveServerTestU.pas

@@ -145,6 +145,7 @@   TServerTest = class(TBaseServerTest)
     [Test]
     procedure TestPostAListOfObjects;
     // test authentication/authorization with BasicAuth
+    [Test]
     procedure TestBasicAuth01;
     [Test]
     procedure TestBasicAuth02;