By default "Context.SessionStart" starts the configured type of session

danieleteti · Dec 23, 2024 · ca507e8 · ca507e8
1 parent 048e6f1
commit ca507e8
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/sources/MVCFramework.pas b/sources/MVCFramework.pas
@@ -563,7 +563,7 @@   TWebContext = class
       const AConfig: TMVCConfig; const ASerializers: TDictionary<string, IMVCSerializer>);
     destructor Destroy; override;
 
-    procedure SessionStart(const SessionType: String); virtual;
+    procedure SessionStart(SessionType: String = ''); virtual;
     procedure SessionStop(const ARaiseExceptionIfExpired: Boolean = True); virtual;
 
     function SessionStarted: Boolean;
@@ -2431,13 +2431,17 @@ function TWebContext.SessionMustBeClose: Boolean;
   Result := FSessionMustBeClose;
 end;
 
-procedure TWebContext.SessionStart(const SessionType: String);
+procedure TWebContext.SessionStart(SessionType: String);
 var
   ID: string;
 begin
   if not Assigned(FWebSession) then
   begin
     ID := TMVCEngine.SendSessionCookie(Self);
+    if SessionType.IsEmpty then
+    begin
+      SessionType := Config[TMVCConfigKey.SessionType];
+    end;
     FWebSession := AddSessionToTheSessionList(SessionType, ID,
       StrToInt64(Config[TMVCConfigKey.SessionTimeout]));
     FIsSessionStarted := True;