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

version 1.1.268--yellow-neon

Browse Source
This commit is contained in:
Daniele Teti 2021-12-23 18:59:10 +01:00
parent cd61ef09a5
commit 3947357a90
1 changed files with 9 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
sources/MVCFramework.pas
View File

@ -1973,27 +1973,22 @@ begin
Result := fData;
end;
function TWebContext.GetHostingFrameworkType: TMVCHostingFrameworkType;
begin
{$IFDEF WEBAPACHEHTTP}
if FRequest.ClassType = TApacheRequest then
begin
Exit(hftApache);
end
else
begin
{$IFNDEF LINUX}
if FRequest.ClassType = TISAPIRequest then
begin
Exit(hftISAPI);
end
else
{$ENDIF}
{$ENDIF}
begin
Exit(hftIndy);
end;
end;
{$ENDIF}
{$IFDEF MSWINDOWS}
if FRequest.ClassType = TISAPIRequest then
begin
Exit(hftISAPI);
end;
{$ENDIF}
Exit(hftIndy);
end;
{ MVCFromBodyAttribute }