mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-15 15:55:54 +01:00
36 lines
771 B
ObjectPascal
36 lines
771 B
ObjectPascal
unit MemoryWebSessionController;
|
|
|
|
interface
|
|
|
|
uses classes, MVCFramework.Session;
|
|
|
|
type TWebSessionMemoryController = class(TWebSessionMemory)
|
|
private
|
|
protected
|
|
public
|
|
list:TStringList;
|
|
constructor Create(const SessionID: string; const Timeout: UInt64); override;
|
|
destructor Destroy; override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{ TWebSessionMemoryController }
|
|
|
|
constructor TWebSessionMemoryController.Create(const SessionID: string; const Timeout: UInt64);
|
|
begin
|
|
inherited Create(SessionID,Timeout);
|
|
list:=TStringList.Create;
|
|
end;
|
|
|
|
destructor TWebSessionMemoryController.Destroy;
|
|
begin
|
|
list.Free;
|
|
inherited;
|
|
end;
|
|
|
|
initialization
|
|
TMVCSessionFactory.GetInstance.RegisterSessionType('memoryController', TWebSessionMemoryController);
|
|
|
|
end.
|