WIP

danieleteti · Jan 13, 2025 · 3f60e56 · 3f60e56
1 parent a719bc0
commit 3f60e56
Show file tree

Hide file tree

Showing 6 changed files with 308 additions and 228 deletions.
diff --git a/samples/sessions_on_database/DBSessionSample.dpr b/samples/sessions_on_database/DBSessionSample.dpr
@@ -17,7 +17,7 @@ uses
   IdHTTPWebBrokerBridge,
   WebModuleUnit1 in 'WebModuleUnit1.pas' {WebModule1: TWebModule},
   AppControllerU in 'AppControllerU.pas',
-  MVCFramework.Session.ActiveRecord in '..\..\sources\MVCFramework.Session.ActiveRecord.pas';
+  MVCFramework.Session.Database in '..\..\sources\MVCFramework.Session.Database.pas';
 
 {$R *.res}
 

diff --git a/samples/sessions_on_database/DBSessionSample.dproj b/samples/sessions_on_database/DBSessionSample.dproj
@@ -99,7 +99,7 @@
             <DesignClass>TWebModule</DesignClass>
         </DCCReference>
         <DCCReference Include="AppControllerU.pas"/>
-        <DCCReference Include="..\..\sources\MVCFramework.Session.ActiveRecord.pas"/>
+        <DCCReference Include="..\..\sources\MVCFramework.Session.Database.pas"/>
         <BuildConfiguration Include="Base">
             <Key>Base</Key>
         </BuildConfiguration>

diff --git a/sources/MVCFramework.ActiveRecord.pas b/sources/MVCFramework.ActiveRecord.pas
@@ -1177,6 +1177,7 @@ function TMVCConnectionsRepository.GetByName(const aName: string): TFDConnection
     if not fConnectionsDict.TryGetValue(lKeyName, lConnHolder) then
       raise Exception.CreateFmt('Unknown connection %s', [aName]);
     Result := lConnHolder.Connection;
+    Result.Open;
   finally
     fMREW.EndRead;
   end;

diff --git a/sources/MVCFramework.Session.ActiveRecord.pas b/sources/MVCFramework.Session.ActiveRecord.pas