使用 IntraWeb (40) - 自訂 Session 資料

標籤：des   使用   資料   os   for   io   

修改 UserSessionUnit 單元:

unit UserSessionUnit;interfaceuses  IWUserSessionBase, SysUtils, Classes, IWApplication;type  TIWUserSession = class(TIWUserSessionBase)    procedure IWUserSessionBaseCreate(Sender: TObject);    procedure IWUserSessionBaseDestroy(Sender: TObject);  private    FMyName: string;    FMyAge: Integer;    FMyInfos: TStrings;  public    property MyName: string read FMyName write FMyName;    property MyAge: Integer read FMyAge write FMyAge;    property MyInfos: TStrings read FMyInfos write FMyInfos;  end;implementation{$R *.dfm}procedure TIWUserSession.IWUserSessionBaseCreate(Sender: TObject);begin  FMyInfos := TStringList.Create;end;procedure TIWUserSession.IWUserSessionBaseDestroy(Sender: TObject);begin  FMyInfos.Free;end;end.

測試從 Unit1 寫入資料:

uses ServerController, Unit2;procedure TIWForm1.IWButton1AsyncClick(Sender: TObject; EventParams: TStringList);begin  UserSession.MyName := ‘aaa‘;  UserSession.MyAge := 111;  UserSession.MyInfos.Add(‘Var1=123‘);  UserSession.MyInfos.Add(‘Var2=456‘);  TIWForm2.Create(WebApplication).Show;end;

測試從 Unit2 讀取資料:

uses ServerController;procedure TIWForm2.IWButton1AsyncClick(Sender: TObject; EventParams: TStringList);begin  IWMemo1.Lines.Add(UserSession.MyName);  IWMemo1.Lines.Add(UserSession.MyAge.ToString());  IWMemo1.Lines.Add(UserSession.MyInfos.Values[‘Var1‘]);  IWMemo1.Lines.Add(UserSession.MyInfos.Values[‘Var2‘]);end;