Improved tryfindsessionbyid using count instead of loading full object

danieleteti · Jan 26, 2025 · aca41b3 · aca41b3
1 parent c46ee5c
commit aca41b3
Showing 1 changed file with 1 addition and 8 deletions.
diff --git a/sources/MVCFramework.Session.Database.pas b/sources/MVCFramework.Session.Database.pas
@@ -198,16 +198,9 @@ procedure TMVCWebSessionDatabaseFactory.TryDeleteSessionID(const ASessionID: Str
 end;
 
 function TMVCWebSessionDatabaseFactory.TryFindSessionID(const aSessionID: String): Boolean;
-var
-  lSess: TMVCSessionActiveRecord;
 begin
   inherited;
-  lSess := TMVCActiveRecord.SelectOneByRQL<TMVCSessionActiveRecord>(Format('eq(session_id, "%s")', [aSessionID]), False);
-  try
-    Result := Assigned(lSess);
-  finally
-    lSess.Free;
-  end;
+  Result := TMVCActiveRecord.Count<TMVCSessionActiveRecord>(Format('eq(session_id, "%s")', [aSessionID])) = 1;
 end;