www.pudn.com > Barcode.VCL.component.v1.8.6.48.Full.Source.Delphi > ServerController.pas, change:2007-01-17,size:1310b

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.