DW.CORE.UserSession.pas

unit DW.CORE.UserSession;

interface

uses
  Classes, DW.VCL.DataModule, DW.CORE.DWApplication;

type

  TDWUserSessionClass = class of TDWUserSession;

  TDWUserSession = class(TDWDataModule)
  private
    // FMainForm: TDWForm;
    // FOnCreate: TNotifyEvent;
    // FForms:TList;
    // FCallbacks: TDWCallBacks;
    // FActiveForm: TDWForm;
    // procedure SetMainForm(const Value: TDWForm);
    // procedure SetOnCreate(const Value: TNotifyEvent);
    // procedure SetActiveForm(const Value: TDWForm);
  protected
    // FUserCode: String;
    // FLogonTime: TDateTime;
    // FLastRequest: TDateTime; // Last request time stamp
    FRequestCount: Integer; // Count the requests
    // FIP: String;             // Client IP Adress (beware of proxies)
    FLoginChallenge: String; // Used for secure login
    // FConfigPort: String;     // Used for configuration process
    // FConfigTempDir: String;  // Used for configuration process
    // FConfigHasLogo: Boolean; // Used for configuration process
    // FTempVar: Integer;       // Currently used for anti-spam
  public
    // constructor Create(AOwner: TComponent); override;

    // constructor Create(AOwner: TComponent); override;

    // constructor Create(aDWAplication: TDWApplication); overload;

    // destructor Destroy; override;

    // property CallBacks:TDWCallBacks read FCallbacks;
    property RequestCount: Integer read FRequestCount write FRequestCount;
    // property LastRequest: TDateTime read FLastRequest write FLastRequest;
    // property IP: String read FIP write FIP;
    property LoginChallenge: String read FLoginChallenge write FLoginChallenge;
    // property ActiveForm:TDWForm read FActiveForm write SetActiveForm;
  published
    // property UserCode: String read FUserCode write FUserCode;
    // property LogonTime: TDateTime read FLogonTime write FLogonTime;

    // property ConfigPort: String read FConfigPort write FConfigPort;
    // property ConfigTempDir: String read FConfigTempDir write FConfigTempDir;
    // property ConfigHasLogo: Boolean read FConfigHasLogo write FConfigHasLogo;
    // property TempVar: Integer read FTempVar write FTempVar;
    // property MainForm:TDWForm read FMainForm write SetMainForm;
    // property OnCreate:TNotifyEvent read FOnCreate write SetOnCreate;
  end;

implementation

uses System.RTLConsts;

//

// {$R *.dfm}
{ TAppSrvSessionData }

{ constructor TDWUserSession.Create(AOwner: TComponent);
  begin
  inherited Create(AOwner);
  // if not OldCreateOrder then
  //  DoCreate;

  // FForms:= TList.Create;

  // FTempVar := -1;
  // if Assigned(FOnCreate) then
  // FOnCreate(Self);
  end; }

(* destructor TDWUserSession.Destroy;
  //var
  // I: Integer;
  begin
  { TODO 1 -oDELCIO -cVERIFY : Chech Memory leak }
  { for I := 0 to FForms.Count -1 do
  begin
  if Assigned(FForms[I]) then
  TDWForm(FForms[I]).Free;
  end;
  FForms.Free;
  FMainForm.Free; }
  inherited;
  end; *)

(* procedure TDWUserSession.SetActiveForm(const Value: TDWForm);
  begin
  FActiveForm := Value;
  end;


  procedure TDWUserSession.SetMainForm(const Value: TDWForm);
  begin
  FMainForm := Value;
  end;

  procedure TDWUserSession.SetOnCreate(const Value: TNotifyEvent);
  begin
  FOnCreate:= Value;
  end; *)

{ TDWUserSession }

(* constructor TDWUserSession.Create(aDWAplication: TDWApplication);
  begin
  inherited Create(aDWAplication);
  end; *)

{ constructor TDWUserSession.Create(AOwner: TComponent);
  begin
  inherited CreateNew(AOwner, -1);
  end; }

initialization

// RegisterClass(TDWUserSession);

end.