首页 > 代码库 > 使用 IntraWeb (40) - 自定义 Session 数据
使用 IntraWeb (40) - 自定义 Session 数据
修改 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;
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。