Delphi/delphimvcframework
1
0
Fork 0
mirror of https://github.com/danieleteti/delphimvcframework.git synced 2024-11-15 07:45:54 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

https://github.com/danieleteti/delphimvcframework/issues/548 (WIP)

Browse Source
This commit is contained in:
Daniele Teti 2022-04-04 13:08:50 +02:00
parent 56dc4ede47
commit d750b19e55
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
samples/middleware_staticfiles/WebModuleU.pas
View File

@ -73,7 +73,7 @@ begin
'/static2',
TPath.Combine(ExtractFilePath(GetModuleName(HInstance)), 'www2'),
'index.html',True,'UTF-8',
procedure(const PathInfo: String; var Allow: Boolean)
procedure(var PathInfo: String; var Allow: Boolean)
begin
// This rule disallow any .txt file
Allow := not PathInfo.EndsWith('.txt', True);

2
sources/MVCFramework.Middleware.StaticFiles.pas
View File

@ -58,7 +58,7 @@ type
STATIC_FILES_CONTENT_CHARSET = TMVCConstants.DEFAULT_CONTENT_CHARSET;
end;
TMVCStaticFileRulesProc = reference to procedure(const PathInfo: String; var Allow: Boolean);
TMVCStaticFileRulesProc = reference to procedure(var PathInfo: String; var Allow: Boolean);
TMVCStaticFilesMiddleware = class(TInterfacedObject, IMVCMiddleware)
private