svn/view/ServerController.pas

unit ServerController;

interface

uses
  SysUtils, Classes, IWServerControllerBase, IWBaseForm, HTTPApp,
  // For OnNewSession Event
  UserSessionUnit, IWApplication, IWAppForm, IW.Browser.Browser;

type
  TIWServerController = class(TIWServerControllerBase)
    procedure IWServerControllerBaseNewSession(ASession: TIWApplication);
    procedure IWServerControllerBaseBeforeRender(ASession: TIWApplication;
      AForm: TIWBaseForm; var VNewForm: TIWBaseForm);

  private

  public
  end;

function UserSession: TIWUserSession;
function IWServerController: TIWServerController;

implementation

{$R *.dfm}

uses
  IWInit, IWGlobal, Unit14, Unit3, Unit13;

function IWServerController: TIWServerController;
begin
  Result := TIWServerController(GServerController);
end;

function UserSession: TIWUserSession;
begin
  Result := TIWUserSession(WebApplication.Data);
end;

procedure TIWServerController.IWServerControllerBaseBeforeRender
  (ASession: TIWApplication; AForm: TIWBaseForm; var VNewForm: TIWBaseForm);
begin
  if (AForm is TMasterFOrm = false)and(DM.FDTable3.FieldByName('ENABLE').AsBoolean = false) then
  begin
    VNewForm := TMentenance.Create(WebApplication);
    AForm.Release;
    AForm := nil;
  end;
end;

procedure TIWServerController.IWServerControllerBaseNewSession
  (ASession: TIWApplication);
begin
  ASession.Data := TIWUserSession.Create(nil, ASession);
end;

initialization

TIWServerController.SetServerControllerClass;

end.