mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-15 15:55:54 +01:00
367 lines
12 KiB
ObjectPascal
367 lines
12 KiB
ObjectPascal
unit MVCFramework.Router;
|
||
|
||
interface
|
||
|
||
uses
|
||
Web.HTTPApp,
|
||
RTTIUtilsU,
|
||
MVCFramework.Commons,
|
||
System.RTTI,
|
||
MVCFramework,
|
||
System.Generics.Collections;
|
||
|
||
type
|
||
TMVCRouter = class
|
||
private
|
||
FCTX: TRttiContext;
|
||
FMethodToCall: TRTTIMethod;
|
||
FMVCControllerClass: TMVCControllerClass;
|
||
FMVCConfig: TMVCConfig;
|
||
function IsHTTPContentTypeCompatible(AWebRequestMethodType: TMVCHTTPMethodType; AContentType: AnsiString;
|
||
AAttributes: TArray<TCustomAttribute>): Boolean;
|
||
function IsHTTPAcceptCompatible(AWebRequestMethodType: TMVCHTTPMethodType; AAccept: AnsiString;
|
||
AAttributes: TArray<TCustomAttribute>): Boolean;
|
||
function GetFirstMimeType(const AContentType: string): string;
|
||
protected
|
||
function IsHTTPMethodCompatible(AMethodType: TMVCHTTPMethodType;
|
||
AAttributes: TArray<TCustomAttribute>): Boolean; virtual;
|
||
function IsCompatiblePath(AMVCPath: string; APath: string;
|
||
var AParams: TMVCRequestParamsTable): Boolean; virtual;
|
||
function GetAttribute<T: TCustomAttribute>(AAttributes
|
||
: TArray<TCustomAttribute>): T;
|
||
|
||
public
|
||
class function StringMethodToHTTPMetod(const Value: AnsiString)
|
||
: TMVCHTTPMethodType;
|
||
constructor Create(AMVCConfig: TMVCConfig);
|
||
function ExecuteRouting(AWebRequestPathInfo: AnsiString;
|
||
AWebRequestMethodType: TMVCHTTPMethodType;
|
||
AWebRequestContentType: AnsiString;
|
||
AWebRequestAccept: AnsiString;
|
||
AMVCControllers: TList<TMVCControllerClass>;
|
||
ADefaultContentType: string;
|
||
ADefaultContentCharset: string;
|
||
var AMVCRequestParams: TMVCRequestParamsTable;
|
||
out AResponseContentType: string;
|
||
out AResponseContentEncoding: string)
|
||
: Boolean; overload;
|
||
property MethodToCall: TRTTIMethod read FMethodToCall;
|
||
property MVCControllerClass: TMVCControllerClass read FMVCControllerClass;
|
||
end;
|
||
|
||
implementation
|
||
|
||
uses
|
||
System.StrUtils,
|
||
System.RegularExpressions,
|
||
System.SysUtils,
|
||
idURI;
|
||
|
||
{ TMVCRouter }
|
||
|
||
constructor TMVCRouter.Create(AMVCConfig: TMVCConfig);
|
||
begin
|
||
inherited Create;
|
||
FMVCConfig := AMVCConfig;
|
||
end;
|
||
|
||
function TMVCRouter.ExecuteRouting(AWebRequestPathInfo: AnsiString;
|
||
AWebRequestMethodType: TMVCHTTPMethodType; AWebRequestContentType: AnsiString; AWebRequestAccept: AnsiString;
|
||
AMVCControllers: TList<TMVCControllerClass>;
|
||
ADefaultContentType, ADefaultContentCharset: string;
|
||
var AMVCRequestParams: TMVCRequestParamsTable;
|
||
out AResponseContentType: string;
|
||
out AResponseContentEncoding: string): Boolean;
|
||
var
|
||
controllerClass: TMVCControllerClass;
|
||
_type: TRttiType;
|
||
_methods: TArray<TRTTIMethod>;
|
||
_method: TRTTIMethod;
|
||
_attribute: TCustomAttribute;
|
||
_attributes: TArray<TCustomAttribute>;
|
||
i: Integer;
|
||
ControllerMappedPath: string;
|
||
MethodPathAttribute: string;
|
||
MVCProduceAttr: MVCProducesAttribute;
|
||
begin
|
||
FMethodToCall := nil;
|
||
FMVCControllerClass := nil;
|
||
|
||
if trim(AWebRequestPathInfo) = EmptyStr then
|
||
AWebRequestPathInfo := '/'
|
||
else
|
||
begin
|
||
if AWebRequestPathInfo[1] <> '/' then
|
||
AWebRequestPathInfo := '/' + AWebRequestPathInfo;
|
||
end;
|
||
|
||
// daniele
|
||
AWebRequestPathInfo := TIdURI.URLDecode(AWebRequestPathInfo);
|
||
|
||
{ ISAPI CHANGE THE REQUEST PATH INFO START }
|
||
if IsLibrary then
|
||
begin
|
||
AWebRequestPathInfo := string(AWebRequestPathInfo).Remove(0, FMVCConfig.Value[TMVCConfigKey.ISAPIPath].Length);
|
||
if Length(AWebRequestPathInfo) = 0 then
|
||
AWebRequestPathInfo := '/';
|
||
end;
|
||
{ ISAPI CHANGE THE REQUEST PATH INFO END }
|
||
|
||
TMonitor.Enter(Lock); // start of lock
|
||
try
|
||
|
||
Result := False;
|
||
ControllerMappedPath := '';
|
||
for controllerClass in AMVCControllers do
|
||
begin
|
||
SetLength(_attributes, 0);
|
||
_type := FCTX.GetType(controllerClass.ClassInfo);
|
||
_attributes := _type.GetAttributes;
|
||
if not Assigned(_attributes) then
|
||
Continue;
|
||
|
||
for _attribute in _attributes do
|
||
if _attribute is MVCPathAttribute then
|
||
begin
|
||
ControllerMappedPath := MVCPathAttribute(_attribute).Path;
|
||
Break;
|
||
end;
|
||
|
||
if ControllerMappedPath.IsEmpty then
|
||
raise EMVCException.Create('Controller ' + _type.Name +
|
||
' doesn''t have MVCPath attribute');
|
||
|
||
if ControllerMappedPath = '/' then // WE WANT TO AVOID '//' AS MVCPATH
|
||
ControllerMappedPath := '';
|
||
|
||
if (not ControllerMappedPath.IsEmpty) and
|
||
(Pos(ControllerMappedPath, AWebRequestPathInfo) <> 1) then
|
||
Continue;
|
||
|
||
_methods := _type.GetMethods;
|
||
for _method in _methods do
|
||
begin
|
||
_attributes := _method.GetAttributes;
|
||
for i := 0 to Length(_attributes) - 1 do
|
||
begin
|
||
_attribute := _attributes[i];
|
||
if _attribute is MVCPathAttribute then
|
||
begin
|
||
if IsHTTPMethodCompatible(AWebRequestMethodType, _attributes) and
|
||
IsHTTPContentTypeCompatible(AWebRequestMethodType, AWebRequestContentType, _attributes) and
|
||
IsHTTPAcceptCompatible(AWebRequestMethodType, AWebRequestAccept, _attributes) then
|
||
begin
|
||
MethodPathAttribute := MVCPathAttribute(_attribute).Path;
|
||
if IsCompatiblePath(ControllerMappedPath + MethodPathAttribute,
|
||
AWebRequestPathInfo, AMVCRequestParams) then
|
||
begin
|
||
FMethodToCall := _method;
|
||
FMVCControllerClass := controllerClass;
|
||
// getting the default contenttype using MVCProduceAttribute
|
||
MVCProduceAttr := GetAttribute<MVCProducesAttribute>(_attributes);
|
||
if Assigned(MVCProduceAttr) then
|
||
begin
|
||
AResponseContentType := MVCProduceAttr.Value;
|
||
AResponseContentEncoding := MVCProduceAttr.ProduceEncoding;
|
||
end
|
||
else
|
||
begin
|
||
AResponseContentType := ADefaultContentType;
|
||
AResponseContentEncoding := ADefaultContentCharset;
|
||
end;
|
||
Exit(true);
|
||
end; // if is compatible path
|
||
end; // if is compatible method, contenttype and accept
|
||
end; // if attribute is mvcpath
|
||
end; // for each attributes on method
|
||
end; // for each methods
|
||
end; // for each controllers
|
||
finally
|
||
TMonitor.Exit(Lock);
|
||
end;
|
||
end;
|
||
|
||
function TMVCRouter.GetAttribute<T>(AAttributes: TArray<TCustomAttribute>): T;
|
||
var
|
||
a: TCustomAttribute;
|
||
begin
|
||
Result := nil;
|
||
for a in AAttributes do
|
||
if a is T then
|
||
Exit(T(a));
|
||
end;
|
||
|
||
function TMVCRouter.GetFirstMimeType(
|
||
const AContentType: string): string;
|
||
begin
|
||
Result := AContentType;
|
||
while Pos(',', Result) > 0 do
|
||
Result := Copy(Result, 1, Pos(',', Result) - 1);
|
||
while Pos(';', Result) > 0 do
|
||
Result := Copy(Result, 1, Pos(';', Result) - 1); // application/json;charset=UTF-8 {daniele}
|
||
end;
|
||
|
||
function TMVCRouter.IsCompatiblePath(AMVCPath: string; APath: string;
|
||
var AParams: TMVCRequestParamsTable): Boolean;
|
||
function ToPattern(const V: string; Names: TList<string>): string;
|
||
var
|
||
s: string;
|
||
begin
|
||
Result := V;
|
||
for s in Names do
|
||
Result := StringReplace(Result, '($' + s + ')',
|
||
'([ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>\.\_\,%\w\d\x2D\x3A]*)', [rfReplaceAll]);
|
||
end;
|
||
|
||
function GetParametersNames(const V: string): TList<string>;
|
||
var
|
||
s: string;
|
||
matches: TMatchCollection;
|
||
match: TMatch;
|
||
i: Integer;
|
||
begin
|
||
Result := TList<string>.Create;
|
||
s := '\(\$([A-Za-z0-9]+)\)';
|
||
matches := TRegEx.matches(V, s, [roIgnoreCase, roCompiled, roSingleLine]);
|
||
for match in matches do
|
||
for i := 0 to match.Groups.Count - 1 do
|
||
begin
|
||
s := match.Groups[i].Value;
|
||
if (Length(s) > 0) and (s[1] <> '(') then
|
||
begin
|
||
Result.Add(s);
|
||
Break;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
var
|
||
re: TRegEx;
|
||
m: TMatch;
|
||
pattern: string;
|
||
i: Integer;
|
||
Names: TList<string>;
|
||
begin
|
||
Names := GetParametersNames(AMVCPath);
|
||
try
|
||
pattern := ToPattern(AMVCPath, Names);
|
||
if APath = AMVCPath then
|
||
Exit(true)
|
||
else
|
||
begin
|
||
re := TRegEx.Create('^' + pattern + '$', [roIgnoreCase, roCompiled,
|
||
roSingleLine]);
|
||
m := re.match(APath);
|
||
Result := m.Success;
|
||
if Result then
|
||
for i := 1 to pred(m.Groups.Count) do
|
||
AParams.Add(Names[i - 1], TIdURI.URLDecode(m.Groups[i].Value));
|
||
end;
|
||
finally
|
||
Names.Free;
|
||
end;
|
||
end;
|
||
|
||
function TMVCRouter.IsHTTPAcceptCompatible(AWebRequestMethodType: TMVCHTTPMethodType; AAccept: AnsiString;
|
||
AAttributes: TArray<TCustomAttribute>): Boolean;
|
||
var
|
||
i: Integer;
|
||
MethodAccept: string;
|
||
FoundOneAttribProduces: Boolean;
|
||
begin
|
||
Result := False;
|
||
FoundOneAttribProduces := False;
|
||
for i := 0 to high(AAttributes) do
|
||
begin
|
||
if AAttributes[i] is MVCProducesAttribute then
|
||
begin
|
||
FoundOneAttribProduces := true;
|
||
MethodAccept := MVCProducesAttribute(AAttributes[i]).Value;
|
||
AAccept := GetFirstMimeType(AAccept);
|
||
// while Pos(',', AAccept) > 0 do
|
||
// AAccept := Copy(AAccept, 1, Pos(',', AAccept) - 1);
|
||
|
||
Result := SameText(AAccept, MethodAccept, loInvariantLocale);
|
||
if Result then
|
||
Break;
|
||
end;
|
||
end;
|
||
Result := (not FoundOneAttribProduces) or (FoundOneAttribProduces and Result);
|
||
end;
|
||
|
||
function TMVCRouter.IsHTTPContentTypeCompatible(AWebRequestMethodType: TMVCHTTPMethodType;
|
||
AContentType: AnsiString; AAttributes: TArray<TCustomAttribute>): Boolean;
|
||
var
|
||
i: Integer;
|
||
MethodContentType: string;
|
||
FoundOneAttribConsumes: Boolean;
|
||
begin
|
||
// content type is applicable only for PUT, POST and PATCH
|
||
if AWebRequestMethodType in [httpGET, httpDELETE, httpHEAD, httpOPTIONS] then
|
||
Exit(true);
|
||
|
||
Result := False;
|
||
FoundOneAttribConsumes := False;
|
||
for i := 0 to high(AAttributes) do
|
||
begin
|
||
if AAttributes[i] is MVCConsumesAttribute then
|
||
begin
|
||
FoundOneAttribConsumes := true;
|
||
MethodContentType := MVCConsumesAttribute(AAttributes[i]).Value;
|
||
AContentType := GetFirstMimeType(AContentType);
|
||
Result := SameText(AContentType, MethodContentType, loInvariantLocale);
|
||
if Result then
|
||
Break;
|
||
end;
|
||
end;
|
||
Result := (not FoundOneAttribConsumes) or (FoundOneAttribConsumes and Result);
|
||
end;
|
||
|
||
function TMVCRouter.IsHTTPMethodCompatible(AMethodType: TMVCHTTPMethodType;
|
||
AAttributes: TArray<TCustomAttribute>): Boolean;
|
||
var
|
||
i: Integer;
|
||
MustBeCompatible: Boolean;
|
||
CompatibleMethods: TMVCHTTPMethods;
|
||
begin
|
||
Result := False;
|
||
// if there aren't MVCHTTPMethod attributes defined, the action is compatibile with all methods
|
||
MustBeCompatible := False;
|
||
for i := 0 to high(AAttributes) do
|
||
begin
|
||
if AAttributes[i] is MVCHTTPMethodAttribute then
|
||
begin
|
||
MustBeCompatible := true;
|
||
CompatibleMethods := MVCHTTPMethodAttribute(AAttributes[i])
|
||
.MVCHTTPMethods;
|
||
Result := (AMethodType in CompatibleMethods);
|
||
end;
|
||
end;
|
||
Result := (not MustBeCompatible) or (MustBeCompatible and Result);
|
||
end;
|
||
|
||
class
|
||
function TMVCRouter.StringMethodToHTTPMetod(const Value: AnsiString)
|
||
: TMVCHTTPMethodType;
|
||
begin
|
||
if Value = 'GET' then
|
||
Exit(httpGET);
|
||
if Value = 'POST' then
|
||
Exit(httpPOST);
|
||
if Value = 'DELETE' then
|
||
Exit(httpDELETE);
|
||
if Value = 'PUT' then
|
||
Exit(httpPUT);
|
||
if Value = 'HEAD' then
|
||
Exit(httpHEAD);
|
||
if Value = 'OPTIONS' then
|
||
Exit(httpOPTIONS);
|
||
if Value = 'PATCH' then
|
||
Exit(httpPATCH);
|
||
if Value = 'TRACE' then
|
||
Exit(httpTRACE);
|
||
raise EMVCException.CreateFmt('Unknown HTTP method [%s]', [Value]);
|
||
end;
|
||
|
||
end.
|