修改 UserSessionUnit 單元:unit UserSessionUnit; interface uses ? 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;

總結

以上是生活随笔為你收集整理的intraweb php,使用 IntraWeb (40) - 自定义 Session 数据的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。