mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-16 00:05:53 +01:00
111 lines
3.7 KiB
ObjectPascal
111 lines
3.7 KiB
ObjectPascal
// ***************************************************************************
|
|
//
|
|
// Delphi MVC Framework
|
|
//
|
|
// Copyright (c) 2010-2020 Daniele Teti and the DMVCFramework Team
|
|
//
|
|
// https://github.com/danieleteti/delphimvcframework
|
|
//
|
|
// ***************************************************************************
|
|
//
|
|
// Licensed under the Apache License, Version 2.0 (the "License");
|
|
// you may not use this file except in compliance with the License.
|
|
// You may obtain a copy of the License at
|
|
//
|
|
// http://www.apache.org/licenses/LICENSE-2.0
|
|
//
|
|
// Unless required by applicable law or agreed to in writing, software
|
|
// distributed under the License is distributed on an "AS IS" BASIS,
|
|
// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
|
// See the License for the specific language governing permissions and
|
|
// limitations under the License.
|
|
//
|
|
// *************************************************************************** }
|
|
|
|
unit MVCFramework.Middleware.Trace;
|
|
|
|
{$I dmvcframework.inc}
|
|
|
|
interface
|
|
|
|
uses
|
|
MVCFramework,
|
|
MVCFramework.Logger;
|
|
|
|
type
|
|
TMVCTraceMiddleware = class(TInterfacedObject, IMVCMiddleware)
|
|
protected
|
|
procedure OnAfterControllerAction(Context: TWebContext; const AActionNAme: string;
|
|
const Handled: Boolean);
|
|
procedure OnBeforeRouting(Context: TWebContext; var Handled: Boolean);
|
|
procedure OnBeforeControllerAction(Context: TWebContext;
|
|
const AControllerQualifiedClassName: string; const AActionNAme: string; var Handled: Boolean);
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
System.SysUtils,
|
|
System.ZLib,
|
|
System.Classes,
|
|
MVCFramework.Commons, Web.HTTPApp;
|
|
|
|
{ TMVCSalutationMiddleware }
|
|
|
|
procedure TMVCTraceMiddleware.OnAfterControllerAction(Context: TWebContext;
|
|
const AActionNAme: string; const Handled: Boolean);
|
|
var
|
|
lContentStream: TStringStream;
|
|
begin
|
|
lContentStream := TStringStream.Create;
|
|
try
|
|
Log.Debug('[RESPONSE][HEADERS] ' + string.Join(' | ', Context.Response.CustomHeaders.ToStringArray), 'trace');
|
|
if Assigned(Context.Response.RawWebResponse.ContentStream) then
|
|
begin
|
|
lContentStream.CopyFrom(Context.Response.RawWebResponse.ContentStream, 0);
|
|
Context.Response.RawWebResponse.ContentStream.Position := 0;
|
|
end
|
|
else
|
|
begin
|
|
lContentStream.WriteString(Context.Response.RawWebResponse.Content);
|
|
end;
|
|
Log.Debug('[RESPONSE][BODY] ' + lContentStream.DataString, 'trace');
|
|
finally
|
|
lContentStream.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TMVCTraceMiddleware.OnBeforeControllerAction(Context: TWebContext;
|
|
const AControllerQualifiedClassName, AActionNAme: string; var Handled: Boolean);
|
|
begin
|
|
Log.Debug('[BEFORE ACTION][CONTROLLER: %s][ACTION: %s]',
|
|
[AControllerQualifiedClassName, AActionNAme], 'trace');
|
|
end;
|
|
|
|
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');
|
|
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;
|
|
end;
|
|
end;
|
|
|
|
end.
|