ServerController.pas
上传用户:xdwang_66
上传日期:2016-04-26
资源大小:1726k
文件大小:1k
- unit ServerController;
- {PUBDIST}
- interface
- uses
- SysUtils, Classes, IWServerControllerBase,
- // For OnNewSession Event
- IWApplication, IWAppForm;
- type
- TIWServerController = class(TIWServerControllerBase)
- procedure IWServerControllerBaseNewSession(ASession: TIWApplication;
- var VMainForm: TIWAppForm);
- private
- public
- end;
- // This is a class which you can add variables to that are specific to the user. Add variables
- // to this class instead of creating global variables. This object can references by using:
- // UserSession
- // So if a variable named UserName of type string is added, it can be referenced by using:
- // UserSession.UserName
- // Such variables are similar to globals in a normal application, however these variables are
- // specific to each user.
- //
- // See the IntraWeb Manual for more details.
- TUserSession = class
- public
- end;
- // Procs
- function UserSession: TUserSession;
- implementation
- {$R *.dfm}
- uses
- IWInit;
- function UserSession: TUserSession;
- begin
- Result := TUserSession(RWebApplication.Data);
- end;
- procedure TIWServerController.IWServerControllerBaseNewSession(
- ASession: TIWApplication; var VMainForm: TIWAppForm);
- begin
- ASession.Data := TUserSession.Create;
- end;
- end.
-