paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 20:00:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Ensure backwards compatibility

Browse Source 
git-svn-id: trunk@17503 -
This commit is contained in:
michael 2011-05-19 14:20:06 +00:00
parent 1274fb68bf
commit 3ea608a6f4
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
packages/fcl-web/src/base/websession.pp
View File

@ -41,6 +41,15 @@ Var
Function GetDefaultSession : TCustomSession; Function GetDefaultSession : TCustomSession;
implementation implementation
type
{ TWebSessionFactory }
TWebSessionFactory = Class(TIniSessionFactory)
Protected
Function DoCreateSession(ARequest : TRequest) : TCustomSession; override;
end;
Function GetDefaultSession : TCustomSession; Function GetDefaultSession : TCustomSession;
@ -73,8 +82,21 @@ begin
{$ifdef cgidebug}SendMethodExit('GetDefaultSession');{$endif} {$ifdef cgidebug}SendMethodExit('GetDefaultSession');{$endif}
end; end;
{ TWebSessionFactory }
function TWebSessionFactory.DoCreateSession(ARequest: TRequest
): TCustomSession;
begin
Result:=Nil;
if Assigned(OnGetDefaultSession) then
OnGetDefaultSession(Result);
if Result=Nil then
Result:=inherited DoCreateSession(ARequest);
end;
initialization initialization
IniWebSessionClass:=TFPWebSession; IniWebSessionClass:=TFPWebSession;
SessionFactoryClass:=TWebSessionFactory;
end. end.