Delphi/delphimvcframework
1
0
Fork 0
mirror of https://github.com/danieleteti/delphimvcframework.git synced 2024-11-16 16:25:54 +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; Result := fData;
end; end;
function TWebContext.GetHostingFrameworkType: TMVCHostingFrameworkType; function TWebContext.GetHostingFrameworkType: TMVCHostingFrameworkType;
begin begin
{$IFDEF WEBAPACHEHTTP} {$IFDEF WEBAPACHEHTTP}
if FRequest.ClassType = TApacheRequest then if FRequest.ClassType = TApacheRequest then
begin begin
Exit(hftApache); Exit(hftApache);
end
else
begin
{$IFNDEF LINUX}
if FRequest.ClassType = TISAPIRequest then
begin
Exit(hftISAPI);
end
else
{$ENDIF}
{$ENDIF}
begin
Exit(hftIndy);
end;
end; end;
{$ENDIF}
{$IFDEF MSWINDOWS}
if FRequest.ClassType = TISAPIRequest then
begin
Exit(hftISAPI);
end;
{$ENDIF}
Exit(hftIndy);
end; end;
{ MVCFromBodyAttribute } { MVCFromBodyAttribute }