<< Click to Display Table of Contents >> Navigation:  Demos > XI > Features > ServerController.pas

//

unit ServerController;

 

interface

 

uses

 SysUtils, Classes, IWServerControllerBase, IWBaseForm, HTTPApp,

 // For OnNewSession Event

 IWApplication, IWAppForm;

 

type

 TIWServerController = class(TIWServerControllerBase)

 procedure IWServerControllerBaseNewSession(ASession: TIWApplication;

 var VMainForm: TIWBaseForm);

 private

 public

 end;

 

 function IWServerController: TIWServerController;

 

implementation

{$R *.dfm}

 

uses

 IWInit, IWGlobal, FDatamodule;

 

function IWServerController: TIWServerController;

begin

 Result := TIWServerController(GServerController);

end;

 

procedure TIWServerController.IWServerControllerBaseNewSession(

 ASession: TIWApplication; var VMainForm: TIWBaseForm);

begin

 ASession.Data := TFeaturesDM.Create(ASession);

end;

 

initialization

 TIWServerController.SetServerControllerClass;

end.